Makro:Mevcut Excel Dosyasından Yeni Excel Sayfasına Bilgileri Aktarma

[erseljti]

Makro:Mevcut Excelden Yeni Excel Sayfasına Bilgileri Aktarma

Sevgili Üstadlarım Merhabalar.
Her gün Hazırladığım Cari Raporunu amirlerime mail atmam gerekiyor.Dosyam Ekte.
Formüllerle Kastığı için ben bu dosyama bir buton kayarak
Sekme Rengi Mavi ile boyalı sayfaları(Bölge,Cari Kullanım Oranı,Küm Cari,Saha Cari,Bayi Listesi*Bu Shette A ile AF sutunları arasını)
Yeni bir excel sayfasına sadece veri olarak aktarmak istiyorum.
Bu aktarma işlemi sırasında Sayfa boyutlandırma ve Koşullu Biçimlendirmelerin bozulmamması işi muhteşem hale getirir.
Eğer Mümkünse Yeni Excel Sayfasının dosya adının Bugünün Tarihi ve Cari Raporu şeklinde yazmasını istiyorum
Örn : 29.07.2013-Cari Raporu Şeklinde
Konuyla ilgili yardımlarınıza ihtiyacım var.
İlginiz için Şimdide Teşekkürler
Dosyam EK tedir.

 

[Huseyinkis]

Ekteki kodları denermisiniz. aşağıdaki kodlar içerisinde bulunan ActiveWorkbook.SaveAs "C:\Users\Huseyin\Desktop\ kısmını kendi bilgisayarınızdaki Klasör yeri ile değiştirin.

Sub Yedek()

strDate = Format(Date, "DD.MM.YYYY")
Application.Calculation = xlCalculationManual
Sheets(Array("Bölge", "Cari Kullanım Oran", "Küm Cari", "Saha Cari", "Bayi Listesi")).Copy
For i = 1 To Sheets.Count
    Sheets(i).Select
    Sheets(i).Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Sheets(i).Cells(1, 1).Select
Next i
       
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "C:\Users\Huseyin\Desktop\" & strDate & "-Cari Raporu.xls", FileFormat:=56
ActiveWorkbook.Close False
Application.DisplayAlerts = True

Application.Calculation = xlCalculationAutomatic

End Sub

 

[erseljti]

Hocam Çok teşekkür ederim
Süper Olmuş Tek kelime ile....