Stránka 1 z 1

Exit sub or End?

Napsal: 09 srp 2012 16:24
od arasid
Cawte,
mam dlasiu halusku :).. v jednom makre na nastavenie Pivotu sa mi obcas vyhodi error, lebo zvolena hodnota sa nenachadza v tabulke..
Chcem zabranit tomu, aby mipri zlej hodnote exovalo, tak ma napadlo, ze tam dam On error..
Problem je, ze po vyhodeni upozornenia potrebujem aby mi makro opusitlo vsetky Sub SUB1(SUB2(SUB3(Err))), no aby makra isli dalej...
Ked tam dam End, tak mi to sice vsetko opusti, ale uz mi nejde Worksheet_change, iba po restarte Excelu

Kód: Vybrat vše

On Error Resume Next                   
                blab = Field.PivotItems(ItemName)
                If Err.Number = 0 Then
                MsgBox "chyba"
                End If


je nejaka moznost ako zas nastartovat makra po prikaze End? aby som nemusel restartovat excel...

Re: Exit sub or End?

Napsal: 09 srp 2012 16:29
od d1amond
Pokud na konci uvedeš err.Number = 0, tak to znamená, že chyba nenastala. Používá se err.Number <> 0

Pokud chceš po vyhodnocení podmínky skončit proceduru, použij exit sub

Kód: Vybrat vše

On Error Resume Next                   
                blab = Field.PivotItems(ItemName)
                If Err.Number <> 0 Then
                MsgBox "chyba"
                Exit Sub
                End If


Osobně se mi víc hodí a lépe aplikuje On error goto errHandler

Re: Exit sub or End?

Napsal: 10 srp 2012 09:50
od arasid
hups hej sorac.. som to sem zle napisal s tym "="...
Ale ide o to ze Exit sub neriesi moj problem, ten opusti len povodny sub a sub pod nim pokracuje v uprave dalsej tabulky, cim sa opetovne zvoli makro s errorom a znova vyhodi chybovu hlasku..
Ak by som pouzil len exit sub musel by som odkliknut asi 15 okienok s chybovou hlaskou.. preto potrebujem aby opustilo vsetky Subs.. S End to ide, ale po nom mi prestane fungovat aj worksheet_change...

Re: Exit sub or End?  Vyřešeno

Napsal: 11 srp 2012 17:35
od cmuch
Nenastavuješ někde před tím End toto Application.EnableEvents = False?
Potom by stačilo to jen povolit pokud je chyba a má se makro ukončit. A mělo by vše jít.

Re: Exit sub or End?

Napsal: 13 srp 2012 09:21
od arasid
JO! presne to som tam mal :D.. uz to fachci ako ma.. Dakujem!