Autofilter from macro
 

Hello

I'm trying to autofilter on/off via a macro. The filters may be on or off at
the time and I want to turn them on for certain criteria. The following code
debugs on the .AutoFilterMode = True statement. If I leave that part out then
it debugs on the Autofilter for field 1. Can someone put me straight please?
Regards,Brett

Sheets("FIP").Unprotect
With ActiveSheet
.AutoFilterMode = False
End With
With ActiveSheet
.AutoFilterMode = True
End With
Range("status:app").Select
ActiveWindow.ScrollColumn = Range("sec.surname")
ActiveWindow.ScrollRow = Range("header.row").Value + 1
Selection.AutoFilter Field:=3
Selection.AutoFilter Field:=1, Criteria1:="ACTIVE"
'Sheets("FIP").Protect DrawingObjects:=True, Contents:=True,
AllowFiltering:=True
'Sheets("FIP").EnableSelection = xlUnlockedCells

Autofilter from macro
 

To turn autofilter on you need a range. Try:-

With ActiveSheet
.AutoFilterMode = False
End With
With ActiveSheet
.Range("A1").AutoFilter '<Alter to suit
End With


Mike

"Brettjg" wrote:

Hello

I'm trying to autofilter on/off via a macro. The filters may be on or off at
the time and I want to turn them on for certain criteria. The following code
debugs on the .AutoFilterMode = True statement. If I leave that part out then
it debugs on the Autofilter for field 1. Can someone put me straight please?
Regards,Brett

Sheets("FIP").Unprotect
With ActiveSheet
.AutoFilterMode = False
End With
With ActiveSheet
.AutoFilterMode = True
End With
Range("status:app").Select
ActiveWindow.ScrollColumn = Range("sec.surname")
ActiveWindow.ScrollRow = Range("header.row").Value + 1
Selection.AutoFilter Field:=3
Selection.AutoFilter Field:=1, Criteria1:="ACTIVE"
'Sheets("FIP").Protect DrawingObjects:=True, Contents:=True,
AllowFiltering:=True
'Sheets("FIP").EnableSelection = xlUnlockedCells

Autofilter from macro
 

Thanks Mike, all fixed now. Cheers, Brett

"Mike H" wrote:

To turn autofilter on you need a range. Try:-

With ActiveSheet
.AutoFilterMode = False
End With
With ActiveSheet
.Range("A1").AutoFilter '<Alter to suit
End With


Mike

"Brettjg" wrote:

Hello

I'm trying to autofilter on/off via a macro. The filters may be on or off at
the time and I want to turn them on for certain criteria. The following code
debugs on the .AutoFilterMode = True statement. If I leave that part out then
it debugs on the Autofilter for field 1. Can someone put me straight please?
Regards,Brett

Sheets("FIP").Unprotect
With ActiveSheet
.AutoFilterMode = False
End With
With ActiveSheet
.AutoFilterMode = True
End With
Range("status:app").Select
ActiveWindow.ScrollColumn = Range("sec.surname")
ActiveWindow.ScrollRow = Range("header.row").Value + 1
Selection.AutoFilter Field:=3
Selection.AutoFilter Field:=1, Criteria1:="ACTIVE"
'Sheets("FIP").Protect DrawingObjects:=True, Contents:=True,
AllowFiltering:=True
'Sheets("FIP").EnableSelection = xlUnlockedCells