CommandButton ile istediğimiz hücrelerdeki verileri silme

[SanaLSukuL]

Denetim Araç Kutusundaki Komut düğmesi ile istediğimiz hücrelerdeki verileri silen makro yapabiliyoruz.
Bu işlemi CommandButton ile yapabilir miyiz?
Mesela A1 ile H20 arasında bir tablo oluşturduk. Biz sadece CommandButtona tıklayınca A2, C5, D19, E15, H16 hücrelerindeki verileri silmesini istiyoruz, diğerlerini silmesin.
CommandButton ile böyle bir çalışma yapabilirmiyiz. Tşk ler.

 

[Orion1]

Merhaba.
Aşağıdaki kodları deneyiniz.

Private Sub CommandButton1_Click()
Range("A2").ClearContents
Range("C5").ClearContents
Range("D19").ClearContents
Range("E15").ClearContents
Range("H16").ClearContents
MsgBox "Silme İşlemi yapıldı", vbOKOnly, Application.UserName
End Sub

 

[SanaLSukuL]

tşk ederim çok saolun.
SAYGILAR..

 

[Orion1]

Rica ederim.
İyi çalışmalar.

 

[SanaLSukuL]

Birleştirilmiş hücleri silmiyor nedense error 1004 hatası veriyor dosyayı ekledim. İncelerseniz sevinirim hatam nerde.
Tşk ler.

 

[Orion1]

Merhaba.
Sayın sanalsukul Birleştirilmiş hücrelerden birisini silmek istiyorsunuz.Ondan debug veriyor.Oysa Birleştirilen hücrelerin tamamını silmeniz gerekir.Zaten debugdada söylüyor.
Aşağıdaki kodları kullanın.

Private Sub CommandButton2_Click()
Range("D6").ClearContents
Range("E6:F6").ClearContents
Range("G6").ClearContents
Range("H6:I6").ClearContents
Range("J6").ClearContents
Range("K6:l6").ClearContents
Range("D7").ClearContents
Range("E7:F7").ClearContents
Range("G7").ClearContents
Range("H7:I7").ClearContents
Range("J7").ClearContents
Range("K7:l7").ClearContents
Range("J6").ClearContents
Range("D10").ClearContents
Range("E10").ClearContents
Range("F10").ClearContents
Range("G10").ClearContents
Range("H10").ClearContents
Range("I10").ClearContents
Range("J10").ClearContents
Range("K10").ClearContents
Range("L10").ClearContents
Range("D12").ClearContents
Range("E12:F12").ClearContents
Range("G12").ClearContents
Range("H12:I12").ClearContents
Range("J12").ClearContents
Range("K12:L12").ClearContents
Range("D13").ClearContents
Range("E13:F13").ClearContents
Range("G13").ClearContents
Range("H13:I13").ClearContents
Range("J13").ClearContents
Range("K13:L13").ClearContents
Range("D15").ClearContents
Range("E15:F15").ClearContents
Range("G15").ClearContents
Range("H15:I15").ClearContents
Range("J15").ClearContents
Range("K15:L15").ClearContents
Range("D18").ClearContents
Range("E18:F18").ClearContents
Range("G18").ClearContents
Range("H18:I18").ClearContents
Range("J18").ClearContents
Range("K18:L18").ClearContents
Range("D19:F19").ClearContents
Range("G19:I19").ClearContents
Range("J19:L19").ClearContents
Range("C22:L22").ClearContents
MsgBox "Silme İşlemi yapıldı", vbOKOnly, Application.UserName
End Sub

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Private Sub CommandButton1_Click()
[A2,C5, D19, E15, H16] = ""
End Sub

Not : Birleştirilmiş hücrelerde kod çalışıyor.

 

[SanaLSukuL]

tşk ederim iLginize
sayenizde bir konu daha öğrendim.
SAYGILAR...

 

[tufan03]

Sn.Sanal Sukul buton üzerine gelindiğinde çıkan "Sanal SUKUL" yazısını çok merak ettim,acaba nasıl oluşturdun.

 

[SanaLSukuL]

Sn.Sanal Sukul buton üzerine gelindiğinde çıkan "Sanal SUKUL" yazısını çok merak ettim,acaba nasıl oluşturdun.

Ekteki dosyada açıklamaya çalıştım inşallah yardımcı olmuşumdur. Kolay gelsin.

 

[tufan03]

Çok güzel anlatıyorsunuz da ah birde icon oluşturmayı bilebilsem.

 

[SanaLSukuL]

onunda programları var arama motorlarından icon yapma programı diye aratabilirsiniz. Ben ARTICONS programını kullanarak yaptım. Program isimini kopyalayın arama motorlarında aratın bulunur. eğer bulmadım derseniz bi çaresine bakarız.
Kolay gelsin.
SAYGILAR...