Stifinder

Formegentligt ikke uden makro kode:

Her er et skud, antager mappestien skal placeres i N4 på fanen Ark2

'****************************************************
Sub SelectFolderToCell()
Dim strMappe As String
With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Select folder to save in cell"
        If GetSetting("FolderPathFromLast", "FilesPath", "Path", "") <> "" Then
            .InitialFileName = GetSetting("FolderPathFromLast", "FilesPath", "Path", "")
        End If
        If .Show = -1 Then ' tester for at der er klikket OK
            strMappe = .SelectedItems(1)
        End If
        If strMappe & "\" <> _
GetSetting("FolderPathFromLast", "FilesPath", "Path")  Then
            SaveSetting "FolderPathFromLast", "FilesPath", "Path", strMappe & "\"
        End If
    End With
Worksheets("Ark2").Range("N4").Value = strMappe
End Sub
'****************************************************

Håber det kan hjælpe ;0)

- og koden gemmer seneste mappeplacering til næste gang,

Du kan så oprette en knap til at køre koden.
HUSK!
Filer med Macro skal gemmes som .XLSM eller .XLSB

;0)

Den ser ud til at virke men hvis jeg trykker på annullere i stedet for ok når jeg har fundet den mappe jeg vil bruge sletter den den sti der står i forvejen i celle N4 ?

Nu bad du om noget, men ikke hele historien....
Neglen, armen og hele overkroppen...

'****************************************************
Option Explicit

Sub SelectFolderToCell()
Dim strMappe As String
With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Select folder to save in cell"
        If GetSetting("FolderPathFromLast", "FilesPath", "Path", "") <> "" Then
            .InitialFileName = GetSetting("FolderPathFromLast", "FilesPath", "Path", "")
        End If
        If .Show = -1 Then ' tester for at der er klikket OK
            strMappe = .SelectedItems(1)
        End If
        If strMappe & "\" <> _
GetSetting("FolderPathFromLast", "FilesPath", "Path") Then
            SaveSetting "FolderPathFromLast", "FilesPath", "Path", strMappe & "\"
        End If
    End With
If strMappe <> "" Then
Worksheets("Ark2").Range("N4").Value = strMappe
End If
End Sub
'****************************************************

OG så ville det være rart at få markeret som løsning ;0)

HVIS du i øvrigt udskifter
Worksheets("Ark2").Range("N4").Value = strMappe
med
ActiveCell.Value = strMappe
kommer stien i den markerede celle

;0)

Tak det funger bare hurtig hjælp det sku dejligt herinde så må jeg se om jeg selv kan finde ud af at få en \ i enden af mappen det glemte jeg lige at skrive men vil prøve at finde en løsning tak for hjælpen.

Det skal da ikke komme an på det:

Sub SelectFolderToCell()
Dim strMappe As String
With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Select folder to save in cell"
        If GetSetting("FolderPathFromLast", "FilesPath", "Path", "") <> "" Then
            .InitialFileName = GetSetting("FolderPathFromLast", "FilesPath", "Path", "")
        End If
        If .Show = -1 Then ' tester for at der er klikket OK
            strMappe = .SelectedItems(1)
        End If
        If strMappe & "\" <> _
GetSetting("FolderPathFromLast", "FilesPath", "Path") Then
            SaveSetting "FolderPathFromLast", "FilesPath", "Path", strMappe & "\"
        End If
    End With
If strMappe <> "" Then
strMappe = strMappe & "\"
Worksheets("Ark2").Range("N4").Value = strMappe
End If
End Sub

Selv tak!

Mange tak for hjælpen Stygge :-)