Makroda Toplam Aldırma Kodları

[baydeniro]

Sayın üstatlar. Mümkünse makroda toplam aldırma ile ilgili çeşitli kodları yazabilir misiniz.

1) Aynı sayfadaki aynı tarihte olanlar. Koda göre.
2) Farklı sayfalarda aynı koddan olanlar.
3) Aynı sayfada, aynı tarihte, aynı kodda, aynı şehirde olanlar,
4) Aynı sayfada aynı isimde, aynı tarihte olanlar, koda göre.

Buradaki kod semboliktir. Bunu gerektiğinden Vatandaşlık, personel sivcil v.b. gibi çoğaltmak mümkündür.

 

[zafer]

Merhaba

Topla çarpım ile ilgili.

xx sütunlarınız
yyyy bilgilerin alındığı sayfa

Başka sayfalardan veri alınacaksa

Sheets("yyyy").Cells(a, xx) yerine her sumproduct formülü için bir değişken atarsınız.

Sy1 = Evaluate("SUMPRODUCT((sy1!.....
Sy2 = Evaluate("SUMPRODUCT((sy2!....

gibi sonrada istediğiniz hücrede bunları birleştirirsiniz.

cells(......)=sy1+sy2

Ayrıca Arama motorunu kullanınız

Sub TOPLACARP1()
satır = sheets("yyyyy").Cells(65536, 1).End(xlUp).Row
For a = 2 To satır 'Sheets("TOPLAM").Cells(65536, 1).End(xlDown).Row
bolge = cells(a,xx).Value
yore = cells(a,xx).Value
MAL = Cells(a, xx).Value
 
Sheets("yyyy").Cells(a, xx) = Evaluate("SUMPRODUCT((LISTE!m2:m55100=""" & bolge & """)*(LISTE!l2:l55100=""" & yore & """)*(LISTE!I2:I55100=""" & MAL & """)*(LISTE!E2:E55100))")
Next

End Sub