Úplně stejně jako jsi tam dal buňku H5 tam můžeš přidat i další buňky... (využij tam opět & pro spojení výrazů)
P.citovat
P.citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Makro uložit jako
Uzamčeno - nelze přidávat nové příspěvky.
MS Excel
Téma: Makro uložit jako 
Zaslal/a lajos 25.4.2012 10:28
Opět zdravím.mám makro,které mi ukládá zvolený list(v tomto případě list DOPIS)pod názvem podle hodnoty z bunky H5 a k tomu přidává do názvu text dopis.Je to kvůli pozdějšímu rozkišení.Ještě bych potřeboval,aby to bralo data z další bunky(H3).Je to možné?Nedaří se mi to do makra zakomponovat.Přikládám část makra.Děkuji za případnou radu.
Jmeno = Application.GetSaveAsFilename(Worksheets("Dopis1").Range("H5") & ("-Dopis"))
Uzamčeno - nelze přidávat nové příspěvky.Jmeno = Application.GetSaveAsFilename(Worksheets("Dopis1").Range("H5") _
& ("-Dopis-") & Worksheets("Dopis1").Range("H3"))
:) P.citovat
& ("-Dopis-") & Worksheets("Dopis1").Range("H3"))
:) P.citovat
jmeno = Range("H5") & ("-Dopis")
ActiveWorkbook.SaveAs Filename:=jmeno, FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=Falsecitovat
ActiveWorkbook.SaveAs Filename:=jmeno, FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=Falsecitovat
to Pavlus:Nefunguje..otevře nabídku na uložení,ale nevypíše název souboru.citovat
Vypíše, zkopíruj si to ještě jednou...
Pokud ti to fungovalo předtím, tak se funkčnost mojí úpravou nemohla změnit.
Pouze jsem přidal:
& Worksheets("Dopis1").Range("H3")P.citovat
Pokud ti to fungovalo předtím, tak se funkčnost mojí úpravou nemohla změnit.
Pouze jsem přidal:
& Worksheets("Dopis1").Range("H3")P.citovat
Asi dělám něco špatně.Mužeš to zkusit?
Dim Cesta As String
Dim Jmeno As String
' nastavit cestu
Cesta = "C:\Excell\"
ChDir Cesta
'ulozeni listu 1
Sheets("Dopis1").Select
Jmeno = Application.GetSaveAsFilename(Worksheets("Dopis1").Range("H5") & ("-Dopis"))
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Left(Jmeno, Len(Jmeno) - 1), Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
'navrat na prvni list
Worksheets("Start").Activate
End Sub
Jak to dáváte do toho Code?citovat
Dim Cesta As String
Dim Jmeno As String
' nastavit cestu
Cesta = "C:\Excell\"
ChDir Cesta
'ulozeni listu 1
Sheets("Dopis1").Select
Jmeno = Application.GetSaveAsFilename(Worksheets("Dopis1").Range("H5") & ("-Dopis"))
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Left(Jmeno, Len(Jmeno) - 1), Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
'navrat na prvni list
Worksheets("Start").Activate
End Sub
Jak to dáváte do toho Code?citovat
Nevím co tam provádíš, mě to funguje .-).
Mrkni na toto, nebo pošli celý soubor...
P.
Viz příloha:
Mrkni na toto, nebo pošli celý soubor...
P.
Viz příloha:
Příloha: 
8282_dialog_ulozit_jako.zip (21kB, staženo 74x)
citovat8282_dialog_ulozit_jako.zip (21kB, staženo 74x)No tak já nevím...tvá ukázka funguje,nakopčím do mého sešitu a nic.Zase to nezobrazí název pro uložení..Sešit bych rád poslal,ale nemůžu,protože je to obludně velké.Má to 1,5Mb.Musel bych jedině na mail.citovat
Chlapi,nebude problém tady v tom?
Filename:=Left(Jmeno, Len(Jmeno) - 1)
Nerozumím tomu,ale nezdá se mi to.citovat
Filename:=Left(Jmeno, Len(Jmeno) - 1)
Nerozumím tomu,ale nezdá se mi to.citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články