LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 414
Default variant sheet name to filter

Morning all.
A while back Don Guillett provided me with a filter routine that has been
working really well-- with a single exception.
My sheet names that I'm calling to don't always remain constant.

I.e., sometimes it'll be Sum, with others it'll be Summary, SUMMARY, etc.....
I'd like to get the routine to accept all variations of Sum, without me
having to rewrite the elements to take into account the different name each
time I run the routine in a new workbook.

Here's the code.
------------------------------------------------------------------------
Sub FilterA()

Dim wks As Worksheet
'I added this because I wanted to get a name variable
'for a worksheet

mv = Range("f3").End(xlDown).value ' this sets the criteria.

Select Case wks.Name
'I looked at another macro that I have and see that it used Select to
account for
'all name variables.
Case "Sum", "Summary", "SUM", "summary", "SUM ", "Sum ", "Summary ",
"SUMMARY", "SUMMARY "
'this is the code that I pulled from the other macro accounting for the name
'variables.

With wks
Sheets(wks.Name).Range("A8:F8").AutoFilter field:=1, Criteria1:=mv
'the original version that Don G. provided gave
'Sheets("Sum")....... It's here that I need to do the variable name.


mv1 = Range("a3").End(xlDown).value 'this is my add-on to set a second
criteria filter- Name of owner.

'And here too to account for variable sheet name.
Sheets(wks.Name).Range("A8:F8").AutoFilter field:=3, Criteria1:=mv1 'this
takes in to account the owner name for a filter.

End With
End Select

End Sub

------------------------------------------------------------
I had thought this would work, but it throws a 91 error-- object variable or
with block not set.

What do I need to do to set the object variable? I'm assuming that is my
issue.

Thank you.
Best,
SteveB.
I'm running Excel 2007.


 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Particulars data Filter from sheet 1 to sheet 2 automatically Sudipta Sen[_2_] Excel Worksheet Functions 4 September 7th 09 04:20 PM
Filter Range on Sheet B Based on List on Sheet A Brent E Excel Discussion (Misc queries) 4 April 23rd 07 04:10 PM
'Copy to' Advance Filter depend only on sheet ID not start sheet Sandy Yates Excel Worksheet Functions 0 April 4th 06 03:48 AM
Can you filter sheet of data & on another sheet make four groups under each other? Marie J-son[_7_] Excel Programming 0 February 28th 06 12:12 PM
Need help with writing variant back to sheet bri0710 Excel Programming 6 August 16th 04 07:08 PM


All times are GMT +1. The time now is 02:18 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"