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 ?