B Sütundan Veri Silindiğinde işlem yapma

[sebahattin]

Selamun aleykum Sevgili üstatlar yine sizlerden yardım istiyoruz benim istediğim kurban listesinde bulunan B ve G sütunundan veri sildiğimde aynı satır da bulunan ve S ve U sütununda bulunan verilerin silinmesi istiyorum bu konuda sizlerden yardım talep ediyoruz Eğer Mümkünse dosya ekleyip tarafımıza göndermenizi Rica ederiz

SEBAHATTİN KALDIRIM

 

[hamitcan]

Worksheet_Change başlığının hemen altına ilave edip dener misiniz ?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 Or Target.Column = 7 Then
    If Target = "" Then Cells(Target.Row, "s") = "": Cells(Target.Row, "u") = ""
    End If

 

[sebahattin]

Teşekkürler tam beklediğim gıbı oldu selam ve dua ile ALLAH' AMENET OLUNUZ

 

[sebahattin]

Selamun aleykum hocam sımdı fark ettim benim düşüncem B ve G sütundaki verileri sildiğimde sırası ile H,I,K,L.M ,S,T,sütunlarında bulunan verileri silinmesini istiyorum bu konuda yardımlarınızı ıstıyorum 3/4 saat ugrastım cözemedim sizlerden yardım istıyoruz

 

[hamitcan]

Aleyküm Selam. Böyle deneyin.

If Target.Column = 2 Or Target.Column = 7 Then
    arr = Array("H", "I", "K", "L", "M", "S", "T")
    If Target = "" Then
    For i = 0 To UBound(arr)
    Cells(Target.Row, arr(i)) = ""
    Next
    End If
    End If

 

[sebahattin]

Selamun aleykum hocam yine hata verdi( hata G sutunundakı veri sildiğimde
"H", "I", "K", "L", "M", "S", "T") sutunlarını sılmıyor ben sutunlarının sılınmesini de istıyoruz

 

[sebahattin]

Selamun Aleykum hocam sayenızde halletdik hakkınızı helal ediniz

 

[hamitcan]

Helal olsun.