How to Continue with the Code if one of the multiple selections is not made

With the below Code, it needs all 3 fields (MY, Order, Quantity) to be entered a value to populate final filtered data. I want the code to have flexibility to run with either 1 ,2 or 3 selections (i.e if Only MY and Order is selected or Just MY or all three) Please help!

----------------------------------------------------------------------------------------------------------
Sub Filter_Data()

Dim All_Data_sh As Worksheet
Dim Filter_sh As Worksheet
Dim Output_sh As Worksheet

Set All_Data_sh = ThisWorkbook.Sheets("All_Data")
Set Filter_sh = ThisWorkbook.Sheets("Filter")
Set Output_sh = ThisWorkbook.Sheets("Output")

Output_sh.UsedRange.Clear

All_Data_sh.AutoFilterMode = False

Dim MY() As String
Dim Order() As String
Dim Quantity() As String

Dim n As Integer
n = Application.WorksheetFunction.CountA(Filter_sh.Range("A:C")) - 2
ReDim MY(n) As String
ReDim Order(n) As String
ReDim Quantity(n) As String

Dim i As Integer
For i = 0 To n
MY(i) = Filter_sh.Range("A" & i + 2)
Order(i) = Filter_sh.Range("B" & i + 2)
Quantity(i) = Filter_sh.Range("C" & i + 2)

Next i


All_Data_sh.UsedRange.AutoFilter 1, MY(), xlFilterValues
All_Data_sh.UsedRange.AutoFilter 2, Order(), xlFilterValues
All_Data_sh.UsedRange.AutoFilter 3, Quantity(), xlFilterValues

All_Data_sh.UsedRange.Copy Output_sh.Range("A1")

All_Data_sh.AutoFilterMode = False

MsgBox ("Data Filtered")

End Sub

Could you set the filters as arguments of the Sub defaulting to True?

Please Login or Register  to view this content.

Usage:
Leave blank for all, or set those to exclude to false
e.g.
All: Call Filter_Data
MY and order only: call Filter_Data(,,False)

I made your above changes highlighted in blue and it did not work. I am just starting to learn excel VBA so dont follow much.

The idea is that it has a parameter for each filter which defaults to True, i.e. the filter will be applied. If you specify False for any or all of these when calling Filter_Data from another routine, it won't apply the filter for those.


What if you run these

Please Login or Register  to view this content.

Thank you ByteMarks! This helps.

Can Something like this be done, So that I dont have to create macros for all the different combinations of true, false.

If MY() ="" Then MY()="*"
If Order() ="" Then Order()="*"
If Quantity() ="" Then Quantity()="*"

I am not sure if the above line of code will do anything but can something like this be done to that if any empty cell is present then it just moves on to the next filter criteria and popullates based on that.

Does this work for you?

Please Login or Register  to view this content.

The code doesn't throw any error but no filtered result. No filtering happens

I'm assuming you put the filter criteria in columns ABC of Filter_sh
Is it possible to attach your workbook?

Yes, attached the workbook.
Eventually i want to have the user the ability to filters for any combinations of the entry. Thanks again ByteMarks for helping me out!

How about this.

Please Login or Register  to view this content.

This is Perfect. Works like I needed.
Thank you So much!