Zdravim
Mam problém, úplně nevím jak to správně popsat. Tak přikládám soubor.
Při otevření sešitu se spustí odpočet na 20 sec a při uzavření se má zvýšit údaj v listu 2 o jedna. Celý to funguje pokud sešit uzavřu normálně ručně. Ale pokud ho uzavírá makro, tak sice ta část s připočtením proběhne, ale nedojde k přepnuti na list2, ale zapíše se to do aktualního listu.
Kde je chyba?
Díky za rady
Makro při událsti before close nejede správně Vyřešeno
Makro při událsti before close nejede správně
- Přílohy
-
- test1.xlsm
- (16.05 KiB) Staženo 12 x
Re: Makro při událsti before close nejede správně
Taky mě to překvapilo. Událost "beforeClose" zřejmě neumí označit list jako aktivní. Nevím proč, ale to je ten důvod proč to nefunguje, jinýho mě nenapadá. Ovšem při ručním CLOSE to zas funguje, tak nechápu.
Ten "nefungující" příkaz Select je potřeba vynechat:
Obecné doporučení: Příkazu "Select" je dobré se vyhýbat. Hodně zpomaluje běh kodu, a pak se snadněji při jeho používání chybuje.
Ten "nefungující" příkaz Select je potřeba vynechat:
Kód: Vybrat vše
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Stop
On Error Resume Next
Application.OnTime setcas, procedure:="zavreni", schedule:=False
Worksheets("list2").Cells(1, 1) = Worksheets("list2").Cells(1, 1) + 1
ActiveWorkbook.Save
End Sub
Obecné doporučení: Příkazu "Select" je dobré se vyhýbat. Hodně zpomaluje běh kodu, a pak se snadněji při jeho používání chybuje.
Re: Makro při událsti before close nejede správně Vyřešeno
Je to zajímavý, ale díky za řešení, pořád jsem přemejšlel co je špatně a nějak mně nenapadlo to přepsat jinak
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 24
- 3743
-
od 28nitro28
Zobrazit poslední příspěvek
28 zář 2023 06:18
-
-
Správne nastavenie Serveru + Nextcloudu Příloha(y)
od mimi973 » 26 úno 2024 15:40 » v Administrace sítě - 0
- 786
-
od mimi973
Zobrazit poslední příspěvek
26 úno 2024 15:40
-
-
- 9
- 1125
-
od mmmartin
Zobrazit poslední příspěvek
29 srp 2023 16:47
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 4 hosti