Problem using filter property

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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
 
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

(e-mail address removed)
Replace @mailinator.com with @tiscali.co.uk
 
w.Range(Cells(5, 1), Cells(Rows.Count, 13).End(xlUp)) _
.AutoFilter field:=11, Criteria1:="S"
 
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
 
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

(e-mail address removed)
Replace @mailinator.com with @tiscali.co.uk
 
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.
 
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

(e-mail address removed)
Replace @mailinator.com with @tiscali.co.uk
 
Hi Sandy
Is there a VBA code I can use.
Thanks

Sandy Mann said:
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

(e-mail address removed)
Replace @mailinator.com with @tiscali.co.uk
Click to expand...
 
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

(e-mail address removed)
Replace @mailinator.com with @tiscali.co.uk
 
Back
Top