How to use a user form text box value to change the path to save as pdf

[Shaunch]

I have a user form to add items and save it as a pdf but i need it to save to a certain folder depending on a text box value if the text box value says day then it should be saved in the day folder or if it says night it should save to the night folder there are 3 folders total and all are located in the same location
Thanks in advance for your help

 

[dmt32]

Hi, welcome to forum

Its always helpful if you can share the actual code you are trying to modify but as a general idea, something like this maybe?

Private Sub Shaunch()
    Dim SaveToFolder As String, FileName As String
    
    Const FolderDay As String = "C:\Day\", FolderNight As String = "C:\Night\"
    
    FileName = "myPDFFileName.pdf"
    
    SaveToFolder = IIf(Me.TextBox1.Value = "Day", FolderDay, FolderNight)
    
    
    'Save sheet as PDF
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=SaveToFolder & FileName

End Sub

Dave

 

[Shaunch]

Hi, welcome to forum

Its always helpful if you can share the actual code you are trying to modify but as a general idea, something like this maybe?

Private Sub Shaunch()
    Dim SaveToFolder As String, FileName As String
   
    Const FolderDay As String = "C:\Day\", FolderNight As String = "C:\Night\"
   
    FileName = "myPDFFileName.pdf"
   
    SaveToFolder = IIf(Me.TextBox1.Value = "Day", FolderDay, FolderNight)
   
   
    'Save sheet as PDF
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=SaveToFolder & FileName

End Sub

Dave

Thanks for your answer after looking at it i had an idea which worked using case of thanks again