starsky
10-20-2009, 04:45 AM
Hi,
Is there a more elegant way of writing this? It does the job (filtering for blanks in cols L to R, then deleting those rows), but I sense a learning opportunity is being missed.
Thanks
Sub DelBlanks()
Selection.AutoFilter Field:=12, Criteria1:="="
Selection.AutoFilter Field:=13, Criteria1:="="
Selection.AutoFilter Field:=14, Criteria1:="="
Selection.AutoFilter Field:=15, Criteria1:="="
Selection.AutoFilter Field:=16, Criteria1:="="
Selection.AutoFilter Field:=17, Criteria1:="="
Selection.AutoFilter Field:=18, Criteria1:="="
Rows("1:1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
ActiveSheet.AutoFilterMode = False
End Sub
Is there a more elegant way of writing this? It does the job (filtering for blanks in cols L to R, then deleting those rows), but I sense a learning opportunity is being missed.
Thanks
Sub DelBlanks()
Selection.AutoFilter Field:=12, Criteria1:="="
Selection.AutoFilter Field:=13, Criteria1:="="
Selection.AutoFilter Field:=14, Criteria1:="="
Selection.AutoFilter Field:=15, Criteria1:="="
Selection.AutoFilter Field:=16, Criteria1:="="
Selection.AutoFilter Field:=17, Criteria1:="="
Selection.AutoFilter Field:=18, Criteria1:="="
Rows("1:1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
ActiveSheet.AutoFilterMode = False
End Sub