Exit sub or End? Vyřešeno

[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...

[Reklama]

[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

[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...

[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.

[arasid]

JO! presne to som tam mal .. uz to fachci ako ma.. Dakujem!