Below Vba to save as pdf and also not overwite

[Millfurn]

In need of assistance, i would like to use the below code (if possible) but have it save as pdf and not overwrite it. It will be assigned to a button. Thanks in advance

Private Sub CommandButton1_Click()

With Application.FileDialog(msoFileDialogSaveAs)
.Title = "PLease choose a location and file name to save"
.ButtonName = "Save Tracker"
.InitialFileName = "E:\Tony\Tracker\" & Range("L1").Value
If .Show = 0 Then
MsgBox "The file did not save.", vbCritical
Exit Sub
End If
Application.DisplayAlerts = False
.Execute
Application.DisplayAlerts = True
End With

End Sub

 

[Millfurn]

In need of assistance, i would like to use the below code (if possible) but have it save as pdf and not overwrite it. It will be assigned to a button. Thanks in advance

Private Sub CommandButton1_Click()

With Application.FileDialog(msoFileDialogSaveAs)
.Title = "PLease choose a location and file name to save"
.ButtonName = "Save Tracker"
.InitialFileName = "E:\Tony\Tracker\" & Range("L1").Value
If .Show = 0 Then
MsgBox "The file did not save.", vbCritical
Exit Sub
End If
Application.DisplayAlerts = False
.Execute
Application.DisplayAlerts = True
End With

End Sub

I got it was easy in the end used th '.FilterIndex PDFIndex command after .InitialFileName
Thanks

 

[Millfurn]

Nope Still need help please!!

 

[Millfurn]

HI All, i ended up changing my approach found this code (below) that does exactly what i want. I will share if anyone else needs similar.
thank you all for even reading my post!

Sub Test()


Dim i As Integer, PDFindex As Integer
Dim PDFfileName As String

With ActiveWorkbook
PDFfileName = .Worksheets(6).Range("L1").Value & .Worksheets(6).Range("L1").Value & ".pdf"
End With

With Application.FileDialog(msoFileDialogSaveAs)

PDFindex = 0
For i = 1 To .Filters.Count
If InStr(VBA.UCase(.Filters(i).Description), "PDF") > 0 Then PDFindex = i
Next

.Title = "Save workbook as PDF"
.ButtonName = "Saver Tracker"
.InitialFileName = "Ticks"
.FilterIndex = PDFindex

If .Show Then
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, filename:=.SelectedItems(1), _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End If

End With

End Sub