Her Döngüde Belli Sayıda Satır Silme

Her Döngüde Belli Sayıda Satır Silme

Her Döngüde Belli Sayıda Satır Silme isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.

Hazır Kod​

VBA:
Sub SatirlariSil()
    Dim i As Long
    Dim satirSayisi As Long
    Dim silinecekSatirSayisi As Long

    ' Silinecek satır sayısı (örneğin her döngüde 5 satır silmek için)
    silinecekSatirSayisi = 5

    ' İşlem yapılacak toplam satır sayısı
    With Sheet1 ' Çalışma sayfasının adını uygun şekilde değiştirin
  satirSayisi = .Cells(.Rows.Count, 1).End(xlUp).Row
    End With

    ' Alt satırdan başlayarak yukarı doğru silme işlemi yapılır
    For i = satirSayisi To 1 Step -silinecekSatirSayisi
  With Sheet1
' Eğer son döngüde 5'ten az satır kaldıysa, kalan tüm satırları sil
If i - silinecekSatirSayisi < 1 Then
    .Rows("1:" & i).Delete
Else
    .Rows(i - silinecekSatirSayisi + 1 & ":" & i).Delete
End If
  End With
    Next i
End Sub

Açıklama​

Üstte, Excel'de her döngüde belirli sayıda satırı silen bir VBA makrosu örneği bulunmaktadır. Bu makro, belirtilen bir aralıktaki satırları, her seferinde belirli bir sayıda satırı silerek işler.

Bu kodu çalıştırmadan önce, çalışma sayfasının adını (Sheet1) kodda belirtilen isimle değiştirmeniz gerekecek. Bu makro, belirtilen çalışma sayfasında alttan başlayarak her döngüde belirtilen sayıda satırı siler.

Kodu kullanmadan önce, verilerinizin yedeğini almanızı şiddetle tavsiye ederim çünkü silme işlemi geri alınamaz.

Faydalanılması temennisiyle
 
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst