Çalışma kitabının sayfasını yedek almak

[suha]

Hazırladığım çalışma kitabının sadece talep formu sayfasını c:\ tarih ve saat adıyla çalışma sayfam kapanmadan butona basarak yedek almak isyiyorum
yardımcı olursanız sevinirim..

Saygılarımla SUHA

 

[leumruk]

Hazırladığım çalışma kitabının sadece talep formu sayfasını c:\ tarih ve saat adıyla çalışma sayfam kapanmadan butona basarak yedek almak isyiyorum
yardımcı olursanız sevinirim..

Saygılarımla SUHA

Merhaba,
Saatte bulunan ":" karakteri yasak karakterlerden olduğundan bunu "_" ile değiştirecek şekilde kodu düzenledim.

Sub yedek_al()
If MsgBox("Dosyanın yedeğini almak istiyor musunuz?", vbInformation + vbYesNo, "DURUM") = vbYes Then
Application.ScreenUpdating = False
Sheets("TALEP LİSTESİ").Copy
ActiveWorkbook.SaveCopyAs Filename:="C:\" & Format(Now, "dd.mm.yyyy hh_mm_ss") & ".xls"
ActiveWorkbook.Close 0
End If
End Sub

 

[suha]

Eline sağlık Modül açıp kodu işledim..
İyi geceler

 

[Allback]

Merhaba;

Bende kendi hazırladığım bir excel'de log dosyası almak istiyordum ama yardım eden çıkmadı sonra bu konuyu gördüm ve kodu kendi dosyama uyguladım. İş yerinde 2 farklı bilgisayarda deniyorum. 1 tanesinde sorunsuz çalışırken diğerinde aşağıdaki hatayı veriyor. Sorunun neden kaynaklanabileceği hakkında bilginiz var mı sormak istedim?

Başka bilgisayarda çalışmasa, hata kodunun altında yazanları dikkate alacağım ama (

Hata kodunun sebepleri anladığım kadarıyla;
Dosya adı ya da yol bulunamadı
Dosya başka program tarafından kullanılıyor
Dosya adıyla aynı isimde kaydetmeye çalışıyor olabilir

ama bu üç durumda bende yok...

 

[leumruk]

Merhaba,
2 nolu mesajımdaki kodu ve dosyayı güncelledim. Kodu yeniden deneyiniz. Muhtemelen sorun düzelecektir.

 

[Allback]

Merhaba,
2 nolu mesajımdaki kodu ve dosyayı güncelledim. Kodu yeniden deneyiniz. Muhtemelen sorun düzelecektir.

Ellerine sağlık, bende bu replace yerine ne yazılır diye merak ediyordum