Auto Filter

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Worker Bee - 21 Mar 2006 03:05 GMT

How do I capture the value that is shown on the bottom left corner after I
perform a filter function. I need to use that number within a macro. Thanks
for the Help!!!

Reply to this Message

Dave Peterson - 21 Mar 2006 03:25 GMT

Are you Paputxi?

Option Explicit
Sub testme()

Dim TotalRows As Long
Dim VisibleRows As Long

With ActiveSheet.AutoFilter.Range.Columns(1)
'subtract the header from both
TotalRows = .Cells.Count - 1
VisibleRows = .Cells.SpecialCells(xlCellTypeVisible).Count - 1
End With

MsgBox VisibleRows & " of " & TotalRows & " records found"
End Sub

> How do I capture the value that is shown on the bottom left corner after I
> perform a filter function. I need to use that number within a macro. Thanks
> for the Help!!!

Signature

Dave Peterson

Reply to this Message