Satırda Değer Yoksa Satırı Silen Makro

[AyYıldızım]

Arkadaşlar aradım ama bulamadım,

[A:A].SpecialCells(xlCellTypeBlanks).EntireRow.Delete

kodu ile a sütununda değer yoksa satırlar silinebiliyor. benim istediğim

A:K arasındaki hücrelerde hiç değer yoksa satırın silinmesini istiyorum. mesela a2:k2 arasında e2 hücresinde bir değer varsa o satır silinmeyecek. a2:k2 arası değer yoksa silinecek. Yardımcı olursanız sevinirim. iyi çalışmalar.

 

[tahsinanarat]

Satırdaki ABCD hücreler boş ise satırı silen makro

Sub sil()
Application.ScreenUpdating = False
        Dim i As Integer
        t = ActiveSheet.UsedRange.Rows.Count
            For i = t To 1 Step -1
                If IsEmpty(Cells(i, 1)) And IsEmpty(Cells(i, 2)) And IsEmpty(Cells(i, 3)) And IsEmpty(Cells(i, 4)) Then
            Rows(i).Delete Shift:=xlUp
        End If
   Next i
Application.ScreenUpdating = True
End Sub

 

[AyYıldızım]

Tam istediğim gibi, çok teşekkürler, emeğinize sağlık.

 

[Korhan Ayhan]

Alternatif;

Kodda sadece aralığı sorgulama şekli farklıdır.

Sub Sil()
    Dim X As Long, Son As Long
    
    Application.ScreenUpdating = False
    
    On Error Resume Next
    Son = Cells.Find("*", Cells(1), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    On Error GoTo 0

    For X = Son To 1 Step -1
        If Evaluate("=SUMPRODUCT(LEN(A" & X & ":K" & X & "))") = 0 Then
            Rows(X).Delete
        End If
    Next

    Application.ScreenUpdating = True

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[AyYıldızım]

Korhan Bey, Teşekkürler, Saygılar.