Stránka 1 z 1

makro Ulož jako...do pdf

Napsal: 25 dub 2012 17:18
od esi32
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.

Re: makro Ulož jako...do pdf

Napsal: 25 dub 2012 17:25
od cmuch
Ahoj, zkus toto
Jmeno = Application.GetSaveAsFilename(Worksheets("Dopis1").Range("H5") & ("-Dopis") & Worksheets("Dopis1").Range("H3"))

Re: makro Ulož jako...do pdf

Napsal: 25 dub 2012 18:32
od esi32
Ahoj,
Děkuju za snahu,ale bohužel nefunguje..opět v dialogu na uložení nezobrazí název..

Re: makro Ulož jako...do pdf

Napsal: 25 dub 2012 18:58
od cmuch
A co je v těch buňkách?

Re: makro Ulož jako...do pdf

Napsal: 25 dub 2012 19:05
od zeus
Range("H5,H3")

Re: makro Ulož jako...do pdf

Napsal: 25 dub 2012 19:08
od esi32
V H3 je položka"1.půjčka,2.půjčka,...",v H5 je jméno.Formát buněk je Text.H5 jsou sloučené.

--- Doplnění předchozího příspěvku (26 Dub 2012 00:37) ---

Takže věc se má asi takhle.Data do bunky H3 si beru z Comboboxu3 takto:

Kód: Vybrat vše

Cells(3, 8).Value = ComboBox3.Value

Při tomto zadání makro nefunguje.
Pokud data do bunky H3 zadám ručně,makro funguje.Co s tím?Jak jinak ta data dostat do té bunky H3?

Re: makro Ulož jako...do pdf

Napsal: 26 dub 2012 01:51
od mike007
Nevím, zda jsem dobře pochopil dotaz. Snad ano.

Kód: Vybrat vše

Jmeno = Application.GetSaveAsFilename(Worksheets("Dopis1").Range("H5") & ComboBox3.Value)

Re: makro Ulož jako...do pdf  Vyřešeno

Napsal: 27 dub 2012 14:05
od esi32
Problém vyřešen.Zbůsobovala to hodnota v ComboBoxu,ve které byla mezi slovy tečka.po odstranění tečky makro funguje jak má.Děkuji všem zúčastněným za snahu o pomoc.Dík.