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...
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...