<<Convert Excel Spreadsheets to Web Pages | Trading Software That Operates Within Excel | Convert Excel, Access & Other Databases | Merge Excel Files>>
Ozgrid, Experts in Microsoft Excel Spreadsheets

Display Excel AutoFilter Criteria

TRY OUT: Smart-VBA | Code-VBA | Analyzer-XL | Downloader-XL | Trader-XL| More Free Downloads.. Best Value: Finance Templates Bundle

Excel VBA: Display Excel AutoFilter Criteria. Show Auto Filter Criteria in Excel

Current Special! Complete ExcelExcel Training Course for Excel 97 - Excel 2003, only $145.00. $59.95 InstantBuy/Download Includes Advanced Excel (10 lessons) and 2 Excel VBA Courses (20 lessons).

Got any Excel Questions? Free Excel Help

Display/Show AutoFilter Criteria

Excel's AutoFilteris one of Excel's most useful features. However, one small draw-back is it's hard top tell the criteria being used at a glance. The custom Excel function below can be used to display the criteria being used for each column of the table that has AutoFilter applied. All you do is ensure you have at least 2 rows above your table, then add the custom function to each cell 2 rows above the column heading. See below;

AutoFilter Custom Function in Use

The custom function is used in each cell shown above like;

  1. =AutoFilter_Criteria(B3)
  2. =AutoFilter_Criteria(C3)
  3. =AutoFilter_Criteria(D3)

Below is the code that must be added to the Workbook, or an Excel Add-in . To add the code to a Workbook go to Tools>Macro>Visual Basic Editor (Alt+F11) then to Insert>Module and paste in the code below;

Function AutoFilter_Criteria(Header As Range) As StringDim strCri1 As String, strCri2 As String    Application.Volatile        With Header.Parent.AutoFilter        With .Filters(Header.Column - .Range.Column + 1)                    If Not .On Then Exit Function                            strCri1 = .Criteria1            If .Operator = xlAnd Then                strCri2 = " AND " & .Criteria2            ElseIf .Operator = xlOr Then                strCri2 = " OR " & .Criteria2            End If                    End With    End With            AutoFilter_Criteria = UCase(Header) & ": " & strCri1 & strCri2End Function

Excel Dashboard Reports & Excel Dashboard Charts 50% Off Become an ExcelUser Affiliate & Earn Money

Special! Free Choice of Complete Excel Training Course OR Excel Add-ins Collection on all purchases totaling over $64.00. ALLpurchases totaling over $150.00 gets you BOTH! Purchases MUST be made via this site. Send payment proof to [email protected] 31 days after purchase date.


Instant Download and Money Back Guarantee on Most Software

Try out:Analyzer XL |Downloader XL |Smart VBA |Trader XL Pro (best value) |ConsoXL | MergeXL | O2OLAP for Excel | MORE>>

Excel Trader PackageTechnical Analysis in Excel With $139.00 of FREE software!

Microsoft � and Microsoft Excel � are registered trademarks of Microsoft Corporation. OzGrid is in no way associated with Microsoft

Some of our more popular products are below...
Convert Excel Spreadsheets To Webpages | Trading In Excel | Construction Estimators | Finance Templates & Add-ins Bundle | Code-VBA | Smart-VBA | Print-VBA | Excel Data Manipulation & Analysis | Convert MS Office Applications To...... | Analyzer Excel | Downloader Excel | MSSQL Migration Toolkit | Monte Carlo Add-in | Excel Costing Templates