Yedekleme

[serhan]

Merhaba;

Önemli bir projede çalışıyorum. Ve yedekleme işlemi (formülsüz ve sadece değerlerin yedekleri) çok fazla zamanımı almaya başladı. Bunun üzerine aşağıdaki makro ile sayfaları yedeklemeye başladım. Bu şekilde de işimi hallediyorum ama daha fazlasını yapabilirmiyim diye düşündüm. Bilgim yetmedi... Ve ustalara müracat etmek farz oldu.

Acaba bir döngü ile dosyadaki tüm çalışma sayfalarının yedeklerini tek bir dosyada toparlayabilirmiyiz. Zaman ayırdığınız için teşekkürler...

Sub Degerlerle_Yedekle()
Cells.Select
Selection.Copy
Range("A1").Select
Workbooks.Add
'Biçimlemeleri kopyalaması için
ActiveSheet.Paste
'Değerleri yapıştırması için
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
End Sub