Hücreyi otomatik temizleme...

[cataron]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(0, 0) <> "F1" Then Exit Sub
Range("A3:A21", "A23:A31").ClearContents
End Sub

Özür dilerim ama tekrar birşey soracağım A3:B15 ile A17:B21 arası hücreleri silmek istiyorum, araya bu hücre numaralarını yazdım ama çalıştıramadım, yardımlarınızı bekliyorum.

 

[cataron]

Yani a3:a15 - b3:b15 ile a17:a21 - b17:b21 hücreleri silinsin istiyorum. arada kalan a16 silinmeyecek dolayısıyla.
Şimdiden teşekkür ederim yardımlarınızı bekliyorum.

 

[cataron]

Yardım edebilecek yokmu ? çok ihtiyacım var

 

[cataron]

Hala bir sonuç alamadım, bir el atan yokmu ?

 

[excellkurdu]

Bakınız

Yani a3:a15 - b3:b15 ile a17:a21 - b17:b21 hücreleri silinsin istiyorum. arada kalan a16 silinmeyecek dolayısıyla.
Şimdiden teşekkür ederim yardımlarınızı bekliyorum.

Uzman değilim ama bunun gibi mi?

 

[cataron]

Teşekkür ederim gerisini hallettim.