Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [W1:BA1]) Is Nothing Then Exit Sub
Dim Cevap As Integer
Dim Mesaj As String
Dim Baslik As String
Mesaj = "" & Target.Value & " Tarihli Ekders Verileri Silinsin mi?"
Baslik = "Günlük Ekders Veri Sil"
Cevap = MsgBox(Mesaj, vbYesNo + vbQuestion, Baslik)
If Cevap = vbNo Then End
If Target.Column = 23 Then
Range("=W4:W40").ClearContents
Range("W3").Select
ElseIf Target.Column = 24 Then
Range("X4:X40").ClearContents
Range("X3").Select
..............
Şeklinde Üstteki Hücreyi Çift Tıklayınca Alt Tarafı Silen bir VBA kodum var. Bu kod ile 5 sütunda çalışıyorum. Bunu yaklaşık olarak 30 Sütun ile çalışacağım. Tek tek uğraşmak zor oluyor. Bunu W-BA sütunları arasında TEK KOD ile yapmak istiyorum. Yardımlarınızı Bekliyorum.
If Intersect(Target, [W1:BA1]) Is Nothing Then Exit Sub
Dim Cevap As Integer
Dim Mesaj As String
Dim Baslik As String
Mesaj = "" & Target.Value & " Tarihli Ekders Verileri Silinsin mi?"
Baslik = "Günlük Ekders Veri Sil"
Cevap = MsgBox(Mesaj, vbYesNo + vbQuestion, Baslik)
If Cevap = vbNo Then End
If Target.Column = 23 Then
Range("=W4:W40").ClearContents
Range("W3").Select
ElseIf Target.Column = 24 Then
Range("X4:X40").ClearContents
Range("X3").Select
..............
Şeklinde Üstteki Hücreyi Çift Tıklayınca Alt Tarafı Silen bir VBA kodum var. Bu kod ile 5 sütunda çalışıyorum. Bunu yaklaşık olarak 30 Sütun ile çalışacağım. Tek tek uğraşmak zor oluyor. Bunu W-BA sütunları arasında TEK KOD ile yapmak istiyorum. Yardımlarınızı Bekliyorum.