Excel İçinde Gözatma Klasörü Oluşturmak

[Ergün Güler]

Selam Arkadaşlar,
Excel içinde örnek dosyamda olduğu gibi "Gözatma Klasörü" oluşturdum.
Şunu yapmak istiyorum; gözatma klasörü açıldığında ilk olarak excel dosyasının olduğu klasör seçili gelsin veya benim belirlediğim klasör ilk seçili olarak gelsin. bu mümkün müdür?

Şimdiden çok teşekkür ederim.

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Sub DizinBul()
    
    Dim Dizin   As String
    
    Dizin = GetFolder(ThisWorkbook.Path)
    MsgBox "Seçtiğiniz Klasör : " & Dizin
    
End Sub

Function GetFolder(strPath As String) As String
    
    Dim fldr As FileDialog
    Dim sItem As String
    Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
    With fldr
        .Title = "NECDET YEŞERTENER ---> Bir Klasör Seçiniz"
        .AllowMultiSelect = False
        .InitialFileName = strPath
        If .Show <> -1 Then GoTo NextCode
        sItem = .SelectedItems(1)
    End With
NextCode:
    GetFolder = sItem
    Set fldr = Nothing
    
End Function

 

[Ergün Güler]

Sayın Necdet Hocam,
Çok teşekkür ederim. Ellerinize sağlık. mümkünse ve vaktiniz var ise, biraz kodların mantığından bahseder misiniz?