makro ile sumproduct

[erkandeveci]

arkadaşlar merhaba
rapora sayfasına npl sayfasında makro ile sumprodct formulünü uygulamak istiyorum yada orada yer alan müsterilerin toplam riskini getirmek isityorum nasıl yapaibiilirim
teşekkür ederim.

 

[Orion1]

dosyanız ektedir.
5000 satır için.

=ETOPLA(npl!$A$1:$A$5000;rapor!$A2;npl!$B$1:$B$50000)

 

[erkandeveci]

peki sumproduct formulünü makro olarak nasıl yazabiilrim yaklaşık 100000 satır lı bir veri var ve birdden fazla sumproduct kullandığım zaman dosyayı çok kasıyor o yüzden makro ile nasıl çözüm üretebilirm.
teşekkürler.

 

[Orion1]

peki sumproduct formulünü makro olarak nasıl yazabiilrim yaklaşık 100000 satır lı bir veri var ve birdden fazla sumproduct kullandığım zaman dosyayı çok kasıyor o yüzden makro ile nasıl çözüm üretebilirm.
teşekkürler.

dosyanız ektedir.

Sub etopla59()
Dim sh As Worksheet, sat1 As Long, sat2 As Long, i As Long
Sheets("rapor").Select
Set sh = Sheets("npl")
sat1 = Cells(Rows.Count, "A").End(xlUp).Row
sat2 = sh.Cells(Rows.Count, "A").End(xlUp).Row
Range("B2:B" & Rows.Count).ClearContents
Application.ScreenUpdating = False
For i = 2 To sat1
    Cells(i, "B").Value = WorksheetFunction.SumIf(sh.Range("A1:A" & sat2), _
            Cells(i, "A").Value, sh.Range("B1:B" & sat2))
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlanmıştır." & vbLf & "evrengizlen@hotmail.com"
   
End Sub

 

[erkandeveci]

teşekkür ederim ellerinize sağlık