Quote:
Originally Posted by SalientAnimal
Hi Guys/Gals,
I'm looking for a very basic marco that will delete an entire row if the cell in column U contains any text/value.
Thanks
|
Found a solution:
Sub DelRows()
Application.ScreenUpdating = False
With ActiveSheet.UsedRange
.AutoFilter Field:=7, Criteria1:="=a"
.Offset(1).EntireRow.Delete
.AutoFilter
End With
Application.ScreenUpdating = True
Columns("G:G").Select
Selection.Delete Shift:=xlToLeft
End Sub
Where .AutoFilter Field:=7, the 7 indicates the column number.