Son Dolu Satıra Kadar 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.
[*]ws değişkeni, işlem yapılacak çalışma sayfasını temsil eder. Burada "Sheet1" adlı sayfayı referans alıyoruz.
[*]sonSatir değişkeni, sayfadaki son dolu satırın numarasını bulmak için kullanılır. Burada, 1. sütunda yer alan son dolu hücrenin satır numarasını alıyoruz.
[*]Döngü (For i = 1 To sonSatir), ilk satırdan başlayarak son dolu satıra kadar her satırı siler. Her döngüde en üst satır silinir, bu yüzden her zaman Rows(1) komutu kullanılır.
[*]Application.ScreenUpdating komutları, işlem sırasında ekranın güncellenmesini duraklatarak kodun daha hızlı çalışmasını sağlar.
[*]İşlem tamamlandığında, kaç satırın silindiğini gösteren bir mesaj kutusu görüntülenir.
Bu kodu çalıştırmadan önce, lütfen verilerinizin yedeğini alın, çünkü bu işlem geri alınamaz. Kodu kendi Excel dosyanıza göre uyarlamayı unutmayın.
Faydalanılması temennisiyle
Hazır Kod
VBA:
Sub SatirlariSil()
Dim ws As Worksheet
Dim sonSatir As Long
' Çalışacak olan çalışma sayfasını ayarla
Set ws = ThisWorkbook.Sheets("Sheet1") ' "Sheet1" yerine istediğiniz sayfa adını yazın
' Son dolu satırı bul
sonSatir = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
' İlk satırdan başlayarak son dolu satıra kadar tüm satırları sil
' Not: Bu işlem, özellikle büyük veri setlerinde zaman alabilir
Application.ScreenUpdating = False ' Ekran güncellemesini kapat
For i = 1 To sonSatir
ws.Rows(1).Delete
Next i
Application.ScreenUpdating = True ' Ekran güncellemesini aç
MsgBox sonSatir & " satır silindi."
End SubAçıklama
[*]ws değişkeni, işlem yapılacak çalışma sayfasını temsil eder. Burada "Sheet1" adlı sayfayı referans alıyoruz.
[*]sonSatir değişkeni, sayfadaki son dolu satırın numarasını bulmak için kullanılır. Burada, 1. sütunda yer alan son dolu hücrenin satır numarasını alıyoruz.
[*]Döngü (For i = 1 To sonSatir), ilk satırdan başlayarak son dolu satıra kadar her satırı siler. Her döngüde en üst satır silinir, bu yüzden her zaman Rows(1) komutu kullanılır.
[*]Application.ScreenUpdating komutları, işlem sırasında ekranın güncellenmesini duraklatarak kodun daha hızlı çalışmasını sağlar.
[*]İşlem tamamlandığında, kaç satırın silindiğini gösteren bir mesaj kutusu görüntülenir.
Bu kodu çalıştırmadan önce, lütfen verilerinizin yedeğini alın, çünkü bu işlem geri alınamaz. Kodu kendi Excel dosyanıza göre uyarlamayı unutmayın.
Faydalanılması temennisiyle
