< návrat zpět

MS Excel


Téma: List do *pdf rss

Zaslal/a 24.8.2022 10:12

AlfanDobrý den, nemáte někdo makro na uložení konkrétního listu do pdf?
Tohle se mi nedaří rozchodit 7
Díky.
RAdek

Sub doPDF()

Dim wList As Worksheet
Dim sDir As String
Dim i As Integer

Set wList = List2 'sem napíšeš list, který se má zpracovat
sDir = ThisWorkbook.Path & "\pdf\"
wList.Copy

ActiveWorkbook.SaveAs sDir & IIf(Right(sDir, 1) <> "\", "\", "") & wList.Name & " - " & c2 & ".pdf", FileFormat:=xlTypePDF, CreateBackup:=False, Local:=True

MsgBox ("Uloženo")
Application.StatusBar = False
End Sub

Zaslat odpověď >

Strana:  « předchozí  1 2 3
#053291
Alfan
Super, vše funguje 1 Díky
I ten email se otevře to okno 2

Pokud by byl k dispozici zaremovaný řádek (už vím, co to znamená :-)), kde by se automaticky doplnil příjemce z nějaké buňky, určitě by se to hodilo.
Předpokládám, že pokud by v buňce byly email oddělené středníkem, doplnily by se tyto emaily, jako příjemci, to by bylo fajn.
Ještě jednou díky.
Radekcitovat
#053292
elninoslov
Stačí zmeniť
MAIL_ADRESAT = "niekto@odniekial.com"
na
MAIL_ADRESAT = .Range("B5").Value2
a vyplní adresáta (alebo adresátov oddelených bodkočiarkou/středníkem) napr. z bunky B5.citovat
#053293
Alfan
Díky.
A mohu se zeptat, proč se používá Value2 a ne jen Value?citovat

Strana:  « předchozí  1 2 3

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Zaokrouhlování

JoKe • 14.6. 15:19

Zaokrouhlování

Mirek-Kraus • 14.6. 13:52

excell uprava riadku vzorca

veny • 14.6. 7:52

excell uprava riadku vzorca

orangezradca • 13.6. 20:37

pomala tlac s exelu

jano5 • 12.6. 9:44

GRAF teploty

JoKe • 12.6. 9:22

Filtrování dat

Imh0tep • 12.6. 8:35