Çalışma Sayfalarını Farklı Kaydetme

[kadir78]

excel dosyası içerisinde 7 adet çalışma sayfası bulunuyor. birinci çalışma sayfası hariç diğer 6 adet sayfasını makro kodlarıyla butona tıklayarak farklı kaydet yapılabilirmi. mesela 7 adet çalışma sayfasının 1,3,5 nolu sayfalarını tek butonla farklı bir klasörün içine faklı kaydet yapılabilirmi, faklı kaydedilen çalışma sayfaları tek excel dosyasında olacak şekilde yapılabilirmi acaba.

aşağıdaki macro ile çalışma kitabını butona tıklayarak isim veriyorum ve bir çok yere yedeleyebiliyorum, fakat benim istediğim 7 çalışma sayfasının birincisi hariç diğer altısını tek excel dosyasına farklı kaydet yapmak

Sub yedekal()
Dim dosya, isim, ydk, ydk2, ydk3, ydk4 As String
On Error Resume Next

dosya = ActiveWorkbook.Name
isim = "" & dosya & ".xlsm"
ydk = "C:\yedek\" & isim & ""
ydk2 = "C:\yedek 2\" & isim & ""
ydk3 = "C:\yedek 3\" & isim & ""
ydk4 = "C:\yedek 4\" & isim & ""

ActiveWorkbook.SaveCopyAs ydk
ActiveWorkbook.SaveCopyAs ydk2
ActiveWorkbook.SaveCopyAs ydk3
ActiveWorkbook.SaveCopyAs ydk4

End Sub



Bu konu hakkında bana yardımcı olursanız sevinirim. iyi günler.

 

[kemalist]

Makro ile kopyala-Özel yapıştır olarak yapılablir.Örnek dosya eklerseniz daha iyi yardımcı olunur.

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub YEDEK_AL()
    Dim Yol As String, Dosya_Adi As String
    
    Application.ScreenUpdating = False
    Dosya_Adi = "Yedek_" & ThisWorkbook.Name
    Yol = "C:\YEDEK"
    If Dir(Yol, vbDirectory) = "" Then MkDir (Yol)
    
    Sheets(Array("Sayfa2", "Sayfa3", "Sayfa4", "Sayfa5", "Sayfa6", "Sayfa7")).Copy
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Yol & "\" & Dosya_Adi, FileFormat:=52
    ActiveWorkbook.Close 0
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    
    MsgBox "Yedekleme işlemi tamamlanmıştır.", vbInformation
End Sub

 

[kadir78]

Korhan Bey çok teşekkür ederim. Tam istediğim de buydu zaten.
Altın Üye olmak istiyorum, ne gerekiyor acaba. Yardımcı olursanız sevinirim. İyi günler dilerim.

 

[Korhan Ayhan]

Aşağıdaki linkte açıklamalar var.

Altın Üyelik

 

[kadir78]

Korhan Bey, verdiğiniz kodlar işime yaradı fakat dosya ismini benim belirlediğim hücreden alması için ne yapmalıyım. Saygılar.

 

[Korhan Ayhan]

Kod içindeki aşağıdaki satırı düzenlemeniz gerekir.

Dosya_Adi = "Yedek_" & ThisWorkbook.Name

Aşağıdaki gibi olabilir.

Dosya_Adi = Sheets("Sayfa_Adı").Range("A1")

 

[kadir78]

Üstad çok teşekkür ederim. İşe yaradı, çok sağolun.

 

[cancan1221]

İyi çalışmalar,
bu kodda nasıl bir düzenleme yapalım ki pdf olarak kaydedelim.

Sub YEDEK_AL()
Dim Yol As String, Dosya_Adi As String

Application.ScreenUpdating = False
Dosya_Adi = "Yedek_" & ThisWorkbook.Name
Yol = "C:\YEDEK"
If Dir(Yol, vbDirectory) = "" Then MkDir (Yol)

Sheets(Array("Sayfa2", "Sayfa3", "Sayfa4", "Sayfa5", "Sayfa6", "Sayfa7")).Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Yol & "\" & Dosya_Adi, FileFormat:=52
ActiveWorkbook.Close 0
Application.DisplayAlerts = True
Application.ScreenUpdating = True

MsgBox "Yedekleme işlemi tamamlanmıştır.", vbInformation
End Sub

 

[igultekin2000]

Günün tarihi

İyi akşamlar;
Kullanılabilecek bir makro, yedeklerken günün tarihini de otomatik ilave etmemiz mümkünmüdür?
yedeklemede makrolar yedeklenmiyor, olduğu gibi yedeklemek mümkün müdür.?