Stránka 1 z 1
Excel tlačítko uložit jako PDF (jiný list) Vyřešeno
Napsal: 28 bře 2014 01:21
od jenikjenik
Dobrý den,
ať na internetu hledám sebevíc, nedaří se mi najít řešení.
Mám excel sešit o dvou listech (formulář, karta). Do listu formulář vpisuju data a to se mi převádí do listu karta, která je naformátovaná atd...
V listu "formulář" bych chtěl mít tlačítko, které uloží list "karta" jako PDF s názvem v buňce C12 (v "formulář") a na zadané místo. Ideálně i s nějakým vyskakovacím oknem - "uloženo".
Je to proto, protože to pak chci uzamknout a nechat vyplnit i jiné lidi.
V makrech jsem úplný amatér a nic mi to neříká :)
Můžete mi prosím poradit?
Budu opravdu moc vděčný!
Re: Excel tlačítko uložit jako PDF (jiný list)
Napsal: 28 bře 2014 03:07
od X
Nevím jestli je to přesně co chceš, ale když nainstaluješ PDF Creator, tak se ti do Excelu podobné tlačítko samo přidá, přímo do lišty ...
Re: Excel tlačítko uložit jako PDF (jiný list)
Napsal: 28 bře 2014 06:10
od cmuch
Za předpokladu že máš Excel 2007 a 2010
co mají tuto vlastnost v sobě, pokud ji v sobě nemají tak lze stáhnout doplněk z Microsoftu.
Toto makro vlož do obyčejného modulu a tlačítku co si vytvoříš na listu přiřaď toto makro.
Kód: Vybrat vše
Sub UlozListJakoPDF()
'
Dim cesta As String
Dim nazev As String
cesta = "C:\Users\Documents\"
nazev = Sheets("formulář").Range("C12").Value & ".pdf"
Sheets("karta").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
cesta & nazev, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
MsgBox "List ulozen.", vbInformation, "Info"
End SubVložení modulu přes Alt+F11 a pomocí pravého tlačítka (viz.obr)
Tlačítko určitě vložit dokážeš.
Re: Excel tlačítko uložit jako PDF (jiný list)
Napsal: 30 bře 2014 15:30
od jenikjenik
Děkuji moc za ochotu! Funguje to :)
Ještě bych se chtěl zeptat, zda-li je tam možné něco připsat, aby se stiskem to toho tlačítka jednak uložilo (- to už je) a druhak aby se vymazaly změny, které jsem tam provedl. Šlo by to?
Ještě jednou děkuji.
Re: Excel tlačítko uložit jako PDF (jiný list)
Napsal: 31 bře 2014 10:37
od cmuch
Určitě to půjde, stačí když napíšeš co myslíš těma změnama.
Re: Excel tlačítko uložit jako PDF (jiný list)
Napsal: 31 bře 2014 13:54
od jenikjenik
Aby to vypadalo stejně, jako když jsem to otevřel. To znamená, že tam prostě něco zaškrtávám, vybírám, píšu atd. a když stisknu to tlačítko, tak se to uloží jako pdf + kdyby se ty změny vymazaly, a já to mohl ihned vyplňovat znovu.
Re: Excel tlačítko uložit jako PDF (jiný list)
Napsal: 31 bře 2014 17:39
od cmuch
Tak na toto by bylo potřeba vidět předlohu nebo si nahrát vlastní makro a to přidat do toho již hotového makra.
Re: Excel tlačítko uložit jako PDF (jiný list)
Napsal: 02 dub 2014 14:03
od jenikjenik
OK :) Ten list je uzamčený, ale bez hesla. Potřeboval bych aby se smazaly ty zaškrtávací políčka a ty šedé doplňovací rámečky (prostě to, co není zamčené). Když nad tím tak přemýšlím, bylo by lepší, kdyby vedle toho tlačítka uložit bylo jiné tlačítko "vymazat" (kvůli opravám)
Re: Excel tlačítko uložit jako PDF (jiný list)
Napsal: 03 dub 2014 05:35
od cmuch
Tak tady toto vlož buď na konec toho makra nebo si ho přiřaď jinému tlačítku.
Kód: Vybrat vše
Sub VseSmaz()
Dim CB As CheckBox
For Each CB In ActiveSheet.CheckBoxes
CB.Value = 0
Next CB
ActiveSheet.Range("C12:E12,C13:D13,C14:D14,C15:F21,C23:F38,C40:F44").ClearContents
End Sub
Re: Excel tlačítko uložit jako PDF (jiný list)
Napsal: 04 dub 2014 01:49
od jenikjenik
Opravdu děkuji moc za rady a za velkou ochotu. Už vše funguje, jak má :)