Hücreye Tıklayınca Çalışan Makro... Birden Fazla Nasıl Olacak??

[smaeler]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [F2]) Is Nothing Then Exit Sub
Dim Cevap As Integer
Mesaj = "" & [F2].Value & " Ayı Harcama ve Ödeme Verileri Silinsin mi?"
Baslik = "Harcama ve Ödeme Veri Sil"
Cevap = MsgBox(Mesaj, vbYesNo + vbQuestion, Baslik)
If Cevap = vbYes Then
Range("AF3:AF15").ClearContents
Range("AF17:AF20").ClearContents
Else
End If
End Sub

Şeklinde Hücreye tıklayınca ilgili ayın verilerini silen bir makrom var. Bunu Çoğaltıp Tüm aylar (F2,G2,H2,I2,...) için yapmaya çalıştığımda hata alıyorum. Hücreye tıklama makrosu sayfada bir tane mi olur, yada çoğaltmamız mümkün mü? Yardımlarınızı Bekliyorum...

 

[Necdet]

Merhaba,
Kodlarınızı "Worksheet_BeforeDoubleClick" Olayına bağlasanız daha mantıklı olur. Raslantı ile seçilse yanıt vermekten kurtulursunuz.
Anladığım kadarıyla farklı alanları silmek istiyorsunuz, koddaki boşlukları siz doldurunuz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Intersect(Target, [F2:K2]) Is Nothing Then Exit Sub
Dim Cevap As Integer
Dim Mesaj As String
Dim Baslik As String

Mesaj = "" & Target.Value & " Ayı Harcama ve Ödeme Verileri Silinsin mi?"
Baslik = "Harcama ve Ödeme Veri Sil"
Cevap = MsgBox(Mesaj, vbYesNo + vbQuestion, Baslik)

If Cevap = vbNo Then End

If Target.Column = 6 Then
    Range("AF3:AF15").ClearContents
    Range("AF17:AF20").ClearContents
ElseIf Target.Column = 7 Then

ElseIf Target.Column = 8 Then

End If

End Sub

 

[smaeler]

Makro tam istediğim gibi çalıştı. Çok Teşekkür ederim.
Ayrıca bir şeyi merak ettim bu Kod içerisinde.
If Cevap = vbNo Then End Cevap olarak yazdığımız kodda neden Yes/No ters çalışıyor? Yes seçim yapınca kod çalışıyor. Ancak kod içinde No seçimi yazıyor. Bir açıklaması vardır elbette. Bilmek istedim.

 

[Necdet]

Ters Çalışmak?

evet derseniz siler (çalışır) hayır derseniz hiç bir işlem yapmadan çıkar.
Bunun neresi ters?