Stránka 1 z 1

Makro na ukládání sešitu

Napsal: 17 zář 2017 23:37
od Jsimi
Ahoj,
Mám makro které ukládá sešit a přidává do názvu hodnotu z určené buňky. Bohužel nemohu přijít na jak ho upravit, aby název nového souboru byl např. Check list "aktuální datum" "aktuální čas".xlsm
Mě vyleze název tak jako v příloze.
Předem díky za radu.

Re: Makro na ukládání sešitu

Napsal: 18 zář 2017 00:09
od X

Re: Makro na ukládání sešitu

Napsal: 18 zář 2017 01:50
od Jsimi
Ahoj,
Velmi jednoduché a funkční, jen nevím jak se zbavit vytváření tohoto souboru "Microsoft Office Excel Backup File (.xlk)"

Dodatečně přidáno po 1 hodině 9 minutách 21 vteřinách:
Omlouvám se, chyba na mé straně. Vyřešeno.
Díky

Re: Makro na ukládání sešitu

Napsal: 18 zář 2017 06:38
od elninoslov
Pridajte si do deklarácie :

Kód: Vybrat vše

Datum As Long, Cas As Double

Riadky :

Kód: Vybrat vše

'Vloží datum
    Range("C3") = Date
   
'Vloží čas
    Range("D3") = Time

zmente na :

Kód: Vybrat vše

'Vloží datum
    Datum = Date
    Range("C3") = Datum
   
'Vloží čas
    Cas = Time
    Range("D3") = Cas

Riadok

Kód: Vybrat vše

jmeno = "Check list č." & Range("D3") & Range("C3") 'k názvu se takhle přidá číslo pořadí dle parametru v buňce F5

zmente na :

Kód: Vybrat vše

jmeno = "Check list č." & Format(Datum + Cas, "dd.mm.yyyy hh:nn") 'k názvu se takhle přidá číslo pořadí dle parametru v buňce F5

Ale o akom čísle v F5 ešte vravíte ?