toplu satır silme

[euphrates55]

günaydın, ilki 14. satır başlamak üzere ve sonuncusu 1855. satır olmak üzere 14 - 21 - 28 .......... -1848 - 1855. (7 satır atlayarak) satırları toplu silmek için nasıl bir makro yazılması gerekir.

 

[Erdem Akdemir]

Aşağıdaki kodu deneyebilirsiniz.

Sub siill()

For i = 14 To 1855 Step 6

Rows(i).Delete

Next i

End Sub

 

[euphrates55]

teşekkürler. hem hızlı cevap için hem de çözüm için

 

[euphrates55]

hazır yakalamışken tam istediğim gibi cevap alamadığım bir sorum var. cj8:cj1591 arasında alttoplam almak istiyorum ama bu toplamlara ch sütununda "iki il" yazanlar hiç bir şekilde dahil olmayacak şekilde. yanlara çekince de formül değişmeyecek şekilde ne olabilir.
=TOPLA.ÇARPIM(ALTTOPLAM(109;KAYDIR(CJ$8:CJ$1591;SATIR(CJ$8:CJ$1591)-SATIR($AV8);;1));--($CH$8:$CH$1591<>"İKİ İL")) ataköylü arkadaşın yardımı ile bu şekilde bir formülle halloldu ama ben formülü anlayamadığım için içime sinmedi. daha kolay yolu varsa aklınıza gelen sizden ricam olacak.

 

[Korhan Ayhan]

Alternatif,

Performans olarak biraz daha iyidir.

Option Explicit

Sub Satir_Sil()
    Dim X As Long, Alan As Range, Zaman As Double
    
    Zaman = Timer
    
    For X = 14 To 1855 Step 7
        If Alan Is Nothing Then
            Set Alan = Cells(X, 1)
        Else
            Set Alan = Union(Alan, Cells(X, 1))
        End If
    Next
    
    If Not Alan Is Nothing Then
        Alan.EntireRow.Delete
        MsgBox "İşleminiz tamamlanmıştır." & Chr(10) & Chr(10) & _
               "İşlem süresi ; " & Format(Timer - Zaman, "0.00000")
    End If
End Sub

 

[euphrates55]

teşekkürler size de. diğer soruya da cevap var mı acaba?

 

[Erdem Akdemir]

Örnek dosya olmadan yanıt vermek zor.

 

[euphrates55]

Örnek dosya olmadan yanıt vermek zor.

http://dosya.co/t475d12n83vh/soru.xlsm.html