Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Creating Msg. Box
Hello!
I am trying to determine if there a value ("ADD") doesn't exist in the sheet, to end the macro and have a box that says "You must note an Add line, stupid." Any ideas? All I have at this point is a macro that I recorded that will find "add" Do If Cells.Find(What:="add", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , SearchFormat:=False).Activate = False Thanks Everyone! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Creating Msg. Box
Dim Findnot As Object
Cells.Select Set Findnot = Selection.Find(What:="Add", After:=ActiveCell, LookIn:=xlValues, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False) If Findnot Is Nothing Then MsgBox "You must note an ADD line stupid." End End If wrote in message oups.com... Hello! I am trying to determine if there a value ("ADD") doesn't exist in the sheet, to end the macro and have a box that says "You must note an Add line, stupid." Any ideas? All I have at this point is a macro that I recorded that will find "add" Do If Cells.Find(What:="add", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , SearchFormat:=False).Activate = False Thanks Everyone! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
creating a new key | Excel Discussion (Misc queries) | |||
creating a pdf | Excel Discussion (Misc queries) | |||
Creating | Excel Discussion (Misc queries) | |||
Creating a Log | Excel Programming | |||
Help Creating XLL | Excel Programming |