Çözüldü Veri Silme Makrosu

[okan32]

Kolay gelsin arkadaşlar aşağıdaki kod ile b sütunundan veriyi sildiğimde c ve d sütunundaki ilgili satırları siliyor.
Benim Yapmak istediğim ise e ve f sütununda formül olduğu için b sütununudan veri sildiğim zaman C,D,G,I sütunundaki iligili satırları silmesini istiyorum

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 2 Then Exit Sub
    If IsEmpty(Target) Then
        Range("B" & Target.Row).Resize(, 3).ClearContents
    End If
End Sub

 

[Haluk]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 2 Then Exit Sub
    If IsEmpty(Target) Then
        Range("C" & Target.Row).ClearContents
        Range("D" & Target.Row).ClearContents
        Range("G" & Target.Row).ClearContents
        Range("I" & Target.Row).ClearContents
    End If
End Sub

.

 

[okan32]

Çok Teşekkür ederim Haluk Bey kod gayet güzel çalıştı

 

[msofuoglu]

Herkese iyi günler dilerim,
Eklediğim dosya bir ay için (31 gün) hazırlanmış, örnek dosya 10 günlüktür. Her ay D9-BK9 /D18-BK18 hücre aralığı, D26-BK26/D129-BK129 hücre aralığı, BS9-DZ9/BS18-DZ18 hücre aralığı, BS26-DZ26/BS144-DZ144 hücre aralığı, ED9-GK9/ED18-GK18 hücre aralığı, ED26-GK26/ED85-GK85 hücre aralığı silinmesi gerekiyor. Bu çalışma bir ay boyunca yapılıp dijital olarak arşivleniyor. Aynı dosyada ay bilgileri değiştirilerek 12 ay sürekli kullanılıyor. Ay bittiğinde 30 ya da 31 günlük çalışmada bahsettiğim hücre aralıkları silinip takip eden ay kullanılıyor. Sil butonu ile bahsettiğim hücre aralıklarını silecek bir kod konusunda yardımcı olabilir misiniz. İlginiz için şimdiden teşekkür ederim.

Dosya Linki: https://dosya.co/vkw8t9lqqske/taslak___EYLÜL_2020_GÜNLÜK_PUANTAJ_RAPORU.XLSX.html