Dosya Farklı Kaydet Diyaloğu

Sub WorkBook_SaveAs()
    ' Excelin "Dosya Kaydet" diyaloğudur. fd.Execute ile dosya kaydedilebilir.
    
    Dim fd As FileDialog, ret As Long, sFile
    
    Set fd = Application.FileDialog(msoFileDialogSaveAs)
    
    ret = fd.Show
    
    If Not ret = -1 Then Exit Sub
    
    MsgBox "Bu dosya, '" & fd.SelectedItems(1) & "' adıyla farklı kaydedilecek.", vbInformation
    
    fd.Execute
End Sub

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


7 + 5 =