Merhaba, siz sorunuzda ""C:\belgeler" yazdığınız için ben kodu o şekilde ekledim.

(29/11/2016, 09:36)tufanbal yazdı: örneğin dosya aç tıklanacak açılan kutudan word seçilecek. dosya konumunun içine de

"C:\belgeler" yazacak
İşin çoğunu yaptım.

Kodu aşağıdaki ile değiştirerek deneyiniz.

Dim fileName As String

    Dim Result As Integer

    With Application.FileDialog(msoFileDialogFilePicker)

        .Title = "Dosya Seç"

        .Filters.Clear

        .Filters.Add "Word Belgesi", "*.docx, *.doc"

        .ButtonName = "Word Belgesini Seç"

        .FilterIndex = 1

        .AllowMultiSelect = False

        .InitialFileName = "c:\"

        Result = .Show

        If (Result <> 0) Then

           fileName = Trim(.SelectedItems.Item(1))

            Me.dosya_konumu.SetFocus

            Me.dosya_konumu = fileName

        End If

    End With