kaydet dediğimizde yedek alma

[S.Yiğit]

Merhaba,

Ekteki çalışmamda farklı makrolar var. ilave yapmak istediğimiz şey yedek alma..
Her kaydet dediğimizde aşağıda belirttiğim dosya yoluna dosyayı olduğu gibi yedek alması lazım.(İçindeki makrolar ve sayfaların tamamı) Yanlız yedek alırken dosya ismine ilave olarak tarih ve saat eklememiz lazım. Kaydetme şeklimiz ctrl s olabilir yada direk kaydet düğmesine tıklayabiliriz.

Örnek: Montaj Takibi ve Planlama Çizelgesi 10.02.2011 08:30 gibi

Dosya yolu: C:\Users\yigits\Desktop\Yedekler

Örnek dosya ektedir. Teşekkürler..

 

[excel03]

merhaba;

http://www.excelvba.net/viewtopic.php?f=4&t=2462

 

[İhsan Tank]

Merhaba,

Ekteki çalışmamda farklı makrolar var. ilave yapmak istediğimiz şey yedek alma..
Her kaydet dediğimizde aşağıda belirttiğim dosya yoluna dosyayı olduğu gibi yedek alması lazım.(İçindeki makrolar ve sayfaların tamamı) Yanlız yedek alırken dosya ismine ilave olarak tarih ve saat eklememiz lazım. Kaydetme şeklimiz ctrl s olabilir yada direk kaydet düğmesine tıklayabiliriz.

Örnek: Montaj Takibi ve Planlama Çizelgesi 10.02.2011 08:30 gibi

Dosya yolu: C:\Users\yigits\Desktop\Yedekler

Örnek dosya ektedir. Teşekkürler..

merhaba

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveWorkbook.Save
[COLOR="Red"]ActiveWorkbook.SaveAs Filename:="C:\Users\yigits\Desktop\Yedekler\" & ActiveWorkbook.Name & " " & Format(Now, "dd.mm.yyyy hh mm") & ".xlsm"[/COLOR]
End Sub

bu kodu kitabınızın Thisworkbook bölümünde dener misiniz

 

[S.Yiğit]

Sn. excel03, açıkçası verdiğiniz linkden bişey anlamadım.. Benim dosyam için kod olarak verirseniz sevinirim. Teşekkürler..

Sn. İhsan Tank, sizin kodu denediğimde yani kaydet dediğimde Microsoft ofis excel çalışmayı durdurdu diyor. Yedeğide alıyor ama o anki saati yazmıyor. Teşekkürler..

Benim dosyamda başka makrolarda var, bundan sıkıntı olabilir mi?

 

[İhsan Tank]

Sn. excel03, açıkçası verdiğiniz linkden bişey anlamadım.. Benim dosyam için kod olarak verirseniz sevinirim. Teşekkürler..

Sn. İhsan Tank, sizin kodu denediğimde yani kaydet dediğimde Microsoft ofis excel çalışmayı durdurdu diyor. Yedeğide alıyor ama o anki saati yazmıyor. Teşekkürler..

Benim dosyamda başka makrolarda var, bundan sıkıntı olabilir mi?

merhaba
üstteki kod'a yeni bir şey bölüm ekledim kırmızı olan yeri değiştirerek dener misiniz.
hata verme sebebi Tahminen İki tane Uzantıdan Kaynaklanıyor sanırım

 

[S.Yiğit]

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveWorkbook.Save
[COLOR="Red"]ActiveWorkbook.SaveAs Filename:="C:\Users\yigits\Desktop\Yedekler\" & ActiveWorkbook.Name & " " & Format(Now, "dd.mm.yyyy hh mm") & ".xlsm"[/COLOR]End Sub

İhsan bey,
Bu kodun tamamını mı kullanacam yoksa kırmızı yeri mi? gerçi ikisinide kullandım hata verdi

 

[İhsan Tank]

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveWorkbook.Save
[COLOR="Red"]ActiveWorkbook.SaveAs Filename:="C:\Users\yigits\Desktop\Yedekler\" & ActiveWorkbook.Name & " " & Format(Now, "dd.mm.yyyy hh mm") & ".xlsm"[/COLOR]End Sub

İhsan bey,
Bu kodun tamamını mı kullanacam yoksa kırmızı yeri mi? gerçi ikisinide kullandım hata verdi

eki inceler misiniz
kısayol oluşturuyor ama görevi sonlandırıyor sebebini çözemedim.

 

[Ömer]

Merhaba,

Bu şekilde deneyiniz.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 
Dim d() As String, dosya As String, dosyaAdı As String, uzantı As String
 
With ActiveWorkbook
    d = Split(.Name, ".")
    uzantı = d(UBound(d))
    dosyaAdı = Left(.Name, Len(.Name) - Len(uzantı) - 1)
 
    dosya = CreateObject("Wscript.Shell").SpecialFolders.Item("Desktop") & _
        "\[COLOR=blue]Yedekler[/COLOR]" & Application.PathSeparator & _
        dosyaAdı & Format(Now, " dd.mm.yyyy_hh/mm") & "." & uzantı
 
    .SaveCopyAs Filename:=dosya
End With
 
End Sub

.

 

[S.Yiğit]

Ömer hocam çok teşekkürler..

 

[bilalakdeniz]

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim d() As String, dosya As String, dosyaAdı As String, uzantı As String

With ActiveWorkbook
d = Split(.Name, ".")
uzantı = d(UBound(d))
dosyaAdı = Left(.Name, Len(.Name) - Len(uzantı) - 1)

dosya = CreateObject("Wscript.Shell").SpecialFolders.Item("Desktop") & _
"\Yedekler" & Application.PathSeparator & _
dosyaAdı & Format(Now, " dd.mm.yyyy_hh/mm") & "." & uzantı

.SaveCopyAs Filename:=dosya
End With

End Sub

Merhaba Hocam, Yedeği D:\ ye almak için nereyi değiştirmemiz gerekiyor.