I
ilyaskazi
With my criteria i am selecting here entire rows after doing afte
autofilter like this:
Code
-------------------
With ActiveSheet
If .AutoFilterMode = False Then .Cells(1, 1).AutoFilter
.Range("A1").AutoFilter Field:=4, Criteria1:="ZONE 3"
'.Range("A1").CurrentRegion.Offset(1, 0).SpecialCells _
(xlCellTypeVisible).EntireRow.Select
.AutoFilterMode = False
End Wit
autofilter like this:
Code
-------------------
With ActiveSheet
If .AutoFilterMode = False Then .Cells(1, 1).AutoFilter
.Range("A1").AutoFilter Field:=4, Criteria1:="ZONE 3"
'.Range("A1").CurrentRegion.Offset(1, 0).SpecialCells _
(xlCellTypeVisible).EntireRow.Select
.AutoFilterMode = False
End Wit