Sayfa yedeğini alma

ASLAN7410

Altın Üye
Altın Üye
Katılım
15 Temmuz 2012
Mesajlar
2,633
Excel Vers. ve Dili
Ofis 2013 TR 64 Bit
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?

Kod:
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
.
 

Ekli dosyalar

Katılım
13 Ekim 2017
Mesajlar
178
Excel Vers. ve Dili
2003-tr
Kod:
Sheets(c).Copy
Sheets(c).SaveAs "KONUM" & SAYFA ADI & ".xlsx"
ActiveWorkbook.Close
Kodunuz bu. Kendinize göre düzenleyin.
 

ASLAN7410

Altın Üye
Altın Üye
Katılım
15 Temmuz 2012
Mesajlar
2,633
Excel Vers. ve Dili
Ofis 2013 TR 64 Bit
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?
 
Katılım
13 Ekim 2017
Mesajlar
178
Excel Vers. ve Dili
2003-tr
Kod:
ds.CopyFile dosyaadi, yol
Bu kodu aşağıdaki ile değiştirin.


Kod:
Sayfa1.Copy
Sayfa1.SaveAs yol, dosyaadi
ActiveWorkbook.Close
Böyle deneyebilir misiniz? Olması lazım.
 

ASLAN7410

Altın Üye
Altın Üye
Katılım
15 Temmuz 2012
Mesajlar
2,633
Excel Vers. ve Dili
Ofis 2013 TR 64 Bit
Aşağıdaki kod satırını sarıya boyadı.

Sayfa1.SaveAs yol, dosyaadi
 

ASLAN7410

Altın Üye
Altın Üye
Katılım
15 Temmuz 2012
Mesajlar
2,633
Excel Vers. ve Dili
Ofis 2013 TR 64 Bit
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.
 
Katılım
13 Ekim 2017
Mesajlar
178
Excel Vers. ve Dili
2003-tr
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

Altın Üye
Altın Üye
Katılım
15 Temmuz 2012
Mesajlar
2,633
Excel Vers. ve Dili
Ofis 2013 TR 64 Bit
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?
 
Katılım
13 Ekim 2017
Mesajlar
178
Excel Vers. ve Dili
2003-tr
uzanti kısmını xls yapın ve

Kod:
Sheets("SİSTEM").SaveAs yer & ad & uzanti, FileFormat:=56
Bu kısmı böyle düzeltin.
 

ASLAN7410

Altın Üye
Altın Üye
Katılım
15 Temmuz 2012
Mesajlar
2,633
Excel Vers. ve Dili
Ofis 2013 TR 64 Bit
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.
 

onurcan1979

Altın Üye
Katılım
29 Mayıs 2010
Mesajlar
186
Excel Vers. ve Dili
2003 tr

onurcan1979

Altın Üye
Katılım
29 Mayıs 2010
Mesajlar
186
Excel Vers. ve Dili
2003 tr
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

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
29,328
Excel Vers. ve Dili
OFFICE 2019 PRO TR
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

Altın Üye
Katılım
29 Mayıs 2010
Mesajlar
186
Excel Vers. ve Dili
2003 tr
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

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
29,328
Excel Vers. ve Dili
OFFICE 2019 PRO TR
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

Altın Üye
Katılım
29 Mayıs 2010
Mesajlar
186
Excel Vers. ve Dili
2003 tr
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
 
Üst