Koşullu silme

[seranonet]

C9 hücresi ile d sutunundaki hücrelerin hangisi eşit ise aynı satırdaki ı sütünüdaki veriyi silmek için nasıl bir makro yapabiliriz

 

[Ömer]

Mehaba,

Bu şekilde deneyin.

Sub Sil()
    
    Dim i As Long
    
    For i = 1 To Cells(Rows.Count, "D").End(xlUp).Row
        If Cells(i, "D") = Range("C9") Then
            Cells(i, "I").ClearContents
        End If
    Next i
    
End Sub

.

 

[seranonet]

Teşekkür ettim tam kedinisi eline sağlık