• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Vypnutí makra při běhu jiného

Zaslal/a Martin12345678 6.11.2013 23:22

Zdravím:-)
Potřeboval bych konzultaci...Jde vypnout níže uvedený kód při spuštění jiného makra? Trošku víc mě to hapruje když makrem vkládám položky z jiného listu.
Níže uvedený kód mám na listu, ale Jiné makro se spouští z modulu. Je nějaký příkaz jak toto makro zastavit a pak zase spustit?
Nebo mě napadlo:
Popřípadě níže uvedený kód by se spouštěl pouze pokud by byla splněna podmínka př. by v buňce A1 byla uvedená hodnota PRAVDA. Šlo by to nějak vložit do kódu?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C26:L373")) Is Nothing Then
If Rows(Target.Row + 1).Hidden = False Then
Exit Sub
Else
Rows(Target.Row + 1).Hidden = False
End If
End If
End Sub

Zaslat odpověď >

---

AL(7.11.2013 1:03)#016149

Jde vypnout níže uvedený kód při spuštění jiného makra?
Ahoj, nakoľko horeuvedený kód je udalostná procedúra,
tak niekam na začiatok toho druhého kódu, ktorý spôsobuje udalosť Worksheet_Change tým, že do daného listu niečo vpisuje, zadaj inštrukciu:Application.EnableEvents = Falsea pred jeho dobehnutím niekam na koniec pre zmenu Application.EnableEvents = Truecitovat

Martin12345678(7.11.2013 1:07)#016150

Děkuji za radu vyzkouším..
Tak jsem pár kódů tady prostudoval a pak metoda pokus omyl...před kód jsem vložil

If Range("Autozobrazradky") Then
Else
'a na konec
End If
Funguje to tak, jen prosím někoho zkušenějšího o potvrzení, že se nejedná o blbost a může to tak být

Celé znění kódu je tedy:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("Autozobrazradky") Then
Else
If Not Intersect(Target, Range("C26:L373")) Is Nothing Then
If Rows(Target.Row + 1).Hidden = False Then
Exit Sub
Else
Rows(Target.Row + 1).Hidden = False
End If
End If
End if
End Subcitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse