Makro na ukládání sešitu

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

Jsimi
Level 1.5
Level 1.5
Příspěvky: 108
Registrován: červen 12
Pohlaví: Muž

Makro na ukládání sešitu

Příspěvekod Jsimi » 17 zář 2017 23:37

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.
Nemáte oprávnění prohlížet přiložené soubory.



Reklama
Uživatelský avatar
X
Tvůrce článků
Elite Level 12.5
Elite Level 12.5
Příspěvky: 18940
Registrován: květen 07
Pohlaví: Muž

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

Příspěvekod X » 18 zář 2017 00:09

Naposledy upravil(a) X dne 18 zář 2017 03:09, celkem upraveno 1 x.

Jsimi
Level 1.5
Level 1.5
Příspěvky: 108
Registrován: červen 12
Pohlaví: Muž

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

Příspěvekod Jsimi » 18 zář 2017 01:50

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

Uživatelský avatar
elninoslov
Level 2
Level 2
Příspěvky: 154
Registrován: červen 13
Pohlaví: Muž

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

Příspěvekod elninoslov » 18 zář 2017 06:38

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 ?


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Excel propojení dvou sešitů po síti
    od HonzaHonza » 30 zář 2017 09:07 » v Kancelářské balíky
    0
    376
    od HonzaHonza
    30 zář 2017 09:07
  • VBA Ukládání přílohy+přejmenování
    od tomd » 13 dub 2018 09:56 » v Kancelářské balíky
    1
    296
    od elninoslov
    13 dub 2018 11:06
  • Nastavení práv pro ukládání na SSD disk
    od Petrfoo » 01 lis 2017 13:49 » v Windows 10, 8, 7, Vista, XP…
    1
    237
    od zeus
    01 lis 2017 16:18
  • Ukládání fotek na nepoužívaný HDD a výběr nové televize
    od Roidoc » 25 úno 2018 17:19 » v Vše ostatní (hw)
    1
    335
    od petr22
    25 úno 2018 17:30
  • Re: EXCEL MAKRO
    od elninoslov » 07 čer 2018 14:03 » v Kancelářské balíky
    0
    415
    od elninoslov
    07 čer 2018 14:03

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 0 hostů