Soru Boş satıları otomatik filtreleme

[NADİR YILDIZ]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If WorksheetFunction.CountIf(Range("b4:b15000"), " ") + WorksheetFunction.CountIf(Range("b4:b15000"), " ") > 0 Then
Range("A4").CurrentRegion.AutoFilter Field:=2, Criteria1:=" ", Operator:=xlOr, Criteria2:=" "
Else
If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
End If
End Sub

arkadaşlar boş satırları otomatik filtreleme yapmak için bu kodda nasıl bir değişiklik yapmam gerekiyor

 

[Muzaffer Ali]

Merhaba.

Private Sub Worksheet_Change(ByVal Target As Range)
    If WorksheetFunction.CountIf(Range("A4").CurrentRegion, "") > 0 Then
        Range("A4").CurrentRegion.AutoFilter Field:=2, Criteria1:=""
    Else
        ActiveSheet.ShowAllData
    End If
End Sub

 

[NADİR YILDIZ]

Muzaffer Ali bey teşekkürler

iyi çalışmalar