Excel tlačítko uložit jako PDF (jiný list) Vyřešeno

[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ý!

[Reklama]

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

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

Vložení modulu přes Alt+F11 a pomocí pravého tlačítka (viz.obr)

Tlačítko určitě vložit dokážeš.

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

[cmuch]

Určitě to půjde, stačí když napíšeš co myslíš těma změnama.

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

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

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

[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

[jenikjenik]

Opravdu děkuji moc za rady a za velkou ochotu. Už vše funguje, jak má :)