Use text fom TextBox1 as file name

[Nutsy7976]

I am trying to figure out the code for the Button (Save to Pdf) when activated will use the name from the TextBox1 as filename and save it to PDF, Can anyone help? TIA.......

https://drive.google.com/file/d/1S0X9Ty9LIy4Slacuj5Fr_We-62Mv-FlZ/view?usp=sharing

 

[nemmi69]

Does this help?

Private Sub CommandButton1_Click()
Dim PDFname As String
Dim FileSaveName As String


PDFname = ActiveSheet.TextBox1.Value
If PDFname = "" Then Exit Sub
ChDir "C:\Temp" 'Sets the default file path.
FileSaveName = Application.GetSaveAsFilename(PDFname, _
fileFilter:="PDF Files (*.pdf), *.pdf")
If FileSaveName <> False Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
FileSaveName _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End If
MsgBox "File Saved to" & " " & FileSaveName
End Sub

 

[Nutsy7976]

Hi Thks for your help, This is what I get when I put the code into button2. I dont know what I am doing wrong.

https://drive.google.com/file/d/1hODUwzpx1fT9kavNpdTbzQNjnLJhsOh5/view?usp=sharing

Here is my excel file if that helps:

https://drive.google.com/file/d/1ZQW5reTulwBIolb2-jULLqpMsx0sr_7j/view?usp=sharing

Thanks again

 

[nemmi69]

Did you check that the textbox is actually called "Textbox1"?