İçerisinde Hatalı Hücre Bulunan Satıları Silme

İçerisinde Hatalı Hücre Bulunan Satıları Silme

İçerisinde Hatalı Hücre Bulunan Satıları 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 DeleteRowsWithErrors()
    Dim ws As Worksheet
    Set ws = ActiveSheet ' Aktif çalışma sayfasını kullan
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row ' En alt satırı bul
   
    Dim row As Long
    Dim col As Long
    Dim hasError As Boolean
   
    ' Alt satırdan başlayarak yukarı doğru kontrol et (silme işlemi sırasında satır kaymasını önlemek için)
    For row = lastRow To 1 Step -1
  hasError = False
  For col = 1 To ws.Cells(row, ws.Columns.Count).End(xlToLeft).Column
If IsError(ws.Cells(row, col).Value) Then
    hasError = True
    Exit For
End If
  Next col
 
  ' Eğer hata içeren bir hücre bulunursa, satırı sil
  If hasError Then
ws.Rows(row).Delete
  End If
    Next row
End Sub

Açıklama​

Bu kod şu adımları izler:

Çalışma Sayfasını Tanımlama

Kod, ActiveSheet (aktif çalışma sayfası) üzerinde çalışacak şekilde ayarlanmıştır. İstenirse, ws değişkeni spesifik bir sayfa ismiyle (ThisWorkbook.Sheets("SayfaAdı")) de ayarlanabilir.

En Alt Satırın Belirlenmesi

lastRow değişkeni, 1. sütunda en alttaki dolu hücreyi bulmak için kullanılır.

Hatalı Hücrelerin Kontrolü

Döngüler, en alt satırdan başlayarak birinci satıra doğru ilerler (bu, silme işlemi sırasında satır kaymasını önlemek için önemlidir).

Her satır için, sütunlar taranır ve IsError fonksiyonu kullanılarak hücrelerde hata olup olmadığı kontrol edilir.

Satır Silme İşlemi

Eğer bir satırda herhangi bir hata bulunursa, o satır Rows(row).Delete metod ile silinir.

Bu makro, özellikle büyük veri setlerinde veri temizliği yaparken kullanışlıdır. Hatalı verileri içeren satırları hızla kaldırarak analizlerin daha doğru ve güvenilir olmasını sağlar. Ancak, silme işlemini gerçekleştirmeden önce mutlaka çalışma kitabınızın bir yedeğini almanızı öneririm. Bu, yanlışlıkla veri kaybını önlemek için önemlidir.
Faydalanılması temennisiyle
 
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst