create a folder button

[kabali]

Hi,

I would like to create a folder button on my excel sheet. When I click the button, it should show me direct path to a specific folder. Then it should display the drive path after I clicked the certain folder. How to create a vba code on it?

i'd really appreciate it if you could help me on this

Thanks

 

[ekrause]

I am not 100% sure what you want in your request. Here are my best guesses. You will want to change the Selection item in each bit of code to whatever range you it to be pasted. I wrote them so you could run them all at once and see the differences and get output for each one.

Find Current File FilePath:

Selection = ThisWorkbook.Path & "\"

Show File Path to Selected File with VBA:

Selection.Offset(1) = Application.GetOpenFilename

Show File Path to Selected Folder with VBA:

Set FldrPicker = Application.FileDialog(msoFileDialogFolderPicker)

  With FldrPicker
    .Title = "Select A Target Folder"
    .AllowMultiSelect = False
    If .Show <> -1 Then Exit Sub 'Check if user clicked cancel button
    myFolder = .SelectedItems(1)
  End With

Selection.Offset(2) = myFolder