Const msoFileDialogFilePicker As Long = 3



   Dim fd As Object

   Set fd = Application.FileDialog(msoFileDialogFilePicker)

   With fd

    .InitialFileName = "\\server\ELEKSOFT\Servis Raporları"

    .Filters.Clear

    .Filters.Add "Excel Files", "*.xlsx, *.xls"

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

    .Filters.Add "Tiff Files", "*.tif"

    .Filters.Add "Picture Files", "*.jpg"

    .Filters.Add "Acrobat Files", "*.pdf"

    .Filters.Add "All Files", "*.*"

    

    .Title = "Dosya Seç"



   If .Show = -1 Then

   DOSYA.Value = "#" & .SelectedItems(1) & "#"





   Else

   End If

 End With



   Set fd = Nothing