MS Excel

Takto by mohlo fungovat to PDF len problem je ze neviem nijak zakomponovat ten nazov ... a ked potom kliknem na odkaz hiperlinku tak mi otvori len priecinok s pdf ne priamo vytvoreny pdf subor ...

Sub Tlačidlo26_Kliknúť()
'
' Tlačidlo26_Kliknúť Makro
'

'
FCesta = ThisWorkbook.path & "\"

Fmeno = ActiveSheet.Range("B1").Value
Fdatum = ActiveSheet.Range("B15").Value
Fsegment = ActiveSheet.Range("D4").Value

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FCesta & "" & Fmeno & "-" & Fdatum & "-" & Fsegment & ".pdf"

FCesta = Fcestakpdf

Fcestakpdf = ThisWorkbook.path & "\"




Sheets("Databaza").Select

Range("C2").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Fcestakpdf

Sheets("vzor").Select
End Subcitovat