MS Excel

Děkuji.
Ano adresář "pdf" existuje.
Teď mám to makro takto:

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.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
sDir & IIf(Right(sDir, 1) <> "\", "\", "") & wList.Name & " - " & c2 & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties _
:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

ActiveWorkbook.Close False

MsgBox ("Uloženo")

End Sub

Ale:
Ukládá se to 1 minutu.
Na to listu je totiž KT a dva Průřezy.
Navíc ta KT má data přes Power Query.
A v názvu uloženého *.pdf souboru se mi neobjeví hodnota z buňky C2.
V buňce C2 má vzorec =B12 a v buňce B12 je textová hodnota z Filtru KT,
konkrétně je to název střediska.

Co je špatně?
Děkuji.
Radekcitovat

Ten list môžete exportovať do PDF bez vytvárania kópie.citovat

Ani nepamätám, kedy naposledy sa niekto niečo také opýtal.

Ak chcete podporte toto fórum.citovat

Dobrý den,
mám ještě jednu prosbu.
Potřeboval bych upravit to makro v této část:
With List2 'sem napíšeš list, který se má zpracovat
.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=sDir & IIf(Right(sDir, 1) <> "\", "\", "") & .Name & " - " & .Range("C2") & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Tak, abych nemusel "definovat" list, v tomto případě List2, ale aby se automaticky vzal aktuální list, ze kterého spouštím to makro a zároveň by se název toho aktuálního listu použil při ukládání na pozici současného ".Name"

Děkuji.
Radekcitovat

Super, funguje.
Že mě to nenapadlo

A mohu se zeptat ohledně Průřezu (Slicer)?
Mám konkrétní průřez a ten má své jméno, kde v nastavení Průřezu vidím i název pro vzorec.

Například průřez má název pro vzorec:
Průřez_HS

Jak napíšu do buňky vzorec, aby se mi tam objevila vybraná hodnota z toho konkrétního průřezu?
Děkuji.
Radekcitovat