Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Problem using filter property
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 |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Problem using filter property
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 |
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Problem using filter property
w.Range(Cells(5, 1), Cells(Rows.Count, 13).End(xlUp)) _ .AutoFilter field:=11, Criteria1:="S" -- Dan Oakes |
#4
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Problem using filter property
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 |
#6
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Problem using filter property
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 |
#7
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Problem using filter property
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 |
#8
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Problem using filter property
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 |
#9
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Problem using filter property
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Object property/method problem | Excel Discussion (Misc queries) | |||
Filter problem | Excel Discussion (Misc queries) | |||
Filter problem | Excel Worksheet Functions | |||
filter problem | Excel Discussion (Misc queries) | |||
Filter problem | Excel Worksheet Functions |