Veri Listesinden Yıl ve Aya göre veri toplama

[Muhammet]

Merhabalar,

Elimde çalıştığım bir dosya var. Bu dosyada formülle yapmış olduğum işlemi kod ile yapmak istiyorum. Veri sayısı fazla olduğundan formülde sıkıntı oluyo.

Scripting.Dictionary veya Ado ile yapmaya çalıştım sonucuna ulaşamadım.

Not:Sayfa2 A Sütunundaki veriler ben kendim manuel girmek istiyorum. Kod B2:M26 alanında çalışacak.

Formül:

=TOPLA.ÇARPIM((Sayfa1!$A$2:$A$26=$A2)*(TARİH(YIL(Sayfa1!$C$2:$C$26);AY(Sayfa1!$C$2:$C$26);0)=TARİH(YIL(B$1);AY(B$1);0))*(Sayfa1!$D$2:$D$26))

İndirme Linki

 

[muygun]

Merhaba;
Eki deneyin.
Not: Kodlardaki "kenarlık" yazan satırları kaldırırsanız kodlar daha hızlı işlem yapar.
İyi çalışmalar.

Link:
http://s3.dosya.tc/server7/1m2mj8/Muhammet-Ornek_Calisma.zip.html

 

[Muhammet]

Sayın muygun,

Teşekkür ederim. kod hız bakımından iyi kendime göre uyarlıyam..