Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
object variable or with block not set
This is what I currently have, however if my entry is not in the range then it makes me debug saying object variable not set or with block not set. Is there anyway that I can actually have a msgbox "Not found" pop up if the entry entered is not in the list. Range("A1:A500").Select Dim EmailAddress As String EmailAddress = InputBox("enter Email Address", "Email Address") Selection.Find(What:=EmailAddress, After:=ActiveCell, LookIn:=xlFormulas, _ Lookat:=xlPart, Searchorder:=xlByRows, searchdirection:=xlNext, _ MatchCase:=False, searchformat:=False).Activate Thanks for any help -- jhahes ------------------------------------------------------------------------ jhahes's Profile: http://www.excelforum.com/member.php...o&userid=23596 View this thread: http://www.excelforum.com/showthread...hreadid=521150 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
object variable or with block not set
Dim Found as Range
..... set Found = Selection.Find(...) if found is Nothing then msgbox "not found" HTH -- AP "jhahes" a écrit dans le message de ... This is what I currently have, however if my entry is not in the range then it makes me debug saying object variable not set or with block not set. Is there anyway that I can actually have a msgbox "Not found" pop up if the entry entered is not in the list. Range("A1:A500").Select Dim EmailAddress As String EmailAddress = InputBox("enter Email Address", "Email Address") Selection.Find(What:=EmailAddress, After:=ActiveCell, LookIn:=xlFormulas, _ Lookat:=xlPart, Searchorder:=xlByRows, searchdirection:=xlNext, _ MatchCase:=False, searchformat:=False).Activate Thanks for any help -- jhahes ------------------------------------------------------------------------ jhahes's Profile: http://www.excelforum.com/member.php...o&userid=23596 View this thread: http://www.excelforum.com/showthread...hreadid=521150 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
object variable or with block not set
I tried the solution and got the same error both times now. When I found the entry and when I didn't find the entry. Josh -- jhahes ------------------------------------------------------------------------ jhahes's Profile: http://www.excelforum.com/member.php...o&userid=23596 View this thread: http://www.excelforum.com/showthread...hreadid=521150 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
object variable or with block not set
This works by me:
'------------------------------ Sub test() Dim EmailAddress As String Dim found As Range Range("A1:A500").Select EmailAddress = InputBox( _ "enter Email Address", _ "Email Address") Set found = Selection.Find( _ What:=EmailAddress, _ After:=ActiveCell, _ LookIn:=xlFormulas, _ Lookat:=xlPart, _ Searchorder:=xlByRows, _ searchdirection:=xlNext, _ MatchCase:=False) If found Is Nothing Then MsgBox "Not found" Else found.Activate End If End Sub -- HTH -- AP "jhahes" a écrit dans le message de ... I tried the solution and got the same error both times now. When I found the entry and when I didn't find the entry. Josh -- jhahes ------------------------------------------------------------------------ jhahes's Profile: http://www.excelforum.com/member.php...o&userid=23596 View this thread: http://www.excelforum.com/showthread...hreadid=521150 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Runtime Error '91' Object variable or With block variable not set | Excel Discussion (Misc queries) | |||
Getting inconsistent Error 91-Object variable or With block variable not set | Excel Programming | |||
Run-time error '91': "Object variable or With block variable not set | Excel Programming | |||
Cells.Find error Object variable or With block variable not set | Excel Programming | |||
Pivot Table - Object variable or with block variable not set? | Excel Programming |