Error Handling

[Igwiz]

Hi,

I've run into a problem with my error handling. I didn;t realise that using the On Error Goto line statement actually instigated an error handling routine that rendered future error trapping useless. I was using it as a way to jump say three lines of code and carry on execution

eg

On Error Goto jump
-Error occurs- (1)
.
.
.
jump:
On Error Goto jump1
-Error occurs- (2)
.
.
.
jump1:

But the code hits a fatal error at (2) because it thinks it is in an error handling routine. How do I just jump some lines of code when an error occurs? In the above example, it as a PivotSelect command that sometimes fails because the resulting pivot table is empty and I need to then skip all the copying statements.

Any help would be appreciated.
Thanks,

Ig

 

[xlbo]

use
On Error Goto 0
to reset the error handling until the next On Error....

Rgds, Geoff
[blue]Si hoc signum legere potes, operis boni in rebus Latinus alacribus et fructuosis potiri potes![/blue]
Want the [red]best[/red] answers to your questions ? faq222-2244

 

[Igwiz]

I've done that already and no joy!

 

[xlbo]

that's how on error goto 0 works....
This is an example:

On error goto jump
'code
'code

jump:
'code
on error goto 0
'code
'code
'code
on error goto jump1
'code
'code
jump1:

etc etc

Rgds, Geoff
[blue]Si hoc signum legere potes, operis boni in rebus Latinus alacribus et fructuosis potiri potes![/blue]
Want the [red]best[/red] answers to your questions ? faq222-2244

 

[Igwiz]

I know which is why I am baffled! Here is the part of code not working:

On Error GoTo jump
ActiveSheet.PivotTables("PT).PivotSelect _
"I[ALL]", xlDataAndLabel

Selection.Copy Destination:=Workbooks("x.xls&quot.Sheets("DS&quot.Range("R1&quot

jump:

On Error GoTo 0

ActiveSheet.PivotTables("PT&quot.PivotFields("AC&quot.CurrentPage = "a"

ActiveSheet.PivotTables("PT&quot.PivotFields("AS&quot.CurrentPage = "(blank)"

On Error GoTo jump1

ActiveSheet.PivotTables("PT&quot.PivotSelect _
"I[ALL]", xlLabelOnly

****IT BOMBS OUT AT THE ABOVE LINE BECAUSE THE TABLE IS EMPTY WITH A RUNTIME 1004 ERROR****
.
.
.
jump1:

Very Baffled!

 

[xlbo]

hmmm - very baffled also - your code should work in theory

Rgds, Geoff
[blue]Si hoc signum legere potes, operis boni in rebus Latinus alacribus et fructuosis potiri potes![/blue]
Want the [red]best[/red] answers to your questions ? faq222-2244

 

[Igwiz]

It is definitely the first On Error that is messing it up cuz if I disable that, the second On Error works as expected. I am now puling my hair out!

 

[Igwiz]

CRACKED IT! Inside the code I call another routine and that was triggering the Error routine. Sorry for wasting your time!

 

[xlbo]

no worries - glad you got it resolved

Rgds, Geoff
[blue]Si hoc signum legere potes, operis boni in rebus Latinus alacribus et fructuosis potiri potes![/blue]
Want the [red]best[/red] answers to your questions ? faq222-2244