topla çarpım makro hatası

[burhancavus61]

Maaş_Verileri sayfasından topla çarpım makro ile verileri toplatmaya çalışıyorum fakat For i den sonraki satırdaki
kod kısmında takılıyor sanırım yanlış kullanıyorum. nasıl yol izlemem gerekir topla çarpım kod dizimi hatalı sanırım

Sub ToplaCarp()
Application.ScreenUpdating = False
Dim s1 As Worksheet, s2 As Worksheet, son As Long, i As Long
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Maaş_Verileri")
son = s1.Cells(Rows.Count, 2).End(3).Row

    For i = 2 To son
    s1.Cells(i, "C") = WorksheetFunction.SumProduct(s1.Cells(i, "B") = (s2.Cells(i, "U")) * (s2.Cells(i, "S")))
    Next i

Set s1 = Nothing: Set s2 = Nothing
son = 0: i = 0
Application.ScreenUpdating = True
End Sub

 

[Korhan Ayhan]

İnceleyiniz.

https://www.excel.web.tr/threads/topla-carpim-sumproduct-fonksiyonunun-vba-icindeki-farkli-kullanimlari.82178/

 

[burhancavus61]

Teşekkür edrim hocam bolca örnek varmış