Yedekleme

[mekuka]

Yazdığımız excelden çıkış butonuna tıklandığında programdan çıkmadan önce, ana dosyanın kayıtlı olduğu yere o anki veriyi kaydedip yedek almasını ve sonrasında çıkmasını istiyorum ama yapamıyorum. İlgili kod ile ilgili yardımcı olabilecek arkadaşlara şimdiden teşekkürler.

 

[asmirk]

Sub DOSYAYI_YEDEKLE()
Dim YEDEK_DOSYA_ADI As String
Dim DOSYA_YOLU As String
Dim X As Integer

YEDEK_DOSYA_ADI = Sheets("veri").Range("A1") & ".xls"
DOSYA_YOLU = ThisWorkbook.Path & "\"

Application.ScreenUpdating = False

Sheets(Array("sheet(1)" )).Copy

Application.ScreenUpdating = False
For X = 1 To Sheets.Count
Sheets(X).Select
ActiveSheet.Unprotect "xanadu"
Cells.Copy
[A1].PasteSpecial Paste:=xlPasteValues
[A1].PasteSpecial Paste:=xlPasteFormats
[A1].Select
Application.CutCopyMode = False
ActiveSheet.Protect "xanadu"

Sheets(1).Select

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=DOSYA_YOLU & YEDEK_DOSYA_ADI, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.DisplayAlerts = True
ActiveWindow.Close
Application.ScreenUpdating = True

Sheets(2).Select
MsgBox "Yedekleme işlemi tamamlanmıştır.", vbInformation
End Sub

A1 kısmına kırmızıyla yazılı yazdığın isim dosyanın kayıt edeceği zamanki adı olacaktır.

Sheets1 ise sayfa sekmesinin ismi olmalıdır.

Makroyu bir butona aktarırsan sanıyorum rahatlıkla çalışabilir.


Sheets(2).Select ise kayıt işlemi tamamlandıktan sonra dönmesini istediğin sheet'i buraya yazmalısın

ActiveSheet.Protect "xanadu" burada bulunan xanadu kısmı ise sayfayı korumak için gireceğin şifre olacak.
Daha Güvenli olmasını Sağlıyor
Kolay gelsin

 

[ersoyalan]

Merhaba,

Böyle bir şeymi istiyorsunuz.

E.ALAN

 

[mekuka]

sayın asmirk ve ersoyalan öncelikle teşekkürler

asmirk in verdiği kodları deneyip cevap yazcam ama ersoyalan ın dosyası yedekleme işlemi tamamlandı diyor fakat yedeklediği yeri bulamadım. olmayan klasörü oluşturmuyor mu acaba?

Allah (c.c.) elinize kolunuza zeval vermesin.

 

[ersoyalan]

Merhaba,

Öncelikle nereye yedekleme yapacaksanız oraya yedek adlı bir folder oluşturmanız gerekmektedir.Daha sonrasında kodlardaki dosya yolu kısmını D:\Documents and Settings\atmyonetimiizleme\My Documents\Yedek"değiştirmeniz gerekiyor.

E.ALAN

 

[mekuka]

Merhaba,

Öncelikle nereye yedekleme yapacaksanız oraya yedek adlı bir folder oluşturmanız gerekmektedir.Daha sonrasında kodlardaki dosya yolu kısmını D:\Documents and Settings\atmyonetimiizleme\My Documents\Yedek"değiştirmeniz gerekiyor.

E.ALAN

sayın ersoyalan,

kodu masaüstüne değiştirdim. masaüstüne kaydetti. üzerine de yazıyor bu güzel ama, ikinci sayfayı ekleyince onu yedeklemiyor. sadece o sayfayı yedekliyor. bana çalışma kitabını tamamen yedekleyecek bir komut lazım ama. Yani tüm değişiklikleri yedeklemesi gerekir.

 

[ersoyalan]

Merhaba,

Ozaman ekli dosyayı inceleyiniz.

E.ALAN

 

[mekuka]

Merhaba,

Ozaman ekli dosyayı inceleyiniz.

E.ALAN

ilginize teşekkürler ama yine anlatamadım kendimi herhalde

göndermiş olduğunuz dosya da ayrı ayrı sayfa olarak kaydediyor. ben bir dosyanın içindeki tüm sayfaları ve tüm eklediğim veya tüm değiştirdiğim verileri tek dosya da yedekleyecek.

umarım anlatabilmişimdir.

 

[asmirk]

Sub DOSYAYI_YEDEKLE()
Dim YEDEK_DOSYA_ADI As String
Dim DOSYA_YOLU As String
Dim X As Integer

YEDEK_DOSYA_ADI = Sheets("veri").Range("A1") & ".xls"
DOSYA_YOLU = ThisWorkbook.Path & "\"

Application.ScreenUpdating = False

Sheets(Array("sheet(1)" )).Copy

Application.ScreenUpdating = False
For X = 1 To Sheets.Count
Sheets(X).Select
ActiveSheet.Unprotect "xanadu"
Cells.Copy
[A1].PasteSpecial Paste:=xlPasteValues
[A1].PasteSpecial Paste:=xlPasteFormats
[A1].Select
Application.CutCopyMode = False
ActiveSheet.Protect "xanadu"

Sheets(1).Select

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=DOSYA_YOLU & YEDEK_DOSYA_ADI, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.DisplayAlerts = True
ActiveWindow.Close
Application.ScreenUpdating = True

Sheets(2).Select
MsgBox "Yedekleme işlemi tamamlanmıştır.", vbInformation
End Sub

A1 kısmına kırmızıyla yazılı yazdığın isim dosyanın kayıt edeceği zamanki adı olacaktır.

Sheets1 ise sayfa sekmesinin ismi olmalıdır.

Makroyu bir butona aktarırsan sanıyorum rahatlıkla çalışabilir.


Sheets(2).Select ise kayıt işlemi tamamlandıktan sonra dönmesini istediğin sheet'i buraya yazmalısın

ActiveSheet.Protect "xanadu" burada bulunan xanadu kısmı ise sayfayı korumak için gireceğin şifre olacak.
Daha Güvenli olmasını Sağlıyor
Kolay gelsin

Sheets(Array("sheet(1)" )).Copy virgül koyarak diğer sayfalarıında ismini yazarsan istediğine ulaşabilirsin
Örnek;
Sheets(Array("eylul", "ekim", "kasım", "aralık", "hasıla", "cariler")).Copy

Örnek olarak benim dosyamda hazırladığımı görebilirsin istediğin sayfanın adını ekleyebilirsin.

Yalnız bu kayıt etme olayını yaparken hucreler birleştirilmiş olmamalı!

Kolay Gelsin Esen Kalın.

 

[ersoyalan]

Merhaba,

Ekli dosya işinizi görecektir.Farklı anladığım için bu kadar uzadı.kusra bakmayın.

E.ALAN

 

[mekuka]

Merhaba,

Ekli dosya işinizi görecektir.Farklı anladığım için bu kadar uzadı.kusra bakmayın.

E.ALAN

estağfurullah ersoyalan ne demek. kusura bakacak bişey yok. ben işim hallolacağı için sevinçliyim. ama hala anlaşamadığımız bir nokta var. ve tam olarak anlatamadım ben galiba. dosya bir nevi farklı kaydet işlemi (tabi herseferinde farklı isimde değil bir öncekinin üzerine yazarak) yapacak aslında. sizin dosyanızda ben yeni sayfa ekliyorum, fakat yedekleme de bunu göremiyorum. bir de yedekleyeceği dosya ismi = anadosya ismi ve en son yedeklendiği tarih olursa tadından yenmez.

 

[ersoyalan]

Mekuka merhaba,

2 tane örnek ekliyorum.İstediğini kullanabilirsin.

E.ALAN

 

[mekuka]

Mekuka merhaba,

2 tane örnek ekliyorum.İstediğini kullanabilirsin.

E.ALAN

teşekkürler ikiside işimi görür. fakat çok mu oldum bilmiyorum ama. aynı isimli dosya olduğunda aynı isimde dosya var üzerine yazılsın mı diye soruyor. bu uyarıyı kapatmanın veya her seferinde evet dedirmenin bir yolu var mı acaba.
çokçokçokçokçokçokçok tşk.

 

[mekuka]

sayın ersoyalan

lütfen yardım.
konu üste taşınsın diye atıyorum bu mesajı

 

[ersoyalan]

Farkındayım böyle bir sorun olduğunu fakat çözemedim.

 

[mekuka]

Farkındayım böyle bir sorun olduğunu fakat çözemedim.

yine de yardımlarınız için teşekkürler.

 

[mekuka]

lütfen yardım.
konu üste taşınsın diye atıyorum bu mesajı

 

[acolkesen1]

Merhaba Sayın mekuka,
Faks gönderme konusundaki sorununuza pek yardımcı olamadım ama bu sefer galiba işinizi görecek bir çalışma göderiyorum. Ekteki dosya, kapatılırken bulunduğu klasör içine günün tarihiyle (sormadan )yedek alır.. Umarım işinize yarar. İyi çalışmalar..

 

[mekuka]

Merhaba Sayın mekuka,
Faks gönderme konusundaki sorununuza pek yardımcı olamadım ama bu sefer galiba işinizi görecek bir çalışma göderiyorum. Ekteki dosya, kapatılırken bulunduğu klasör içine günün tarihiyle (sormadan )yedek alır.. Umarım işinize yarar. İyi çalışmalar..

Sayın acolkesen

Yaptığınız ve yapacağınız iyilikler için sonsuz minnettarım.

Teşekkürler.

 

[irfancantr]

Peki sadece aktif olan dosyayı kaydetme imkanımız varmı aynı şekilde?
Sayın ersoyalan'ın 10.mesajında gönderdiği örnek dosyadaki kayıt işlemine bu kodu ekleyebilir miyiz?

Çalışma kitabındaki sayfaları değilde sadece üzerinde bulunduğumuz sayfa kayıt altına alınabiliyor mu ?