With Application.FileDialog(msoFileDialogSaveAs)
.Title = "KAYIT YERİNİ SEÇİNİZ..."
.AllowMultiSelect = False
.InitialFileName = ("Hammadde Listeleri - " & Date & ".pdf")
result = .Show
If (result <> 0) Then
fileName = Trim(.SelectedItems.Item(1))
fnum = FreeFile
Open fileName For Output As fnum
Close #fnum
End If
End With
Kodunu aşağıdaki ile değiştirerek deneyiniz.
With Application.FileDialog(msoFileDialogSaveAs)
.Title = "KAYIT YERİNİ SEÇİNİZ..."
.AllowMultiSelect = False
.InitialFileName = ("Hammadde Listeleri - " & Date & ".pdf")
result = .Show
If (result <> 0) Then
fileName = Trim(.SelectedItems.Item(1))
fnum = FreeFile
Open fileName For Output As fnum
Close #fnum
Else
Exit Sub
End If
End With