Makro na ukládání sešitu

[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.

[X]

Použij můj kód:

http://www.pc-help.cz/viewtopic.php?t=191441&start=6

[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

[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 ?