View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
tpeter tpeter is offline
external usenet poster
 
Posts: 74
Default Conditional Testing of 3 cells

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("B1:D2"), Unique:=False
End If

If Range ("b2:d2") = "" Then
Call ShowAll
Else
Range("A13:N18754").AdvancedFilter Action:=xlFilterInPlace,
CriteriaRange:= _
Range("B1:D2"), Unique:=False
End If

Thank you for your help.

Tim Peter