Sile basınca belirli hucrelerin degerleri silinsin

[kneehot]

Arkadaslar selamlar.baslıktada yazdıgım gıbı tablodakı sıl yazısına basınca belirli hucrelerın ıcındekı degerler sılınsın ıstıyorum.ornekte ekledım.tesekkurler.

 

[Necdet]

Merhaba,

Aşağıdaki kodları kullanabilirsiniz. Bir butona bağlayabilirsiniz.

Sub Macro1()
    Range("B4:E4,B6:E7,B10:E10,B12:E14").ClearContents
End Sub

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        If Intersect(Target, [g2]) Is Nothing Then Exit Sub
    Range("b4:e4,b6:e7,b10:e10,b12:e14") = Empty
End Sub

 

[kneehot]

cok tesekkur ederım