makro Ulož jako...do pdf
Napsal: 25 dub 2012 17:18
Dobrý den,opět bych požádal někoho zdatného o radu a pomoc s makrem.
Mám makro,které mi ukládá zvolený list(list Dopis)z názvem z bunky H5 a za to přidá do názvu slovo Dopis.Funguje mi bez problému.Ale potřebuji do názvu ještě přidat z další bunky (H3) ze stejného sešitu.A to se mi nedaří.Makro se spustí,zobrazí se dialog na uložení,ale nezobrazí se ten název,pod kterým by se to mělo uložit.Poradí někdo?
Toto funguje:Jmeno = Application.GetSaveAsFilename(Worksheets("Dopis1").Range("H5") & ("-Dopis"))
Zde je přidáno na bunku (H3) a nefunguje:Jmeno = Application.GetSaveAsFilename(Worksheets("Dopis1").Range("H5") & Worksheets("Dopis1").Range("H3"))
Dík za případnou pomoc.
Mám makro,které mi ukládá zvolený list(list Dopis)z názvem z bunky H5 a za to přidá do názvu slovo Dopis.Funguje mi bez problému.Ale potřebuji do názvu ještě přidat z další bunky (H3) ze stejného sešitu.A to se mi nedaří.Makro se spustí,zobrazí se dialog na uložení,ale nezobrazí se ten název,pod kterým by se to mělo uložit.Poradí někdo?
Toto funguje:Jmeno = Application.GetSaveAsFilename(Worksheets("Dopis1").Range("H5") & ("-Dopis"))
Zde je přidáno na bunku (H3) a nefunguje:Jmeno = Application.GetSaveAsFilename(Worksheets("Dopis1").Range("H5") & Worksheets("Dopis1").Range("H3"))
Dík za případnou pomoc.