G
Guest
I'm tying to implement a macro which says, if cell A1 = 0 then "Message Box".
I'm not sure exactly what I'm doing wrong when writing it
I have a spreadsheet set up to do an Advanced Criteria Search. I have
set-up several macro buttons, which once pressed, ask you a question,
prompting you to fill in data. Once you enter the data, your Advanced
Criteria begins to elminate entries not necessary.
I need to implement another macro, this macro once pressed will launch 4 of
those macros above, which prompt for 4 different Advanced Criteria questions.
In cell "Criteria" (F26) it does a Dcount of the Data and show how many are
in the list. If this cell "Criteria" = 0, then I need a messages box that
says "There is no matching criteria with your data". Once you select ok, I
need the Advanced Criteria cleared.
This is what I have, but it doesn't work:
If Range("CRITERIA").Value = 0 Then
InputBox ("There is no matching data with your criteria")
Application.Goto Reference:="Criteriavalues"
Selection.ClearContents
Range("B2").Select
Range("Database").AdvancedFilter Action:=xlFilterInPlace,
CriteriaRange:= _
Range("Criteria"), Unique:=False
End If
I'm not sure exactly what I'm doing wrong when writing it
I have a spreadsheet set up to do an Advanced Criteria Search. I have
set-up several macro buttons, which once pressed, ask you a question,
prompting you to fill in data. Once you enter the data, your Advanced
Criteria begins to elminate entries not necessary.
I need to implement another macro, this macro once pressed will launch 4 of
those macros above, which prompt for 4 different Advanced Criteria questions.
In cell "Criteria" (F26) it does a Dcount of the Data and show how many are
in the list. If this cell "Criteria" = 0, then I need a messages box that
says "There is no matching criteria with your data". Once you select ok, I
need the Advanced Criteria cleared.
This is what I have, but it doesn't work:
If Range("CRITERIA").Value = 0 Then
InputBox ("There is no matching data with your criteria")
Application.Goto Reference:="Criteriavalues"
Selection.ClearContents
Range("B2").Select
Range("Database").AdvancedFilter Action:=xlFilterInPlace,
CriteriaRange:= _
Range("Criteria"), Unique:=False
End If