Hi All,
I am new to VBA . On basis of recording and online search I created a macro but it sometimes working and sometime not.
Can anybody suggest me where is the error ?
I have a sheets with name
1) Issues_Tracking sheet : - All the raw data(range from A565000)
2) Filter Sheet :- where I am apply a Advance filter macro with multiple condition(creteria mentioned in range : B2:E3 (with validation to select multiple option on heading " Domain, Country, Assigned to Owner, Issue Type) and same is linked to Issue Tracking sheet from range AO5:BD6)
Now In Issue Tracking Sheet Advance filter Criteria is from Ao5:BD6 also the cells which linked to Filter sheet contain the formula " =IF(Filter!B3="","",Filter!B3), =IF(Filter!C3="","",Filter!C3), =IF(Filter!D3="","",Filter!D3) & =IF(Filter!E3="","",Filter!E3).
Also the code which I used after is as mentioned below :-
Can any body suggest me why Code is not working ?
Regards,
Rajender
I am new to VBA . On basis of recording and online search I created a macro but it sometimes working and sometime not.
Can anybody suggest me where is the error ?
I have a sheets with name
1) Issues_Tracking sheet : - All the raw data(range from A565000)
2) Filter Sheet :- where I am apply a Advance filter macro with multiple condition(creteria mentioned in range : B2:E3 (with validation to select multiple option on heading " Domain, Country, Assigned to Owner, Issue Type) and same is linked to Issue Tracking sheet from range AO5:BD6)
Now In Issue Tracking Sheet Advance filter Criteria is from Ao5:BD6 also the cells which linked to Filter sheet contain the formula " =IF(Filter!B3="","",Filter!B3), =IF(Filter!C3="","",Filter!C3), =IF(Filter!D3="","",Filter!D3) & =IF(Filter!E3="","",Filter!E3).
Also the code which I used after is as mentioned below :-
Code:
Sub FilterData()
Sheets("Issues_Tracking").Range("A5:P65000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Sheets("Issues_Tracking").Range("Ao5:BD6"), CopyToRange:=Sheets("Filter").Range("B6"), Unique:=False
Columns.AutoFit
Range("A1").Select
End Sub
Can any body suggest me why Code is not working ?
Regards,
Rajender