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: 102
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: 18719
Registrován: květen 07
Bydliště: ČR: Vysočina: Havlíčkův Brod
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.
KATEGORIE:​SYSTÉM​NET​DATA​EMULACE​HRY​VIDEO​AUDIO​GRAFIKA​TEXT‌​‌​ ‌​‌​APP‌‌‌‌​Brigády‌​Filmy‌​Firefox​​●‌​FormátHlavolam‌​●‌​Hra‌​●‌​Hry‌​​Ikony‌​Klipy‌​Knihy‌​●‌​KomixyKoš‌​Melodrama‌​NákupyOdkazy‌​OS‌​Plné hry‌​●‌​RubikSam CoupéSoftware‌​●‌​Šedá zónaTV‌​‌​TV‌​Úložiště‌​VideoNovinky‌​Zajímavosti‌​Znaky

Jsimi
Level 1.5
Level 1.5
Příspěvky: 102
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

elninoslov
nováček
Příspěvky: 23
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
  • Makro VBA kopírování z jiného sešitu
    od Acce » 28 srp 2017 09:48 » v Kancelářské balíky
    6
    264
    od Acce
    31 srp 2017 16:01
  • Excel - nefunkční propojení dvou sešitů
    od hruskad » 07 pro 2016 13:23 » v Kancelářské balíky
    1
    343
    od atari
    09 pro 2016 14:25
  • Kopírování a třídění označených buněk do jiných sešitů
    od jacobh » 09 bře 2017 10:28 » v Kancelářské balíky
    3
    352
    od xlnc
    10 bře 2017 17:26
  • Excel propojení dvou sešitů po síti
    od HonzaHonza » 30 zář 2017 09:07 » v Kancelářské balíky
    0
    114
    od HonzaHonza
    30 zář 2017 09:07
  • Nastavení ukládáni aplikací
    od lucaso84 » 09 srp 2017 10:26 » v Mobily, tablety a jiná přenosná zařízení
    2
    176
    od lucaso84
    09 srp 2017 11:20

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

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 2 hosti