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

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

[Reklama]

[cmuch]

Ahoj, zkus toto
Jmeno = Application.GetSaveAsFilename(Worksheets("Dopis1").Range("H5") & ("-Dopis") & Worksheets("Dopis1").Range("H3"))

[esi32]

Ahoj,
Děkuju za snahu,ale bohužel nefunguje..opět v dialogu na uložení nezobrazí název..

[cmuch]

A co je v těch buňkách?

[zeus]

Range("H5,H3")

[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?

[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)

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