EZ question....how to specify more than one column in the range criteria ???

[Skidood]

Hi again, hope everyone is well.....how can add a few more columns to the range below?



Sub CommandButton2_Click()
With Range("BX9:BX1009")
.AutoFilter Field:=1, Criteria1:="=0.00"
.SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
End Sub</pre>

 

[Skidood]

Sorry but it didnt work.....it ended up removing all the rows from row 9 down, a process which took a full 2-3 seconds and ended with an error window saying "No cells were found".

I will try that when I come back from the doctors office but can you explain what this line of code from your solution does?

For Cnt = 5 To 78 Step 3

 

[Fluff]

It should do exactly what your original code did, but rather than just working on col BX, it should work on Col E,H,K,N etc

 

[MARK858]

Sorry but it didnt work.....it ended up removing all the rows from row 9 down, a process which took a full 2-3 seconds and ended with an error window saying "No cells were found".

Your data in post number has 0.00 and 0.000 in the columns. Autofilter normally works on the appearance in the cell so

Sub CommandButton2_Click()
   Dim Cnt As Long
   For Cnt = 5 To 78 Step 3
      With Cells(8, Cnt).Resize(1000)
         .AutoFilter Field:=1, Criteria1:="=[B]0.00[/B]"
         .SpecialCells(xlCellTypeVisible).EntireRow.Delete
      End With
   Next Cnt
End Sub

should filter the cells with 0.00 as per the request.