< návrat zpět

MS Excel

Téma: Spusť makro v čase rss

Zaslal/a Raders486 30.12.2016 10:25

Ahoj.
Potřebuji, aby se mi vytvářela záloha určitého sešitu a to pouze v časovém úseku mezi xx:xx a yy:yy. (třeba od 10:10 do 10:30) V jiném čase bude tedy makro zablokováno.

Nějak mi to ale nepracuje. Poradíte někdo?
Děkuji

Sub Záloha() 'Spustí makro pouze v čase od 10:10 do 10:30

If ((Time <= "10:10:00") And (Time >= "10:30:00")) Then
MsgBox "ŠPATNÝ ČAS, PROBÍHÁ EXPORT DAT "
Else

Call UložVčera(False)
End If
End Sub

Příloha: rar34094_vyhodnoceni-planu-rk.rar (147kB, staženo 21x)
Zaslat odpověď >
Strana:  1 2   další »
Raders486(30.12.2016 10:31)#034095
avatar
Lol už to mám, omlouvám se že jsem rušil a třeba se bude někomu hodit 1

Sub Záloha() 'Spustí makro pouze v čase od 10:10 do 10:30
If ((Time <= "10:10:00") And (Time >= "10:30:00")) Then
Else
End If
If ((Time >= "10:10:00") And (Time <= "10:30:00")) Then
Call UložVčera(False)
Else
End If

End Sub
Sub UložVčera(x As Boolean)

ActiveWorkbook.SaveAs Filename:= _
"\\STORAGE2\vyroba\Planovani_vyroby\Vyhodnocování plánů\Plány kovo vyhodnocení " & FORMAT(Date, "") & ".xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

ActiveWorkbook.Close

x = True

End Subcitovat
elninoslov(30.12.2016 11:41)#034096
elninoslov
Poznámky:
- Makro sa Vám samé určite nespustí. Treba použiť napr timer OnTime
- Tá podmienka nemôže fungovať. Máte tam AND. Teda kontrolujete či je menej ako 10:10 a zároveň či je viacej ako 10:30 :) Nemôže byť naraz aj pod 10:10 a aj nad 10:30. Teda napr:
Sub Záloha() 'Spustí makro pouze v čase od 10:10 do 10:30
If ((CStr(Time) <= "10:10:00") Or (CStr(Time) >= "11:30:00")) Then
MsgBox "ŠPATNÝ ČAS, PROBÍHÁ EXPORT DAT"
Else
Call UložVčera(False)
End If
End Sub
-Postrádam zmysel parametru procedúry UložVčera. Ten parameter nemá žiadny zmysel ani vplyv na nič.citovat
marjankaj(30.12.2016 11:50)#034097
avatar
@elninoslov
Určite si to spúšťa nejakým tlačítkom. 2citovat
Raders486(30.12.2016 14:40)#034101
avatar
Jak poznamenal marjankaj, ano pouští se tlačítkem.

Call UložVčera(False) - je další makro, které se spustí při plnění výše uvedené podmínky a otvírá právě sešit, který byl vytvořen včera jako kopie a obsahuje data z předešlého dne.

Slouží mi to tak k porovnání toho, kolik bylo včera zaplánovaného celkového času a kolik je dnes. Jelikož oba exporty vyjedou ze systému ve stejnou dobu, porovnávám tak vždy úbytek času za stejné časové období.

Snad je to pochopitelné.

I tak děkuji za opravu.citovat
Raders486(30.12.2016 14:42)#034102
avatar
Každopádně druhá varianta, kterou jsem tu hned z kraje, uvedl mi funguje.citovat
marjankaj(30.12.2016 15:09)#034103
avatar
A čo v prípade, že sa ti nepodarí na to tlačítko kliknúť v správnom čase? Teda o 10:31 ???? To bude asi průser. 2citovat
Raders486(30.12.2016 15:15)#034104
avatar
Tak by se neměla Sub UložVčera(x As Boolean) spustit a tím pádem je to ok.

Nebo se pletu?

Export leze vždy v hh:05 a hh:35. Já však potřebuji, aby se vytvořila záloha pouze z exportu, který vyleze v čase 10:05.citovat
marjankaj(30.12.2016 15:21)#034105
avatar
Neviem, čo k tomuto dodať. Na toto je moja logika krátka. 7citovat
Raders486(30.12.2016 15:26)#034106
avatar
5

Celkové makro běží 2x za hodinu 24 hodin denně. Já potřebuji porovnávat dvě tabulky cca 70 listů v každém cca 5000 řádků ze stejného okamžiku, ale s 24 hodinovým rozestupem.

Je to takové komplikovanější.citovat
marjankaj(30.12.2016 15:54)#034107
avatar
A kedy chodíš spať? Keď musíš každú polhodinu klikať na tlačítko? 2citovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje