Macroyla koşullu satır silme işlemi

[DeViaNce]

arkadaşlar macroyla satırları koşullu silmek istiyorum.

1:5 satırlarını sileceğim 6 kalacak dolayısıyla işlem tekrarlanırken
1:5 >> 2:6 >>>3:7 olacak fonksiyon mu yazmak gerekio tam acıklayacak olursam

1:5
2:6
3:7
4:8

Satırlarını sileceğim ve her defasında silmek istemediğim 6 satır kalmış olacak ama işlemi yapacagım satır sayısı binlerce ve bir fonksiyonla 1:5 bunu 1er artırarak satırları sil diyemezmiyiz
Teşekkürler

 

[Ayhan Ercan]

Merhaba

Aşağıdaki kodları bir denermisiniz..?

Private Sub CommandButton1_Click()
son = [a65536].End(3).Row
For i = 1 To son
Rows(i & ":" & i + 4).Delete
Next
End Sub

 

[DeViaNce]

başarılı teşekkür ederim emeginize sağlık

 

[Ayhan Ercan]

başarılı teşekkür ederim emeginize sağlık

Rica ederim.
İyi Çalışmalar... k::