koşullu hücre temizleme

[halilerdem]

ekte yapılmak istenen koşullu silme anlatılmıştır, yardımlarınız için teşekkürler

 

[çıtır]

Sub kossil()
Dim i As Integer
Dim s1 As Worksheet
Set s1 = Sheets("Sayfa1")
Application.ScreenUpdating = False

For i = 4 To s1.Cells(65536, "C").End(3).Row
If s1.Range("D" & i) <> "" And s1.Range("D" & i) < s1.Range("A1") Then
s1.Range("D" & i) = ""
s1.Range("C" & i) = ""
End If
Next i
For i = 4 To s1.Cells(65536, "F").End(3).Row
If s1.Range("G" & i) <> "" And s1.Range("G" & i) < s1.Range("A1") Then
s1.Range("G" & i) = ""
s1.Range("F" & i) = ""
End If
Next i

Application.ScreenUpdating = True
MsgBox "İşlem tamam"
End Sub