Satır Silme(3 sil 1 atla)

[leumruk]

Merhaba,
Sn. ordulu,
17 numaralı mesajımdaki kodları düzenledim, yeni şekliyle kullanmanız daha doğru olacaktır. Önceki kodlama gereksiz döngüye giriyor.

Bununla birlikte verileriniz belirli bir düzende ise, yani satır fazlalıklarınız olmuyorsa Halit Bey'in önerisi olan ters döngü yöntemini kendinize uyarlayıp kullanmanız sizin için daha kullanışlı olacaktır.

 

[halit3]

Hocam peki bu makroyu nasıl güncelleyebiliriz. yani aynı kodu ben ilk 4 satırı silsin daha sonra 26 satır kalsın, sonra 4 satır silsin 26 satır kalsın şeklinde nasıl düzenleyebiliriz.

Alternatif Kodlar

Sub Sil1()
Application.ScreenUpdating = False
silineceksatır = 4
atlanacaksatır = 26
say = silineceksatır + atlanacaksatır
sonsatır = Cells(Rows.Count, "a").End(3).Row
sat = Val(sonsatır / say) * say
For i = sat - 1 To 1 Step -say
Rows(i & ":" & i - 2).Delete Shift:=xlUp
Next
Application.ScreenUpdating = True
MsgBox "işlem tamam"
End Sub

Sub Sil()
Application.ScreenUpdating = False
Dim deg(65000)
satırsil = 4
atla = 26
say = 0
For i = 1 To Cells(Rows.Count, "a").End(3).Row
say = say + 1
If say <= satırsil Then
sat = sat + 1
deg(sat) = i
Else
say = 0
i = i + atla - 1
End If
Next
For j = sat To 1 Step -1
sat1 = deg(j)
Rows(sat1).Delete Shift:=xlUp
Next
Application.ScreenUpdating = True
MsgBox "işlem tamam"
End Sub