MS Excel

Téma: Makro - automatický přepočet v 0:11 jak spustit

Zaslal/a Bougee 2.2.2015 17:18

Zdravím.
Mám makro které mi uloží a zavře excel v 0:12-0:14.
Vytvořil jsem nové Makro které když bude 0:11 způsobí automatický přepočet celého excelu a pak se zase přepne na manuální přepočet.
Automatický přepočet bohužel přepočítává skoro neustále takže se někdy stane, že je excel zaneprázdněn a nespustí se makro pro uložení a zavření.

Mé stávající Makro

Sub Calculation()
If ((TimeValue("00:10:00") < TimeValue(Now)) And (TimeValue(Now) < TimeValue("00:12:00"))) Then

'MsgBox "Ok"

Application.Calculation = xlCalculationAutomatic
Else

Application.Calculation = xlCalculationManual

End If

Application.OnTime Now + TimeValue("00:01:00"), "Calculation"
End Sub

podmínka funguje a když to ručně spustím ve stanovený čas tak to automaticky přepočte.
Ale sama se v daný čas nespustí

děkuji za rady a Tipy

Zaslat odpověď >

Poki(3.2.2015 8:50)#023429

Mozna to chapu ale, kdyz chcete:
1) v 0:11 prepocitat sesit
2) v 0:12 ulozit a zavrit

Proč nemít jen jedno makro, ktere se zapne v 0:11, prepocita sesit a potom ulozi a zavre.

Neni potreba menit nastaveni na automaticky prepocet, staci jen donutit excel prepocitat sesit, napr. takto:
Application.CalculateFullcitovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.