Sub Macro3()
Sheets("Prog 411").Range("A17:C41").Select
mynumber = Format(Range("A17").Value)
myname = Format(Range("B18").Value)
mydate = Format(Range("B19").Value)
Bestandsnaam = "Offerte" & "_" & mynumber & "_" & myname & "_" & mydate
Pad1 = "N:\PRODUCT\ardo"
If myFile <> "False" Then
ActiveSheet.ExportAsFixedFormat 0, Pad & Range("A17").Value & "_" & Range("B18").Value & "_" & Format(Range("B19").Value, "yyyymmdd")
End If
MsgBox "PDF files zijn gemaakt."
End Sub
In bovenstaande code wens ik een PDF te maken van de Range A17:C41, echter hij neemt het volledige blad
Bijkomend wil ik dat hij die PDF drop in Pad1 = ... maar hij zet het in: Documents
Sheets("Prog 411").Range("A17:C41").Select
mynumber = Format(Range("A17").Value)
myname = Format(Range("B18").Value)
mydate = Format(Range("B19").Value)
Bestandsnaam = "Offerte" & "_" & mynumber & "_" & myname & "_" & mydate
Pad1 = "N:\PRODUCT\ardo"
If myFile <> "False" Then
ActiveSheet.ExportAsFixedFormat 0, Pad & Range("A17").Value & "_" & Range("B18").Value & "_" & Format(Range("B19").Value, "yyyymmdd")
End If
MsgBox "PDF files zijn gemaakt."
End Sub
In bovenstaande code wens ik een PDF te maken van de Range A17:C41, echter hij neemt het volledige blad
Bijkomend wil ik dat hij die PDF drop in Pad1 = ... maar hij zet het in: Documents