Her 55 satır sonra 10 satırın silinmesi

[Serdar SELEN]

Merhaba,

Dosyada gerekli açıklamayı yaptım.
Teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub SATIR_ATLAYARAK_SİL()
    Dim X As Long
    
    For X = 60 To Range("A65536").End(3).Row Step 55
        Range("A" & X & ":A" & X + 9).EntireRow.Delete
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Serdar SELEN]

Hocam ,

Elinize bilginize sağlık.
Teşekkür ederim.