SİL MAKROSU

[HarEndu]

merhaba,
forum da çok fazla örneği var fakat ben uyarlayamadım. ekteki dosyamda C sütününda veri yoksa veri olmahan c satırı ile H21 arasındaki hücreleri silmek istiyorum. yardımcı olmanızı rica ederim.

 

[YUSUF44]

Deneyiniz:

Sub temizle()
Set s1 = Sheets("SatinAlma")
For i = 10 To 21
    If s1.Cells(i, "C") = "" Then
        Range("E" & i & ":H" & i).ClearContents
    End If
Next
End Sub

 

[HarEndu]

harikasınız, çok teşekkür ediyorum.