I recorded a macro for advanced filtering, the first filter is to extract data that meets the criteria(value >0), and the second one using one column (dates) of the first extracted data to get unique data, but this last part is not working as it returns blanks.
This is the code recorded
Sub Macro6()
'
' Macro6 Macro
'
'
Range("A1:G5").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"I1:O2"), CopyToRange:=Range("Q1"), Unique:=False
Columns("S:S").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("Z1" _
), Unique:=True
End Sub
What's wrong?
Thanks
This is the code recorded
Sub Macro6()
'
' Macro6 Macro
'
'
Range("A1:G5").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"I1:O2"), CopyToRange:=Range("Q1"), Unique:=False
Columns("S:S").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("Z1" _
), Unique:=True
End Sub
What's wrong?
Thanks