Xlsm Dosyasını Farklı Kaydetme

saban20152015' Alıntı:

Deneyiniz. Kodlar içindeki dosya yollarını kendi PC'nize göre düzeltiniz. 1 tanesinde kırmızı renk ile belirttim.

Kod:

Sub DirektKaydet()
    ChDir "[COLOR="Red"]C:\Users\Selam\Masaüstü[/COLOR]"
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:="[COLOR="red"]C:\Users\Selam\Masaüstü[/COLOR]\Kitap1.xlsx", _
    FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub

Kod:

Sub İsmi_Hücreden_Al()
    ChDir "C:\Users\Selam\Masaüstü"
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:="C:\Users\Selam\Masaüstü\" & [A1] & ".xlsx", _
    FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub

Kod:

Sub İsmi_TarihveSaatten_Al()
    ChDir "C:\Users\Selam\Masaüstü"
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:="C:\Users\Selam\Masaüstü\" & Date & " " & Format(Time, "hh-mm") & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub

Not : 1.kod makro kaydet yöntemi ile oluşturulmuş, devamında sadece kitap ismi değiştirilerek diğer 2 kod oluşturulmuştur.

Genişletmek için tıkla ...