T
tpeter
I have a large spreadsheet that runs a macro using the advance filter to
isolate data and change the carts respectivly. The criteria range is b2:d2,
the macro and filter works well as long as there is information in cell b2.
If I only use cells c2 and d2 to sort the information the code breaks. What I
am trying to accomplish is if cells b2:d2 are all blank then showalldata, if
there is one of these cells that has information in it sort by that
information. Here is some of the codes that I have tryed:
If (IsEmpty("b2") And IsEmpty("C2") And
IsEmpty("D2")) Then
Call ShowAll
Else
Range("A13:N18754").AdvancedFilter Action:=xlFilterInPlace,
CriteriaRange:= _
Range("B12"), Unique:=False
End If
If Range ("b2:d2") = "" Then
Call ShowAll
Else
Range("A13:N18754").AdvancedFilter Action:=xlFilterInPlace,
CriteriaRange:= _
Range("B12"), Unique:=False
End If
Thank you for your help.
Tim Peter
isolate data and change the carts respectivly. The criteria range is b2:d2,
the macro and filter works well as long as there is information in cell b2.
If I only use cells c2 and d2 to sort the information the code breaks. What I
am trying to accomplish is if cells b2:d2 are all blank then showalldata, if
there is one of these cells that has information in it sort by that
information. Here is some of the codes that I have tryed:
If (IsEmpty("b2") And IsEmpty("C2") And
IsEmpty("D2")) Then
Call ShowAll
Else
Range("A13:N18754").AdvancedFilter Action:=xlFilterInPlace,
CriteriaRange:= _
Range("B12"), Unique:=False
End If
If Range ("b2:d2") = "" Then
Call ShowAll
Else
Range("A13:N18754").AdvancedFilter Action:=xlFilterInPlace,
CriteriaRange:= _
Range("B12"), Unique:=False
End If
Thank you for your help.
Tim Peter