Sayfa yedeğini alma

[ASLAN7410]

Merhaba, hayırlı geceler.

Ekte gönderdiğim excel dosyasında butona bastığımda masaüstüne dosyanın yedeğini alıyor.

Benim yapmak istediğim butona bastığımda sadece Sayfa1'i (SİSTEM isimli sayfa) masaüstüne
makrosuz olarak Excel 97-2003 Excel Çalışma Kitabı olarak kaydetmesini istiyorum.

Yardımcı olur musunuz?

Sub YedekAlma()

Set ds = CreateObject("Scripting.FileSystemObject")
ThisWorkbook.Save
yer = Environ("USERPROFILE") & "\DESKTOP\YEDEK"
If ds.FolderExists(yer) = False Then
ds.CreateFolder yer
End If
If ThisWorkbook.Path = yer Then Exit Sub
If MsgBox("Dosyanın yedeğini almak istiyor musunuz?", vbInformation + vbYesNo, "DURUM") = vbNo Then
MsgBox "İptal ettiniz.", vbInformation, "DURUM"
Exit Sub
End If
dosyaadi = ThisWorkbook.FullName
uzanti = "." & ds.GetExtensionName(dosyaadi)

Range("AB1").FormulaR1C1 = "=MID(CELL(""DOSYAADI"",RC[-1]),SEARCH(""]"",CELL(""DOSYAADI"",RC[-1]))+ 1,255)"

isim = Sheets("SİSTEM").Range("AB1").Value
yol = yer & "/" & Format(Now, " dd.mm.yyyy hh_nn_ss") & " " & isim & uzanti
ds.CopyFile dosyaadi, yol

Range("AB1").ClearContents
MsgBox ("Dosyanın yedeği alındı."), vbInformation, "DURUM"
End Sub

.

 

[TanerSaydam]

Sheets(c).Copy
Sheets(c).SaveAs "KONUM" & SAYFA ADI & ".xlsx"
ActiveWorkbook.Close

Kodunuz bu. Kendinize göre düzenleyin.

 

[ASLAN7410]

Sayın Taner Bey, ilginiz için çok teşekkür ediyorum.

Dediğiniz kodu, kod arasına nereye eklemem gerekiyor. Değişik yerlere eklemeye çalıştım, yapamadım.

Yardımcı olur musunuz?

 

[ASLAN7410]

Dosyanın örneğini ekledim.

http://dosya.co/r30rcjkk3sef/Örnek.xlsm.html

 

[TanerSaydam]

ds.CopyFile dosyaadi, yol

Bu kodu aşağıdaki ile değiştirin.

Sayfa1.Copy
Sayfa1.SaveAs yol, dosyaadi
ActiveWorkbook.Close

Böyle deneyebilir misiniz? Olması lazım.

 

[ASLAN7410]

Aşağıdaki kod satırını sarıya boyadı.

Sayfa1.SaveAs yol, dosyaadi

 

[ASLAN7410]

Sarıya boyanan kodun başına On Error Resume Next yazarak denediğimde benim istediğim sonuç olmadı.

Benim yapmak istediğim butona bastığımda yukarıdaki kodun yaptığı bütün işlemleri yapıp, sadece Sayfa1'i (SİSTEM isimli sayfa)
makrosuz olarak Excel 97-2003 Excel Çalışma Kitabı olarak kaydetmesini istiyorum.

 

[TanerSaydam]

Sub YedekAlma()
Set ds = CreateObject("Scripting.FileSystemObject")
ThisWorkbook.Save
yer = Environ("USERPROFILE") & "\DESKTOP\Yedek\"
If ds.FolderExists(yer) = False Then
ds.CreateFolder yer
End If
If ThisWorkbook.Path = yer Then Exit Sub
If MsgBox("Dosyanın yedeğini almak istiyor musunuz?", vbInformation + vbYesNo, "DURUM") = vbNo Then
MsgBox "İptal ettiniz.", vbInformation, "DURUM"
Exit Sub
End If
dosyaadi = ThisWorkbook.FullName
'uzanti = "." & ds.GetExtensionName(dosyaadi)
uzanti = ".xlsx"
Range("AB1").FormulaR1C1 = "=MID(CELL(""DOSYAADI"",RC[-1]),SEARCH(""]"",CELL(""DOSYAADI"",RC[-1]))+ 1,255)"
isim = Sheets("SİSTEM").Range("AB1").Value
ad = Format(Now, " dd.mm.yyyy hh_nn_ss") & " " & isim
Sheets("SİSTEM").Copy
Sheets("SİSTEM").SaveAs yer & ad & uzanti
ActiveWorkbook.Close

Range("AB1").ClearContents
MsgBox ("Dosyanın yedeği alındı."), vbInformation, "DURUM"
End Sub

Bu şekilde sorunsuz çalışıyor. Bir deneyip dönüş yapabilir misiniz?

 

[ASLAN7410]

Sayın Taner Bey, ellerinize sağlık kod gayet güzel çalışıyor.
Kodlar dosyayı .xlsx uzantılı olarak kaydediyor.

Dosyayı yükleyeceğim sistem sadece 97-2003 exceli kabul ettiği için bu şekilde istemiştim.
97-2003 excelin uzantısı .xls olduğundan kodu bu şekle çevirebilir misiniz?

 

[TanerSaydam]

uzanti kısmını xls yapın ve

Sheets("SİSTEM").SaveAs yer & ad & uzanti, FileFormat:=56

Bu kısmı böyle düzeltin.

 

[ASLAN7410]

Sayın Taner Bey, ellerinize sağlık, tam istediğim gibi oldu.

Çok teşekkür ediyorum, hayırlı geçeler, hayırlı çalışmalar diliyorum.

 

[TanerSaydam]

Rica ederim Bende sayenizde yeni bir şeyler öğrendim.

 

[onurcan1979]

ds.CopyFile dosyaadi, yol

Bu kodu aşağıdaki ile değiştirin.

Sayfa1.Copy
Sayfa1.SaveAs yol, dosyaadi
ActiveWorkbook.Close

Böyle deneyebilir misiniz? Olması lazım.

Bu şekilde sorunsuz çalışıyor. Bir deneyip dönüş yapabilir misiniz?

Merhaba üstadım 1 den fazla dosya almak için ayni kodu nasıl kullanacağını bilirim?

 

[Korhan Ayhan]

Tam olarak ne yapmak istiyorsunuz?

 

[onurcan1979]

Tam olarak ne yapmak istiyorsunuz?

Sayfalar içinde verilerim bu verileri baska sayfaya suzuyorum printer yapa biliyorum ama raporladigim sayfalarin sayfa1, sayfa2, sayfa3 olarak yedeğini alamiyorum. Bu yazdığınız kodla sadece 1 tane sayfa yedeği alabildim sorumsuz. Bunun sayısını nasil arttira bilirim. Bana yardımcı olurmusunuz?

 

[Korhan Ayhan]

Bahsettiğiniz sayfalar toplu olarak tek dosya içine mi yedeklenecek? Yoksa ayrı ayrı dosyalar olarak mı yedeklenecek?

Bununla ilgili örnek dosya paylaşınız.

 

[onurcan1979]

Bahsettiğiniz sayfalar toplu olarak tek dosya içine mi yedeklenecek? Yoksa ayrı ayrı dosyalar olarak mı yedeklenecek?

Bununla ilgili örnek dosya paylaşınız.

Hocam üç günden beri uğraşıyorum göndermek için dosya buyuk olduğundan mı yoksa başka sebeplerden kaynaklanıyor bilemedim dosyayı yükleyeceğim üstadım.

Benim yapmaya çalıştığım sayfa1 ve sayfa2 bulunan verileri belirtilen tarih aralığında süzüp sayfa3 ve sayfa4 de aktarmak sonra sayfa3 ve sayfa4 du macro suz ayri bir kitap dosyası altında yedeğini almak. Burada en son yazdığınız kod isimi görüyor ama tek sayfa alıyor bunu çoğaltmak istiyorum

 

[Korhan Ayhan]

Dosya yüklemek için;

• Foruma altın üye olabilirsiniz.
• Harici dosya yükleme sitelerine örnek dosyanızı yükleyip linkini forumda paylaşabilirsiniz.

 

[onurcan1979]

Bahsettiğiniz sayfalar toplu olarak tek dosya içine mi yedeklenecek? Yoksa ayrı ayrı dosyalar olarak mı yedeklenecek?

Bununla ilgili örnek dosya paylaşınız.

suzdugum sayfalar tek bir kitap içinde sayfa sayfa yedeklenecek