Help with VBA

[inspectorNDT]

I am really new to VBA's. I am trying to make a "create PDF" button to make a PDF out of the active tab. The file name would be using cells on the active tab then the name of the tab and then another cell.

I would also like it to prompt the user if a file of the same name exist and I would like it to auto save to the active users desktop.

thank you in advance for your help

 

[inspectorNDT]

nope same issue

@inspectorNDT
If you save the file as an .xlsx extension, the code will be removed.
Instead save the file as an .xlsm (macro enabled) extension.
That might help solve the problem.

 

[Michael M]

The cell O2 has the date, sadly in a format that contains illegal characters !!
Way back in post #13 I asked this question about illegals !!
Use this code to rectify the runtime error and note the line in RED

Private Sub CommandButton1_Click()
Dim nm As String, stFileName As String
Dim saveInFolder As String, celOne As String, celTwo As String, celThree As String
saveInFolder = Environ("USERPROFILE") & "\Desktop\"
nm = ActiveSheet.Name
celOne = Range("D1").Value
celTwo = Range("C5").Value
[b][color=red]celThree = Format(Range("O2"), "ddmmmyy")[/color][/b]
stFileName = saveInFolder & celOne & celTwo & nm & celThree
If Dir(stFileName) <> "" Then
MsgBox "Specified File Exists", vbInformation, "File Error"
Exit Sub
Else
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=stFileName & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True
End If
End Sub