Hi
If when I apply a Filter it gives me 5 records, or 7, or whatever number of
records.
What code should I write in order to give me the number of records (rows) ,
5, 7 whatever

thanks
Pedro

Pedro,

Will this help? Note that this procedure assumes that the first
column of the filtered range doesn't contain any blank cells.

Sub ShowNumberOfRecords()
Dim rng As Range
Set rng = ActiveSheet.AutoFilter.Range.Columns(1)
MsgBox Application.WorksheetFunction.Subtotal(3, rng) - 1
End Sub

--
Ture Magnusson
Microsoft MVP - Excel
Karlstad, Sweden

"Pedro" wrote in message
...
Hi
If when I apply a Filter it gives me 5 records, or 7, or whatever number
of
records.
What code should I write in order to give me the number of records (rows)
,
5, 7 whatever

thanks
Pedro

Have a look in HELP index for SUBTOTAL

--
Don Guillett
SalesAid Software

"Pedro" wrote in message
...
Hi
If when I apply a Filter it gives me 5 records, or 7, or whatever number
of
records.
What code should I write in order to give me the number of records (rows)
,
5, 7 whatever

thanks
Pedro

Another (works with a column where there may be missing values)

msgbox ActiveSheet.AutoFilter.Range.Columns(1) _
.SpecialCells(xlvisible).count-1

--
Regards,
Tom Ogilvy


Pedro wrote in message
...
Hi
If when I apply a Filter it gives me 5 records, or 7, or whatever number
of
records.
What code should I write in order to give me the number of records (rows)
,
5, 7 whatever

thanks
Pedro