Excel - makro na uložení sešitu Vyřešeno

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

Moderátor: Mods_senior

Uživatelský avatar
Cipera
Level 1
Level 1
Příspěvky: 57
Registrován: březen 08
Pohlaví: Nespecifikováno
Stav:
Offline

Excel - makro na uložení sešitu

Příspěvekod Cipera » 17 bře 2008 10:55

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? :idea:
Díky

Reklama
Uživatelský avatar
mike007
Master Level 7.5
Master Level 7.5
Příspěvky: 5860
Registrován: srpen 07
Bydliště: Pardubice
Pohlaví: Muž
Stav:
Offline
Kontakt:

Re: Excel - makro na uložení sešitu

Příspěvekod mike007 » 17 bře 2008 11:12

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

Uživatelský avatar
Cipera
Level 1
Level 1
Příspěvky: 57
Registrován: březen 08
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Excel - makro na uložení sešitu

Příspěvekod Cipera » 17 bře 2008 11:43

Děkuju moc, vyzkouším a ozvu se.
C.

Uživatelský avatar
Cipera
Level 1
Level 1
Příspěvky: 57
Registrován: březen 08
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Excel - makro na uložení sešitu

Příspěvekod Cipera » 17 bře 2008 12:35

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

Uživatelský avatar
mike007
Master Level 7.5
Master Level 7.5
Příspěvky: 5860
Registrován: srpen 07
Bydliště: Pardubice
Pohlaví: Muž
Stav:
Offline
Kontakt:

Re: Excel - makro na uložení sešitu

Příspěvekod mike007 » 17 bře 2008 13:00

Trošku si mě zmátl tím ChDir. To tam není potřeba.
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-helpJak 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.

Uživatelský avatar
Cipera
Level 1
Level 1
Příspěvky: 57
Registrován: březen 08
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Excel - makro na uložení sešitu

Příspěvekod Cipera » 17 bře 2008 13:14

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

Uživatelský avatar
mike007
Master Level 7.5
Master Level 7.5
Příspěvky: 5860
Registrován: srpen 07
Bydliště: Pardubice
Pohlaví: Muž
Stav:
Offline
Kontakt:

Re: Excel - makro na uložení sešitu

Příspěvekod mike007 » 17 bře 2008 13:29

Nemáš zač. Odborník nejsem, jen mě Excel baví.
Nejlepší hra je Excel!
Pravidla fóra PC-helpJak 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.

Uživatelský avatar
Cipera
Level 1
Level 1
Příspěvky: 57
Registrován: březen 08
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Excel - makro na uložení sešitu

Příspěvekod Cipera » 17 bře 2008 14:32

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?

jirkapolak161
Level 1
Level 1
Příspěvky: 58
Registrován: duben 07
Pohlaví: Nespecifikováno
Stav:
Offline
Kontakt:

Re: Excel - makro na uložení sešitu

Příspěvekod jirkapolak161 » 17 bře 2008 16:48

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.

Uživatelský avatar
mike007
Master Level 7.5
Master Level 7.5
Příspěvky: 5860
Registrován: srpen 07
Bydliště: Pardubice
Pohlaví: Muž
Stav:
Offline
Kontakt:

Re: Excel - makro na uložení sešitu

Příspěvekod mike007 » 17 bře 2008 17:06

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

Uživatelský avatar
Koja
Level 4.5
Level 4.5
Příspěvky: 1909
Registrován: listopad 05
Bydliště: Brno
Pohlaví: Muž
Stav:
Offline
Kontakt:

Re: Excel - makro na uložení sešitu

Příspěvekod Koja » 17 bře 2008 17:09

To jirkapolak161 : Je to Visual Basic a zkus třeba tohle bo strejdu Gůgla, je tam toho spousta :lol:
Everybody lies so don't trust anyone. :)

Uživatelský avatar
Cipera
Level 1
Level 1
Příspěvky: 57
Registrován: březen 08
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Excel - makro na uložení sešitu  Vyřešeno

Příspěvekod Cipera » 18 bře 2008 08:23

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 ... :smile:


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Makro pro myš Rapture Python
    od mmmartin » 27 srp 2023 15:18 » v Problémy s hardwarem
    9
    1111
    od mmmartin Zobrazit poslední příspěvek
    29 srp 2023 16:47
  • Excel a OneDrive
    od sginfo » 11 zář 2023 15:28 » v Kancelářské balíky
    16
    5993
    od mirekol Zobrazit poslední příspěvek
    20 říj 2023 08:31
  • excel-posun makra
    od actionboy » 12 bře 2024 18:59 » v Kancelářské balíky
    1
    266
    od Grimm Zobrazit poslední příspěvek
    12 bře 2024 21:43
  • Excel - vlastní formát Příloha(y)
    od Story-Long » 11 srp 2023 14:50 » v Kancelářské balíky
    3
    1841
    od Story-Long Zobrazit poslední příspěvek
    14 srp 2023 10:11
  • Excel - problém se vzorci
    od honzzicek » 28 čer 2023 21:45 » v Kancelářské balíky
    2
    1641
    od honzzicek Zobrazit poslední příspěvek
    01 črc 2023 08:57

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

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 5 hostů