Add after your Autofilter code:

MsgBox Range(Cells(1, 11), Cells(EndData,
11)).SpecialCells(xlCellTypeVisible).Count

--
HTH

Sandy
In Perth, the ancient capital of Scotland
and the crowning place of kings


Replace @mailinator.com with @tiscali.co.uk


"ub" wrote in message
...
Hi Sandy
Is there a VBA code I can use.
Thanks

"Sandy Mann" wrote:

Use the SUBTOTAL() function with 3 as the second argument to count the
cells
in Column K which will all have an "S"
--
HTH

Sandy
In Perth, the ancient capital of Scotland
and the crowning place of kings


Replace @mailinator.com with @tiscali.co.uk


"ub" wrote in message
...
Hi Sandy
My VBA code to filter my data works fine,
W.Range("a3:m100").AutoFilter field:=11, Criteria1:="S"

Is there any way I can count the # of rows that was the output of this
filter results.

Ex, If my filter command gived me 5 rows, I want the answer 5.

Can please advise how I can do this.

Thanks in advance.


"Sandy Mann" wrote:

It sounds as if you want:

On Error Resume Next

if you want the code to just continue on or

On Error Goto NextCode
if <condition then

<do

NextCode:
If <another condition then

Where NextCode: is a label, (note the colon and the name can be
anything.

To remove the On Error have a line:

On Error Goto 0


--
HTH

Sandy
In Perth, the ancient capital of Scotland
and the crowning place of kings


Replace @mailinator.com with @tiscali.co.uk


"ub" wrote in message
...
Thanks Sandy
It worked.

Can you please advise me about goto function.

I want to use it in my if statement

if <condition then

<do
Else
goto next (I want to give a command, that if there is error go to
next
block of code)
Endif


CODE CONtinued
"Sandy Mann" wrote:

Use the correct range as in something like:

Set w = Sheets("A")
With w
EndData = .Cells(Rows.Count, 1).End(xlUp).Row
End With

With w.Range("A1:M" & EndData)
AutoFilter field:=11, Criteria1:="S"
End With



--
HTH

Sandy
In Perth, the ancient capital of Scotland
and the crowning place of kings


Replace @mailinator.com with @tiscali.co.uk


"ub" wrote in message
...
Hi
I have the following code in my VBA

Set w = Worksheets("A")

w.Cells.AutoFilter field:=11, Criteria1:="S"

It works fine, but it displays the results from row 2 of the
sheet.
I have my heading from cell A1 to M4 , so when I use this code
the
heading
from row a2 : m5 are hidden under the output os the result.
I want the ouput to start from Cell a5.

Please help