Excelde toplama işlemleri için kullandığım basit bir tablom var. Biraz uzunca bir bir tablo olduğu için girdiğim verileri temizlemek biraz zaman alabiliyor. Bu tablonun köşesine bir tuş ekleyip, bu tuş ile farklı sütunlarda bulunan verilerimi temizlemek istiyorum. Belki daha pratik bir yolu vardır ama bu çalışma işimi gördü.
Excelde Komut Düğmesi eklemek için
Görünüm > Araç Çubukları > Formlar ya da Denetim Araç Kutusunu kullanabilirsiniz.
Komut tuşumuza önceden hazırladığımız macromuzu eklemek için tuşun üzerinde sağ click yaparak Kod Görüntüle diyoruz.
Gelen sayfaya kodumuzu yerleştirdikten sonra excele geri dönüyoruz ve tasarım modundan çıkıp yaptığınız işleri kaydediyoruz. Komut tuşumuz kullanıma hazır.
Kod:
Private Sub CommandButton1_Click()Sheets("Sayfa1").Activate
Set Range100 = Range("B3:B52")
Set Range101 = Range("D3:D52")
Set Range102 = Range("F3:F52")
Set Range103 = Range("H3:H52")
Set Range104 = Range("J3:J52")
Set Range105 = Range("L3:L52")
Set Range106 = Range("B56:B105")
Set Range107 = Range("D56:D105")
Set Range108 = Range("F56:F105")
Set Range109 = Range("H56:H105")
Set Range110 = Range("J56:J105")
Set Range111 = Range("L56:L105")
Sheets("Sayfa1").Activate
Range100.ClearContents
Range101.ClearContents
Range102.ClearContents
Range103.ClearContents
Range104.ClearContents
Range105.ClearContents
Range106.ClearContents
Range107.ClearContents
Range108.ClearContents
Range109.ClearContents
Range110.ClearContents
Not: Satır ve Sütun aralıklarını kendi tablonuza göre düzenleyin.
Excelde Komut Düğmesi eklemek için
Görünüm > Araç Çubukları > Formlar ya da Denetim Araç Kutusunu kullanabilirsiniz.
Komut tuşumuza önceden hazırladığımız macromuzu eklemek için tuşun üzerinde sağ click yaparak Kod Görüntüle diyoruz.
Gelen sayfaya kodumuzu yerleştirdikten sonra excele geri dönüyoruz ve tasarım modundan çıkıp yaptığınız işleri kaydediyoruz. Komut tuşumuz kullanıma hazır.
Kod:
Private Sub CommandButton1_Click()Sheets("Sayfa1").Activate
Set Range100 = Range("B3:B52")
Set Range101 = Range("D3:D52")
Set Range102 = Range("F3:F52")
Set Range103 = Range("H3:H52")
Set Range104 = Range("J3:J52")
Set Range105 = Range("L3:L52")
Set Range106 = Range("B56:B105")
Set Range107 = Range("D56:D105")
Set Range108 = Range("F56:F105")
Set Range109 = Range("H56:H105")
Set Range110 = Range("J56:J105")
Set Range111 = Range("L56:L105")
Sheets("Sayfa1").Activate
Range100.ClearContents
Range101.ClearContents
Range102.ClearContents
Range103.ClearContents
Range104.ClearContents
Range105.ClearContents
Range106.ClearContents
Range107.ClearContents
Range108.ClearContents
Range109.ClearContents
Range110.ClearContents
End Sub
Not: Satır ve Sütun aralıklarını kendi tablonuza göre düzenleyin.
eline sağlık... :)
YanıtlaSilBeğenmene sevindim :)
YanıtlaSil