ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Multiple ranges to Auto Filter (https://www.excelbanter.com/excel-programming/302811-multiple-ranges-auto-filter.html)

Kevin B[_4_]

Multiple ranges to Auto Filter
 
Is there a way to only auto filter some ranges and ignor
others. This is the formula I'm using at the moment, it
will autofilter the columns C,D & E but I would also like
to add to filter the colum I2:I65536 an not to filter
column F,G and H. When I try to add the I range in the
formula all of the other ranges will display as AutoFilter
(ble).

Private Sub Workbook_Open()
'check for filter, turn on if none exists
With Worksheets("Time Entry")
If Not .AutoFilterMode Then
.Range("C2:F65536").AutoFilter
End If
.EnableAutoFilter = True
.Protect password:="", _
Contents:=True, UserInterfaceOnly:=True
End With
End Sub

Thank you for you responce!
Kevin

Dave Peterson[_3_]

Multiple ranges to Auto Filter
 
Debra Dalgleish has some code at:

http://www.contextures.com/xlautofilter03.html#Hide

That you can modify.

Kevin B wrote:

Is there a way to only auto filter some ranges and ignor
others. This is the formula I'm using at the moment, it
will autofilter the columns C,D & E but I would also like
to add to filter the colum I2:I65536 an not to filter
column F,G and H. When I try to add the I range in the
formula all of the other ranges will display as AutoFilter
(ble).

Private Sub Workbook_Open()
'check for filter, turn on if none exists
With Worksheets("Time Entry")
If Not .AutoFilterMode Then
.Range("C2:F65536").AutoFilter
End If
.EnableAutoFilter = True
.Protect password:="", _
Contents:=True, UserInterfaceOnly:=True
End With
End Sub

Thank you for you responce!
Kevin


--

Dave Peterson



All times are GMT +1. The time now is 04:56 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com