kapatınca otomatik yedek alma

[mcetinkaya65]

Doğru sizin dosyada o uyarı yok.Ama benim hazırladığım proğramda:
Güvenlik uyarısı:Bu belge makrolar,Activex denetimleri ,XML genişletme paketi bilgileri veya Web bileşenleri içeriyor.Bunlar,belge Denetçisi tarafından kaldırılamayan kişisel bilgiler olabilir.
Tamam İptal

gibi bir uyarı çıkıyor.

 

[leumruk]

Doğru sizin dosyada o uyarı yok.Ama benim hazırladığım proğramda:
Güvenlik uyarısı:Bu belge makrolar,Activex denetimleri ,XML genişletme paketi bilgileri veya Web bileşenleri içeriyor.Bunlar,belge Denetçisi tarafından kaldırılamayan kişisel bilgiler olabilir.
Tamam İptal

gibi bir uyarı çıkıyor.

Verdiğim linkte yazan bilgileri sonuna kadar okuyun. Ortalarda excelde oluşmasının sebebi ve çözüm önerisi var. Burada belirtilen yönergeyi takip ederseniz sorununuza çözüm olabilir.

 

[mcetinkaya65]

Özür dilerim.(Verdiğim linkte yazan bilgileri sonuna kadar okuyun.)diyorsun ben linki göremedim,acemiliğime verin.

 

[leumruk]

Özür dilerim.(Verdiğim linkte yazan bilgileri sonuna kadar okuyun.)diyorsun ben linki göremedim,acemiliğime verin.

Tıklayınız

 

[mcetinkaya65]

Çok sağol ,size çok zahmet verdim, özür dilerim.Bilgine ve zekana sağlık.
Saygılarımla

 

[leumruk]

Çok sağol ,size çok zahmet verdim, özür dilerim.Bilgine ve zekana sağlık.
Saygılarımla

Rica ederim. İşe yaradıysa ne mutlu.

 

[kabtu]

teşekkürler

 

[AHMETMANAV]

yedekleme

merhaba
yedekleme kalsörü içinde 1 tane çalışma kitabı olsun. yedekleme gerçekleştiğinde bu çalışma kitabındaki çalışma sayfasında bir önceki yedeklemenin kaldığı yerden yedekleme yapabilir mi?saygılarımla

 

[AHMETMANAV]

yeni bir kod

Private Sub CommandButton1_Click()
Dim Kdosya, Hdosya, Kyol, Hyol As String
ThisWorkbook.Save
Kyol = ThisWorkbook.Path & "\"
Kdosya = ThisWorkbook.Name
Hdosya = Replace(Kdosya, ".xlsm", "_") & Format(Date, "YYYY-MM-DD") & ".xlsm"
Hyol = "O:\MERAM\MERAM MÜŞTERİLER\MERAM - 1 MÜŞTERİLER\AHMET MANAV\MUAYENE TAKİP KLASÖRÜ\"

ThisWorkbook.SaveCopyAs Hyol & Hdosya

End Sub


aynı işlemi excel dosyası kapatmadan farklı kaydet tipinde yedekleme yapabilirsiniz.

 

[mekist]

Doğrudur..

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Set ds = CreateObject("Scripting.FileSystemObject")
Dim Yedek As String
Trh = Replace(Now, ":", "_")
Kyt = "D:\YEDEKLER\"
ThisWorkbook.Save
ds.CopyFile ThisWorkbook.FullName, Kyt & Trh & ".xls"
End Sub

Bu Şekilde kısalttım.
Zaten ALTERNATİF olsun demiştim.
Amaç Görsellik katmak.
Ne tekim
Mustafa bey çok güzel olmuş.
demekle beğendiğini söyledi arkadaşımız.

Mustafa Bey, bu kod işlem saatine göre kayıt yapıyor ya, Bunu dosya adı ile kayıt edecek şekilde değiştirmek mümkün müdür?
Tek yedek olması için önemli

 

[euphrates55]

konuyu hortlatmış gibi olacağım ama, kayıtı zipleyerek yapmak mümkün mü?

 

[chousein]

Merhaba Arkadaşlar bir çalışmam var .xlsb olarak kayıtlı bunu ben her kapattığımda
C:\YEDEKLER dosyasına yedeğini almasını istiyorum (her kapattığım tarihte ve saatte ayrı dosyalar şeklinde) ama mümkünse .jpeg olarak eğer olmassa normal .xlsb olarak olur yardımcı olabilirmisiniz acaba bir kod verebilirmisiniz

 

[Korhan Ayhan]

Bu başlık altında paylaşılan kodları deneyebilirsiniz.

 

[chousein]

Bu başlık altında paylaşılan kodları deneyebilirsiniz.

Dediğinizi denedim ama aşağıdakinde hata veriyor

ds.CopyFile ThisWorkbook.FullName, yol

 

[Korhan Ayhan]

İlgili klasöre erişim yetkiniz var mı?

Bir de kodları hangi işletim sisteminde deniyorsunuz?

 

[chousein]

evet var windows 11 kullandığım ecxel office 2021

 

[Korhan Ayhan]

Peki verdiği hata mesajı nedir?