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ý!
Excel tlačítko uložit jako PDF (jiný list) Vyřešeno
-
- nováček
- Příspěvky: 5
- Registrován: březen 14
- Pohlaví:
- Stav:
Offline
Re: Excel tlačítko uložit jako PDF (jiný list)
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 ...
-
- Level 4.5
- Příspěvky: 1544
- Registrován: březen 11
- Bydliště: Drsná Vysočina :D
- Pohlaví:
- Stav:
Offline
Re: Excel tlačítko uložit jako PDF (jiný list)
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.
Vložení modulu přes Alt+F11 a pomocí pravého tlačítka (viz.obr)
Tlačítko určitě vložit dokážeš.
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š.
-
- nováček
- Příspěvky: 5
- Registrován: březen 14
- Pohlaví:
- Stav:
Offline
Re: Excel tlačítko uložit jako PDF (jiný list)
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.
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.
-
- Level 4.5
- Příspěvky: 1544
- Registrován: březen 11
- Bydliště: Drsná Vysočina :D
- Pohlaví:
- Stav:
Offline
Re: Excel tlačítko uložit jako PDF (jiný list)
Určitě to půjde, stačí když napíšeš co myslíš těma změnama.
-
- nováček
- Příspěvky: 5
- Registrován: březen 14
- Pohlaví:
- Stav:
Offline
Re: Excel tlačítko uložit jako PDF (jiný list)
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.
-
- Level 4.5
- Příspěvky: 1544
- Registrován: březen 11
- Bydliště: Drsná Vysočina :D
- Pohlaví:
- Stav:
Offline
Re: Excel tlačítko uložit jako PDF (jiný list)
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.
-
- nováček
- Příspěvky: 5
- Registrován: březen 14
- Pohlaví:
- Stav:
Offline
Re: Excel tlačítko uložit jako PDF (jiný list)
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)
- Přílohy
-
- Formular_hra.xlsm
- (41.76 KiB) Staženo 24 x
-
- Level 4.5
- Příspěvky: 1544
- Registrován: březen 11
- Bydliště: Drsná Vysočina :D
- Pohlaví:
- Stav:
Offline
Re: Excel tlačítko uložit jako PDF (jiný list)
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
-
- nováček
- Příspěvky: 5
- Registrován: březen 14
- Pohlaví:
- Stav:
Offline
Re: Excel tlačítko uložit jako PDF (jiný list)
Opravdu děkuji moc za rady a za velkou ochotu. Už vše funguje, jak má :)
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
-
Excel - filtr hyperlinku na druhý list Příloha(y)
od mikiracan » 06 čer 2023 11:49 » v Kancelářské balíky - 2
- 2594
-
od mikiracan
Zobrazit poslední příspěvek
18 srp 2023 10:17
-
-
-
WIN 10 přesunutí složek users na jiný disk
od Richard_ZZR » 10 úno 2024 11:30 » v Windows 11, 10, 8... - 3
- 813
-
od petr22
Zobrazit poslední příspěvek
10 úno 2024 13:26
-
-
-
ikona refresh a tlačítko aktualizovat zmizelo
od Dizzy66 » 27 lis 2023 23:59 » v Windows 11, 10, 8... - 0
- 1007
-
od Dizzy66
Zobrazit poslední příspěvek
27 lis 2023 23:59
-
-
- 16
- 6244
-
od mirekol
Zobrazit poslední příspěvek
20 říj 2023 08:31
-
- 1
- 379
-
od Grimm
Zobrazit poslední příspěvek
12 bře 2024 21:43
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 4 hosti