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
Komut55'in tıklandığında olayındaki kodu aşağıdaki ile değiştirerek deneyiniz.