döngü kullanarak satır silme

[Leoncio]

Arkadaşlar merhaba;

Örneğini ekte verdiğim çalışmamda 1-59 arası satırlarda her 50-59 satıların silinmesini döngü kullanarak yapmak istiyorum.

Not:Orjinal çalışmamda satır numaraları, renklendirme yok.

 

[leumruk]

Merhaba,
Kodu butona atayın:

Sub sil()
For x = 50 To [a65536].End(3).Row Step 59
hucre = hucre & x & ":" & x + 9 & ","
Next
Range(Mid(hucre, 1, Len(hucre) - 1)).Delete
End Sub

 

[Leoncio]

Sayın leumruk;

Teşekkürler.