Veri yok ise satır silme hk

[drummers]

Ekli dosyamda "Adr" sayfasındaki "E,F,G" sütunlarındaki hücrelerinden herhangi birinde veya üçündede veri yok ise o veri olmayan satırı komple silsin istiyorum. Tabiki makro ile

Teşekkürler.

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Not : Veri sayısı fazla olduğunda sorun yaratabilir, o durumda döngüyle silmek gerek.

Sub Bos_Satirlari_Sil()
    
    On Error Resume Next
    Columns("E:E").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    Columns("F:F").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    Columns("G:G").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    
End Sub

 

[drummers]

Merhaba,

Aşağıdaki kodları dener misiniz?

Not : Veri sayısı fazla olduğunda sorun yaratabilir, o durumda döngüyle silmek gerek.

Sub Bos_Satirlari_Sil()
    
    On Error Resume Next
    Columns("E:E").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    Columns("F:F").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    Columns("G:G").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    
End Sub

Bu çözüm tamamdır. Yanlız veriler çoğalacak ilerki zamanda . Döngü ile nasıl olabilir acaba ?

 

[Necdet]

Merhaba,

Klasik yöntem de aşağıdaki gibidir.

Sub Bos_Satir_Sil()
 
    Dim i As Long
    
    Application.ScreenUpdating = False
    
    For i = Cells(Rows.Count, "A").End(3).Row To 2 Step -1
        If Cells(i, "E") = "" Or _
           Cells(i, "F") = "" Or _
           Cells(i, "G") = "" Then Rows(i).Delete
    Next i
    
    Application.ScreenUpdating = True
    
    MsgBox Adet & " BOŞ SATIR BULUNDU VE SİLİNDİ", vbInformation, "[URL="http://www.excel.web.tr"]www.excel.web.tr[/URL]"
    
End Sub

 

[drummers]

Merhaba,

Klasik yöntem de aşağıdaki gibidir.

Sub Bos_Satir_Sil()
 
    Dim i As Long
    
    Application.ScreenUpdating = False
    
    For i = Cells(Rows.Count, "A").End(3).Row To 2 Step -1
        If Cells(i, "E") = "" Or _
           Cells(i, "F") = "" Or _
           Cells(i, "G") = "" Then Rows(i).Delete
    Next i
    
    Application.ScreenUpdating = True
    
    MsgBox Adet & " BOŞ SATIR BULUNDU VE SİLİNDİ", vbInformation, "[URL="http://www.excel.web.tr"]www.excel.web.tr[/URL]"
    
End Sub

Teşekkürler