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

[Cipera]

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

[Reklama]

[mike007]

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

[Cipera]

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

[Cipera]

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

[mike007]

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

[Cipera]

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

[mike007]

Nemáš zač. Odborník nejsem, jen mě Excel baví.

[Cipera]

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]

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]

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.

[Koja]

To jirkapolak161 : Je to Visual Basic a zkus třeba tohle bo strejdu Gůgla, je tam toho spousta

[Cipera]

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