Specified folder path to select file path

[JayEmTee91]

The question I have is, I used the following code for the user to use a commandbutton to select a specific folder for a file.

Sub SelectFolder()
    Dim diaFolder As FileDialog

    ' Open the file dialog
    Set diaFolder = Application.FileDialog(msoFileDialogFolderPicker)
    
    diaFolder.AllowMultiSelect = False
    diaFolder.Show

    ActiveSheet.Range("B5") = diaFolder.SelectedItems(1)

    Set diaFolder = Nothing
End Sub

I want to use this folder path to re-open windows explorer to that path to allow a user to select the file they want to use and put the file path into the cell below it.

It may sound over complicated in my method, but for my purposes, I need it to function this way. I don't have any solid code besides that, and I wanted to see if this was possible.

Thank you!

[BeachRock]

Try this:

Sub SelectFolder()
With Application.FileDialog(msoFileDialogFolderPicker)
  .InitialFileName = ActiveWorkbook.Path
  .Title = "Please choose a folder"
  .AllowMultiSelect = False
  If .Show = -1 Then Range("B5").Value = .SelectedItems(1)
End With
End Sub

Is that what you need?

EDIT: Looking back at your first post, I think I misunderstood. You want the path selected to be a link to that folder.. I found this on another thread that you could maybe work into your other macro, or mine, which I assume they probably both do the same thing...

http://www.excelforum.com/excel-prog...hyperlink.html

[JayEmTee91]

Thank you for the reply.

I don't think I provided enough detail with what I want to do.

I have a command button that uses the code I posted, and I have a button in the cell below that one, which I want to open to the folder that was selected with the previous command, so that the user will be able to select a file from that folder and it will copy the path of that file to cell "B6." If that makes sense.

[BeachRock]

Replace your current macro code to the following:

Sub Select_Save_Location_and_Hyperlink()
    Dim rLastCell As Range
    Dim Cell As Range

With Application.FileDialog(msoFileDialogFolderPicker)
  .InitialFileName = ActiveWorkbook.Path
  .Title = "Please choose a folder"
  .AllowMultiSelect = False
  If .Show = -1 Then Range("B5").Value = .SelectedItems(1)
End With

    Set rLastCell = Worksheets("YourWorksheet").Range("B" & Cells.Rows.Count).End(xlUp)
    
    For Each Cell In Range("B5", rLastCell)
        If Not IsEmpty(Cell) Then _
            Cell.Hyperlinks.Add Cell, Cell.Text, TextToDisplay:="Folder Path"
    Next Cell

End Sub

Change ("YourWorksheet") to the name of the sheet where the file path will be created. This is a combination of the first code I provided and the code I gave you the link for above. It works for me to select the file path and then make that path into a link to the folder you selected. I couldn't get it to work with your original code. This doesn't do exactly what you wanted but it does make it a quick process to open the folder where files are saved so you can open them whenever you want.