Automatické spuštění makra

Programy pro práci s textem, tabulkami, prezentacemi

Moderátor: Moderátoři Živě.cz

Odeslat příspěvekod marten1 29. 1. 2015 15:18

Jak automaticky spustit makro ve stanovený čas.Vím,že to pomocí fc OnTime;ale nefvím jak.Díky
marten1
Kolemjdoucí

Odeslat příspěvekod Kurimak 30. 1. 2015 06:33

Automatické spuštění makra "Pokus" v určitou dobu:
Kód: Vybrat vše
Application.OnTime TimeValue("18:30"), "Pokus"

ukončení automatického spouštění:
Kód: Vybrat vše
Application.OnTime TimeValue("18:30"), "Pokus", , False

periodické spuštění v intervalu 5 minut:
Kód: Vybrat vše
Application.OnTime Now + TimeValue("00:05"), "Pokus"
Kurimak
Junior

Odeslat příspěvekod marten1 30. 1. 2015 14:59

Díky za tvůj čas.Zkoušel jsem tohle,ale nefunguje.Přičemž samotné makro "Pokus" funguje.
Nevím kde je chyba.

Sub On_Time_Pulnoc()
Dim Pulnoc
Pulnoc = #12:00:00 AM#
Application.OnTime Pulnoc + TimeValue("13:40:00"), "Pokus"
End Sub

Sub Pokus()
Sheets("Data").Range("D5").Value = 24
End Sub
marten1
Kolemjdoucí

Odeslat příspěvekod Kurimak 2. 2. 2015 06:13

Kód: Vybrat vše
Application.OnTime  TimeValue("13:40:00"), "Pokus"
Kurimak
Junior

Odeslat příspěvekod snezenek 12. 9. 2015 17:41

Vím v čem je asi chyba místo "Pokus" zkus napsat "List1.Pokus" (podle toho, ke kterému listu máš přiřazené makro
snezenek
Kolemjdoucí


Kdo je online

Uživatelé procházející toto fórum: Žádní registrovaní uživatelé a 0 návštevníků