Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
"On Error" help required
Dear Friends,
In the code given below if there is no error then also the msg box is displayed. Any help please. Sub Macro1() Dim Thyag On Error GoTo Thyagaraj_Not_Found Cells.Find(What:="Thyagaraj", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False).Activate With Selection.Interior .ColorIndex = 6 .Pattern = xlSolid Thyagaraj_Not_Found: 'Selection.Font.Bold = True Thyag = MsgBox("Thyagaraj not found") End With End Sub Thanks in Advance Thyagaraj |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
"On Error" help required
add:
Exit Sub see below what i modified your code: Sub Macro1() Dim Thyag On Error GoTo Thyagaraj_Not_Found Cells.Find(What:="Thyagaraj", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False).Activate With Selection.Interior .ColorIndex = 6 .Pattern = xlSolid exit sub Thyagaraj_Not_Found: 'Selection.Font.Bold = True Thyag = MsgBox("Thyagaraj not found") End With End Sub "Thyagaraj" wrote: Dear Friends, In the code given below if there is no error then also the msg box is displayed. Any help please. Sub Macro1() Dim Thyag On Error GoTo Thyagaraj_Not_Found Cells.Find(What:="Thyagaraj", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False).Activate With Selection.Interior .ColorIndex = 6 .Pattern = xlSolid Thyagaraj_Not_Found: 'Selection.Font.Bold = True Thyag = MsgBox("Thyagaraj not found") End With End Sub Thanks in Advance Thyagaraj |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
"On Error" help required
Hi,
You need to terminate the normal sub before the error handling part by mentionning Exit sub Sub Macro1() On Error GoTo Thyagaraj_Not_Found ......... Exit sub Thyagaraj_Not_Found : ........ End sub Sub Macro1() Dim Thyag On Error GoTo Thyagaraj_Not_Found Cells.Find(What:="Thyagaraj", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False).Activate With Selection.Interior .ColorIndex = 6 .Pattern = xlSolid End with Exit Sub Thyagaraj_Not_Found: Thyag = MsgBox("Thyagaraj not found") End Sub Regards JY "Thyagaraj" wrote in message oups.com... Dear Friends, In the code given below if there is no error then also the msg box is displayed. Any help please. Sub Macro1() Dim Thyag On Error GoTo Thyagaraj_Not_Found Cells.Find(What:="Thyagaraj", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False).Activate With Selection.Interior .ColorIndex = 6 .Pattern = xlSolid Thyagaraj_Not_Found: 'Selection.Font.Bold = True Thyag = MsgBox("Thyagaraj not found") End With End Sub Thanks in Advance Thyagaraj |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
"On Error" help required
You need an 'Exit Sub' before the start of your 'Thyagaraj_Not_Found: '
error-handling code. Otherwise the code runs all the way to 'End Sub', line by line, including the lines in your error handler. Personally, I would insert a label for the 'Exit' code, so that the error-handler (and any other exit point in your code) can resume at a block of code containing any 'cleanup' routines you use at the end of the procedu ExitSub: [cleanups - erase arrays, set objects = Nothing etc.] Exit Sub ErrThyagaraj_Not_Found: [Error-Handling code] Resume ExitSub End Sub |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
"On Error" help required
Nile_Hef wrote: You need an 'Exit Sub' before the start of your 'Thyagaraj_Not_Found: ' error-handling code. Otherwise the code runs all the way to 'End Sub', line by line, including the lines in your error handler. Personally, I would insert a label for the 'Exit' code, so that the error-handler (and any other exit point in your code) can resume at a block of code containing any 'cleanup' routines you use at the end of the procedu ExitSub: [cleanups - erase arrays, set objects = Nothing etc.] Exit Sub ErrThyagaraj_Not_Found: [Error-Handling code] Resume ExitSub End Sub Thanks for all of U |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro to Create New Worksheet and Reference Cell in Old Worksheet As Tab Name - "Object Required" Error | Excel Discussion (Misc queries) | |||
"Microsoft Visual Basic runtime error '424' object required". | Excel Worksheet Functions | |||
What is Error "Method "Paste" of object "_Worksheet" failed? | Excel Programming | |||
error while compiling "OBJECT REQUIRED" | Excel Discussion (Misc queries) | |||
Getting "Object Required" Error Message - Need Help !!! | Excel Programming |