Hi.
I was looking for some assistance please, I have spent the best part of today trying to find a way to do this but really struggling
Whilst browsing online I found a few examples but when I tried using these none of them have worked for me
I have a workbook with several worksheets, on each worksheet I need to delete all rows that meet the following criteria
1, All cells in columns B that are blank, and
2, All cells in column B that contain text "Blue" or "Black"
As far as deleting all rows that are blank I have this working using the following coding
If wst.Name Like "Open" = False Then
On Error Resume Next
wst.Columns("B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End If
Next wst
But i am not sure why the following does not work? it does remove all the blank rows but doesnt delete the rows where column b contains blue or black
If wst.Name Like "Open" = False Then
On Error Resume Next
wst.Columns("B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End If
With ActiveSheet
.AutoFilterMode = False
With Range("b1", Range("b" & Rows.Count).End(xlUp))
.AutoFilter 1, "*Blue*" or "*Black*"
On Error Resume Next
.Offset(1).SpecialCells(12).EntireRow.Delete
End With
.AutoFilterMode = False
End With
Next wst
Any help is appreciated, thanks
Bookmarks