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.
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
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