Verileri kritere göre başka dosyalara kaydetmek

[kucukdunyam]

MERHABALAR!

her gün işleyip çıktı aldığım rapor sayfam mevcut, bu verileri aynı zamanda tarihlere göre oluşturduğum istatistik klasörünün içindeki dosyaların içerisine aktarılmasını istiyorum. verileri tarihe göre ilgili dosyalara yani (İSTATİSTİK KLASÖRÜNDEKİ Ocak dosyasının içindeki 01 sayfasına (tarih 01/01/2012 olduğu için) denetlenen bölge şehir içi ise, C4 hücresine, KADEM ise, C12 hücresine İZMİR ise C8 hücresine rapor sayfamdaki ilgili hücrelerin verilerini aktarmak istiyorum, bunu nasıl sağlayabilirim? klasörü zipleyip ekliyorum. ,

 

[kucukdunyam]

yardımcı olabilecek yokmu acaba küçük bir mantığını, örneğini anlayabilsem

 

[Excelmy]

yardımcı olabilecek yokmu acaba küçük bir mantığını, örneğini anlayabilsem

Dosyanız ektedir.

 

[kucukdunyam]

hocam çok teşekkür ederim çok emek vermişsiniz sanırım.
Set DnM = Workbooks(Format(S1.Range("C1"), "mmmm")) satırında hata alıyorum, ? yalnız office 2010 kullanıyorum bundan dolayı sorun yaşarmıyım.