VBA-Delete all Filtered Rows

[poikl]

Hi,
I hope you can please help me? I have a Macro which one command Filters all Rows in Excel Sheet which show P in ColD.
I need the VBA Code to Delete those exposed rows only which can vary day to day and then afterwards to Unfilter sheet.

 

[AC PORTA VIA]

try this

Sub DELETE_VISIBLE_ ROWS_AFTER_FILTER()

    lr = Cells(Rows.Count, 1).End(xlUp).Row
    If lr > 1 Then
        Range("A2:r" & lr).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    End If
End Sub

 

[offthelip]

I wouldn't bother about using a filter which can be slow , do it directly like this:

Sub test()
lastrow = Cells(Rows.Count, "D").End(xlUp).Row
inarr = Range(Cells(1, 4), Cells(lastrow, 4))
For i = lastrow To 1 Step -1
 If inarr(i, 1) = "P" Then
  Range(Cells(i, 1), Cells(i, 1)).EntireRow.Delete
 End If
Next i


End Sub

 

[poikl]

Thank you AC this works perfectly.

 

[AC PORTA VIA]

Welcome