çalışma kitabını yedekleme

[Emir Hüseyin Çoban]

İlginiz için çok teşekkür ederim Sy Halit3,
Bu konu içerisindeki bütün kodlar yedekleme işlemi için sorunsuz çalışıyor.
Alternatif paylaşımlarınızla sorunumu çözdünüz hocam teşekkürler.

 

[halit3]

İlginiz için çok teşekkür ederim Sy Halit3,
Bu konu içerisindeki bütün kodlar yedekleme işlemi için sorunsuz çalışıyor.
Alternatif paylaşımlarınızla sorunumu çözdünüz hocam teşekkürler.

iyi çalışmalar

 

[kırık_çocuk]

kodun bu hali iyi koldu galiba

Öncelikle teşekkürler çalışmalarınız için. Bende bu kodu kullanıyordum fakat bugün bir hata almaya başladım ve çözemedim tam anlamıyla sıkıntının ne olduğunu. Yedekleme işlemi için makroyu çalıştırdığımda

For i = 1 To Len(ThisWorkbook.Name)

bu hata ile karşılaşıyorum ve dosya yedeklenmiyor. Sorun nereden kaynaklanıyordur acaba?

 

[halit3]

Referanslar bölümünde missing ile başlayan bölümlerin tiklerini kaldırın dosya ofis 2003 de çalışıyor.
Buradan bir şey söylemek güç örnek dosyanızı ekleyin bakalım.

 

[kırık_çocuk]

Referanslar bölümünde missing ile başlayan bölümlerin tiklerini kaldırın dosya ofis 2003 de çalışıyor.
Buradan bir şey söylemek güç örnek dosyanızı ekleyin bakalım.

Ekte örnek dosya ve hatanın ekran görüntüsü vardır.

 

[halit3]

Dosya ofis 2007 de çalışıyor sadece aşağıdaki tarih formatı bölümünde nakta ve boşluk kullanmayınız.

bunun yerine

Yedek_Dosya_Adı = Dosya & Format(Now, " [COLOR=red]dd.mm.yyyy hh.mm[/COLOR]") & uzanti

bunu denermisiniz.

Yedek_Dosya_Adı = Dosya & Format(Now, " [COLOR=red]dd_mm_yyyy_hh_mm[/COLOR]") & uzanti

eğer dosya yolunuz yani aşağıdaki bölüm doğru ise kadunuzun çalışmaması için bir durum yok

yer = "C:\Users\PC\Documents\Office Belgelerim\Tehkom Cari\YEDEK\"

 

[kırık_çocuk]

Normalde hatasız bi şekilde kullanabiliyordum bugün aynı makroyu kullandığımda bu hatayı almaya başladım. Hata olarakta ekte görüntüsünü koyduğum kısım gösteriliyor. Acaba excelde mi bir hata oluştu? Siz, yolladığım örnek dosyada dosya yolunu sizde olan bir dosyaya göre uyarladığınızda dosya yedekleniyor mu?

 

[halit3]

Evet dosya yolunu ben dreğiştiriyorum yedekliyor

yer = "C:\YEDEK\"

 

[kırık_çocuk]

Evet dosya yolunu ben dreğiştiriyorum yedekliyor

Çok ilginçtir ki şuan sorun çözüldü ve hiç birşey yapmadan. Yedekleme olması gerektiği gibi yapılıyor. Ama neden öyle bir sorun çıktı hala anlayamadım. İlginiz için teşekkürler.

 

[halit3]

Çok ilginçtir ki şuan sorun çözüldü ve hiç birşey yapmadan. Yedekleme olması gerektiği gibi yapılıyor. Ama neden öyle bir sorun çıktı hala anlayamadım. İlginiz için teşekkürler.

iyi çalışmalar

 

[gnorar]

Benim de bir sorum olacak. Yedeklemek istediğimiz dosyada makrolar ve hücrelerde formüller var olduğunu düşünelim. Yedekleme yaparken yedek dosyaya fomüller ve makrolar aktarılmasın. Sayfa, satır, sütun ve hücre biçimlerini değitirmeden bu yedekleme nasıl yapılabilir?

 

[halit3]

Benim de bir sorum olacak. Yedeklemek istediğimiz dosyada makrolar ve hücrelerde formüller var olduğunu düşünelim. Yedekleme yaparken yedek dosyaya fomüller ve makrolar aktarılmasın. Sayfa, satır, sütun ve hücre biçimlerini değitirmeden bu yedekleme nasıl yapılabilir?

Aşağıdaki linkde buna örnek bir çalışma var

http://www.excel.web.tr/f133/klasor-ve-dosya-olu-turma-secenekleri-t68040.html

 

[meda58]

Halit hocam kodlarınız mükemmel çalışıyor sizler harikasınız

 

[aliozdil]

Kod İçin Teşekkür Ederim.

 

[dEdE]

Merhaba Xl Dostları,

Forumda birhayli arama yapıp, örnek dosyaları incelememe karşın şu sorunuma yanıt bulamadım.

Açık olan bir excel kitabındaki aktif sayfayı *.CSV olarak kaydedeyim ama mevcut çalışma kitabı bundan etkilenmesin. Kayıt işleminden sonra aynı dosya üzerinde çalışmayı sürdürebileyim.

ActiveWorkbook.SaveAs Filename:="C:\abc.csv", FileFormat:=xlCSV

Bu kod, sayfa adını değiştirdiği için işime yaramıyor. Sayfa adını değiştirmeden bu işlemi nasıl yaparız?

Saygılar.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki yöntem işinize yarar mı?

Sub AKTİF_SAYFAYI_CSV_KAYDET()
    Dim Yol As String
    
    Yol = ThisWorkbook.Path
    Sheets("Test").Copy
    ActiveWorkbook.SaveAs Filename:=Yol & "\Test.csv", FileFormat:=xlCSV
    ActiveWorkbook.Close True
End Sub

 

[dEdE]

Teşekkür ederim.
Tam istediğim gibi oldu.
Saygılar.

 

[m_koken]

Merhaba,

ThisWorkbook.name komutu ile aşağıdaki sorunum çözülebilir mi? Yardımınızı rica ederim.

http://www.excel.web.tr/f48/farkly-kaydette-dosya-ady-problemi-t118439.html

Saygılar

 

[karanx]

Kayıt_Yeri = "D:\YEDEK\" & Yedek_Dosya_Adı yerine bizim göstereceğimiz sürücüye nasıl yaptırabiliriz bu yedekleme işini ? Örneğin A1 hücresine "E" yazıp ; E sürücüne yedeklenmesini nasıl sağlayabiliriz ?

 

[uygaroz]

Selamlar
aşağıdaki kodu kullanıyorum. bu kod ile ilgili olarak yedekleme yapmak için;
Dosyayı kaydettiğimde otomatik yedek alabilir mi?
teşekkürler
Uygar

Sub AKTİF_DOSYAYI_YEDEKLE()
Dim DosyaSistemi
Set DosyaSistemi = CreateObject("Scripting.FileSystemObject")
Dim Yedek_Dosya_Adı As String, Kayıt_Yeri As String
yer = "D:\YEDEK\"
For i = 1 To Len(ThisWorkbook.Name)
If Mid(ThisWorkbook.Name, i, 1) = "." Then
Dosya = Mid(ThisWorkbook.Name, 1, i - 1)
uzanti = Mid(ThisWorkbook.Name, i, Len(ThisWorkbook.Name))
End If
Next

ActiveWorkbook.Save
Application.DisplayAlerts = False
Yedek_Dosya_Adı = Dosya & Format(Now, " dd_mm_yyyy_hh_mm") & uzanti
Kayıt_Yeri = yer & Yedek_Dosya_Adı
On Error Resume Next
If Dir(yer) = "" Then MkDir yer
On Error Resume Next
DosyaSistemi.CopyFile ThisWorkbook.FullName, Kayıt_Yeri
MsgBox "Dosyanız aşağıdaki isimle yedeklenmiştir." & Chr(10) & Kayıt_Yeri, vbInformation, "Ajandam Uyarı Sistemi"
Application.DisplayAlerts = True
End Sub