Soru Koşula göre hücre temizleme

[bulentkars]

Arkadaşlar Merhaba

A,B,C sütun larında verilerim var. Örneğin a3;b3;c3 delete ile sildiğimde d3 satırında veri varsa temizlesin. 3satırda veri yoksa D satırında boş olacak. Yardımcı olabilirseniz sevinirim.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Rng As Range
    
    If Intersect(Target, Range("A:C")) Is Nothing Then Exit Sub
    
    For Each Rng In Intersect(Target, Range("A:C"))
        If WorksheetFunction.CountA(Cells(Rng.Row, "A").Resize(1, 3)) = 0 Then
            Cells(Rng.Row, "D").ClearContents
        End If
    Next
End Sub

 

[bulentkars]

Korhan Bey Merhaba,

Çok teşekkür ederim, elinize sağlık..