Zdravím všechny excel-mistry ...
Mám na vás velkou prosbu.
Někde jsem viděl návod na jednoduché makro na ukládání sešitu pod novým názvem.
Jsem schopný udělat si záznam makra na uložení, ale už ho nedokážu naučit, aby za název použil hodnotu z buňky A5...
Poradíte, prosím?
Díky
Excel - makro na uložení sešitu Vyřešeno
- mike007
- Master Level 7.5
- Příspěvky: 5860
- Registrován: srpen 07
- Bydliště: Pardubice
- Pohlaví:
- Stav:
Offline
- Kontakt:
Re: Excel - makro na uložení sešitu
Vítej na PC-HELP
Kód: Vybrat vše
Sub ulozit()
jmeno = Range("A5")
ActiveWorkbook.SaveAs Filename:= _
jmeno
MsgBox "Dokument uložen pod názvem " & jmeno
End Sub
Nejlepší hra je Excel!
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
Re: Excel - makro na uložení sešitu
Děkuju moc, vyzkouším a ozvu se.
C.
C.
Re: Excel - makro na uložení sešitu
Hmm, tak jsem asi natvrdlej ...
nedaří se a nedaří se ..
Mám v tom chybu a jako začátečník ji neumím najít ...
Potřebuju to uložit do:
Uložit Macro
'
ChDir "C:\K\BH"
jmeno = Range("A5")
ActiveWorkbook.SaveAs Filename:="C:\K\BH\ _ jmeno"
MsgBox "Dokument uložen pod názvem " & jmeno
End Sub
nedaří se a nedaří se ..
Mám v tom chybu a jako začátečník ji neumím najít ...
Potřebuju to uložit do:
Uložit Macro
'
ChDir "C:\K\BH"
jmeno = Range("A5")
ActiveWorkbook.SaveAs Filename:="C:\K\BH\ _ jmeno"
MsgBox "Dokument uložen pod názvem " & jmeno
End Sub
- mike007
- Master Level 7.5
- Příspěvky: 5860
- Registrován: srpen 07
- Bydliště: Pardubice
- Pohlaví:
- Stav:
Offline
- Kontakt:
Re: Excel - makro na uložení sešitu
Trošku si mě zmátl tím ChDir. To tam není potřeba.
Takhle by to mělo stačit :
S ChDir takto :
Takhle by to mělo stačit :
Kód: Vybrat vše
Sub ulozit()
jmeno = Range("A5")
ActiveWorkbook.SaveAs Filename:="C:\K\BH\" & jmeno
MsgBox "Dokument uložen pod názvem " & jmeno
End Sub
S ChDir takto :
Kód: Vybrat vše
Sub ulozit()
ChDir "C:\K\BH"
jmeno = Range("A5")
ActiveWorkbook.SaveAs Filename:=jmeno
MsgBox "Dokument uložen pod názvem " & jmeno
End Sub
Nejlepší hra je Excel!
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
Re: Excel - makro na uložení sešitu
Děkuju moc, už to funguje ... není nad to zeptat se odborníků :-)
PS: Ten ChDir se mi načetl sám ze záznamu makra ...
PS: Ten ChDir se mi načetl sám ze záznamu makra ...
- mike007
- Master Level 7.5
- Příspěvky: 5860
- Registrován: srpen 07
- Bydliště: Pardubice
- Pohlaví:
- Stav:
Offline
- Kontakt:
Re: Excel - makro na uložení sešitu
Nemáš zač. Odborník nejsem, jen mě Excel baví.
Nejlepší hra je Excel!
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
Re: Excel - makro na uložení sešitu
Ještě dotaz, kdybych to chtěl dotáhnout k úplné dokonalosti ...
Lze udělat to, aby byl adresář BH nahraditelný údajem z buňky A7?
A úplně poslední ... soubor se uloží i s tlačítkem s makrem. Jde to udělat tak, aby se uložil jen "čistý soubor" s daty?
Lze udělat to, aby byl adresář BH nahraditelný údajem z buňky A7?
A úplně poslední ... soubor se uloží i s tlačítkem s makrem. Jde to udělat tak, aby se uložil jen "čistý soubor" s daty?
-
- Level 1
- Příspěvky: 58
- Registrován: duben 07
- Pohlaví:
- Stav:
Offline
- Kontakt:
Re: Excel - makro na uložení sešitu
Ty jo to jsem vubec nevedel co vsechno se da v exelu delat :).Nevite o nejaky dobry strance,kde je Virtual Basic popsanej pro blby?Napadlo me par veci ktery bych chtel zkusit.
- mike007
- Master Level 7.5
- Příspěvky: 5860
- Registrován: srpen 07
- Bydliště: Pardubice
- Pohlaví:
- Stav:
Offline
- Kontakt:
Re: Excel - makro na uložení sešitu
Kód: Vybrat vše
Sub ulozit()
'když v buňce A7 nebude žádná adresa, uloží se soubor na c:\k\bh
adresa = Range("A7")
If adresa = 0 Then
ChDir "C:\K\BH\"
Else
ChDir "C:\K\" & adresa
End If
'vybereme název z buňky a uložíme
jmeno = Range("A5")
ActiveWorkbook.SaveAs Filename:=jmeno
MsgBox "Dokument uložen pod názvem " & jmeno
End Sub
Jak uložit soubor bez maker jsem ještě nikdy nedělal, takže v tuto chvíli nevím. Zkusím pokoumat a pokud na něco přijdu, dám vědět.
Nejlepší hra je Excel!
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
- Koja
- Level 4.5
- Příspěvky: 1909
- Registrován: listopad 05
- Bydliště: Brno
- Pohlaví:
- Stav:
Offline
- Kontakt:
Re: Excel - makro na uložení sešitu
Everybody lies so don't trust anyone. :)
Re: Excel - makro na uložení sešitu Vyřešeno
Děkuju moc, přesně takhle jsem si to představoval ... šéf je moc vděčnej a děkuje taky ..
Kdyby jsme se někde potkali, máš u mě pivo ...
Kdyby jsme se někde potkali, máš u mě pivo ...
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 9
- 1325
-
od mmmartin
Zobrazit poslední příspěvek
29 srp 2023 16:47
-
- 16
- 7791
-
od mirekol
Zobrazit poslední příspěvek
20 říj 2023 08:31
-
-
Excel komparacedvou soborů Příloha(y)
od teichmann.ondrej » 15 dub 2024 17:26 » v Kancelářské balíky - 11
- 4339
-
od teichmann.ondrej
Zobrazit poslední příspěvek
22 dub 2024 15:45
-
-
- 1
- 1241
-
od Grimm
Zobrazit poslední příspěvek
12 bře 2024 21:43
-
- 3
- 2856
-
od Story-Long
Zobrazit poslední příspěvek
14 srp 2023 10:11
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 36 hostů