PDA

View Full Version : test colour highlight code



mdmackillop
03-14-2017, 12:53 PM
Private Sub CommandButton21_Click()
With Worksheets("Report").Activate
With Range("A1" & Range("AS" & Rows.Count).End(xlUp))
.AutoFilter Field:=45, Criteria1:="2 - WAY"
On Error Resume Next
.Offset(1).SpecialCells(12).EntireRow.Delete
End With
.AutoFilterMode = False
End With
End Sub

commodity
08-04-2017, 12:35 AM
MVP (Excel 2008-2010)