Jak zastavit bezici makro jinym makrem? Vyřešeno

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

jiri255
Level 1.5
Level 1.5
Příspěvky: 105
Registrován: leden 13
Pohlaví: Muž
Stav:
Offline

Jak zastavit bezici makro jinym makrem?

Příspěvekod jiri255 » 29 úno 2016 18:53

Zdravím,
a prosím o radu, zdali někdo nevíte, jak zastavit běžící makro jiným makrem?
Do ThisWorkbook jsem si dal následující kód, který po otevření excelu spustí
makro "UpDate", které každou minutu aktualizuje excel.

Kód: Vybrat vše

Private Sub Workbook_Open()
 Application.Run "UpDate"
 End Sub

Což funguje skvěle, ale mám v tom excelu tlačítko a pod ním mám jiné makro
a potřeboval bych nějak v tom makru napsat prvně zastavení toho makra "UpDate"
něco jako "Application.Stop "UpDate" což nefunguje, pak můj kód a na konci zase
opětovné spuštění což jediné vím to je to "Application.Run "UpDate" "

Kód: Vybrat vše

Sub MojeMakro()
'tady nějak zastavit makro "UpDate"

'část pro moje makro

'a opět spuštění toho
Application.Run "UpDate"
End Sub


Předem děkuji za pomoc

Reklama
cmuch
Level 4.5
Level 4.5
Příspěvky: 1544
Registrován: březen 11
Bydliště: Drsná Vysočina :D
Pohlaví: Muž
Stav:
Offline

Re: Jak zastavit bezici makro jinym makrem?

Příspěvekod cmuch » 03 bře 2016 17:24

Můžeš zkusit

Kód: Vybrat vše

Dim TimerActive As Boolean
Sub StartTimer()
    'odstartovani timeru
    Start_Timer
End Sub

Private Sub Start_Timer()
    TimerActive = True
    Application.OnTime Now() + TimeValue("00:00:03"), "Timer"
End Sub

Private Sub Stop_Timer()
    'zastaveni timeru
    TimerActive = False
End Sub

Private Sub Timer()
    If TimerActive Then
        ActiveSheet.Cells(1, 1).Value = Time
        Application.OnTime Now() + TimeValue("00:00:03"), "Timer"
    End If
End Sub

jiri255
Level 1.5
Level 1.5
Příspěvky: 105
Registrován: leden 13
Pohlaví: Muž
Stav:
Offline

Re: Jak zastavit bezici makro jinym makrem?

Příspěvekod jiri255 » 04 bře 2016 19:25

děkuji za odpověď otestoval jsem to a nějak se mi to nepodařilo zprovoznit :-(
měl jsem to celé vložené v ThisWorkbook uložené jako .xlsm a povolená makra,
ale nic to nedělá asi jsem někde udělal chybu?

cmuch
Level 4.5
Level 4.5
Příspěvky: 1544
Registrován: březen 11
Bydliště: Drsná Vysočina :D
Pohlaví: Muž
Stav:
Offline

Re: Jak zastavit bezici makro jinym makrem?

Příspěvekod cmuch » 04 bře 2016 20:11

Nene, dej to do normálního modulu.

jiri255
Level 1.5
Level 1.5
Příspěvky: 105
Registrován: leden 13
Pohlaví: Muž
Stav:
Offline

Re: Jak zastavit bezici makro jinym makrem?

Příspěvekod jiri255 » 06 bře 2016 18:58

aha, tak už jsem na to asi přišel teda jestli to mám tak správně a nebude to dělat nějaký problémy?
tento kód jsem dal do normálního modulu:

Kód: Vybrat vše

Dim TimerActive As Boolean
Sub StartTimer()
    'odstartovani timeru
    Start_Timer
End Sub

Private Sub Start_Timer()
    TimerActive = True
    Application.OnTime Now() + TimeValue("00:00:03"), "Timer"
End Sub

Sub Stop_Timer()
    'zastaveni timeru
    TimerActive = False
End Sub

Private Sub Timer()
    If TimerActive Then
        ActiveSheet.Cells(1, 1).Value = Time
        Application.OnTime Now() + TimeValue("00:00:03"), "Timer"
    End If
End Sub

a jelikož se to nechtělo automaticky spouštět po startu, tak tento jsem přidal do ThisWorkbook:

Kód: Vybrat vše

Private Sub Workbook_Open()
 Application.Run "StartTimer"
End Sub

a teď je to myslím OK, po otevření sešitu se to samo spustí a tím makrem "Stop_Timer"
to v případě potřeby zastavím a pak si to zase tím "Start_Timer" spustím což funguje fakt
skvěle díky za pomoc :thumbup:

cmuch
Level 4.5
Level 4.5
Příspěvky: 1544
Registrován: březen 11
Bydliště: Drsná Vysočina :D
Pohlaví: Muž
Stav:
Offline

Re: Jak zastavit bezici makro jinym makrem?

Příspěvekod cmuch » 07 bře 2016 06:25

Já myslím, že to tak můžeš nechat.

jiri255
Level 1.5
Level 1.5
Příspěvky: 105
Registrován: leden 13
Pohlaví: Muž
Stav:
Offline

Re: Jak zastavit bezici makro jinym makrem?  Vyřešeno

Příspěvekod jiri255 » 07 bře 2016 17:23

OK nechám to tedy takto. Děkuji za pomoc funguje skvěle :clap:


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Makro pro myš Rapture Python
    od mmmartin » 27 srp 2023 15:18 » v Problémy s hardwarem
    9
    1111
    od mmmartin Zobrazit poslední příspěvek
    29 srp 2023 16:47

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: elninoslov a 5 hostů