AutoFilter Macro

Hello Community,

I've recently created a macro that filters a data set, copy's it, and then pastes it to another tab.

How to filter the data is read by a validated cell that has a drop down list. You select the components you want to filter and then press the macro button.

My problem arises that I have three categories to search by: Currency, Year, And Date for example My macro forces me to write a value in each one. So I can't pull up only a certain currency because if I leave the others blank the "filter" fails because there is no blank data set.

Any thoughts on how to fix this?

Here is the Macro:

Please Login or Register  to view this content.

Public Sub FilterCRNCY()

Sheets("Style 2").Select
Selection.AutoFilter Field:=7, Criteria1:=Range("D3").Value


Selection.AutoFilter Field:=8, Criteria1:=Range("D4").Value

Selection.AutoFilter Field:=, Criteria1:=Range("D5").Value





Range("A9:P11826").Select
Selection.Copy
Sheets("Data").Select
Range("A2").Select
ActiveSheet.Paste

'Erases filters:

Sheets("Style 2").Select
Selection.AutoFilter Field:=7
Selection.AutoFilter Field:=8
Selection.AutoFilter Field:=3


Sheets("Data").Select



End Sub

Please Login or Register  to view this content.

Put code tags around your code , it is the # on advanced edit. And can you post a dummy work book?

Hope this is what you meant:

Please Login or Register  to view this content.

Public Sub FilterCRNCY()

Sheets("Style 2").Select
Selection.AutoFilter Field:=7, Criteria1:=Range("D3").Value


Selection.AutoFilter Field:=8, Criteria1:=Range("D4").Value

Selection.AutoFilter Field:=, Criteria1:=Range("D5").Value





Range("A9:P11826").Select
Selection.Copy
Sheets("Data").Select
Range("A2").Select
ActiveSheet.Paste

'Erases filters:

Sheets("Style 2").Select
Selection.AutoFilter Field:=7
Selection.AutoFilter Field:=8
Selection.AutoFilter Field:=3


Sheets("Data").Select



End Sub

Please Login or Register  to view this content.

Can you edit your post and add code tags to both your posts. Unfortunately these are forum rules and I can't post a reply until you do.
Cheers

Please wrap your code in code tags as per rule #3 of the forum rules, as JapanDave has stated, you will not be helped until you follow the forum rules. Thank you.

@ To All members and Mods

Please be advised since the forum has ben updated, there are still some problems. One of which is the horizontal scroll bar in the Code window is not working. If you find that your code is wider than the Code widow, remove the code tags. This will make your post readable. This should be corrected sometime tomorrow.

if you are satisfied with the help provided, please mark the thread as Solved, see Forum Rules for details, Rule #9:

Acknowledge the responses you receive, good or bad. If your problem is solved, please say so clearly, and mark your thread as Solved: Click the Edit button on your first post in the thread, Click Go Advanced, select [SOLVED] from the Prefix dropdown, then click Save Changes. If more than two days have elapsed, the Edit button will not appear -- ask a moderator to mark it.