Döngü ile çoketopla hk.

[kemal turan]

merhaba,
Aşağıdaki kodun sadece bold olan kısım hata veriyor.
Kod krıteri şu şekildedir.
ALACAKLAR! sayfasında A sutunundaki cari no,
ALACAKLAR! sayfasındaki J sutunundaki cari no eşitse Toplama yapmasını istiyorum.
s1.[F2:F10000].ClearContents 'satılabilir
For i = 2 To Cells(65536, "A").End(xlUp).Row
Cells(i, "F").Value = WorksheetFunction.SumIfs(s2.Range("W:W"), s2.Range("Z:Z"), "GECİKEN ÖDEME", s1.Range("A:A"), s2.Range("J:J"))
Next i

Set s1 = Sheets("GECIKENLISTE")
Set s2 = Sheets("ALACAKLAR")
s1.Select
s1.[C2:C10000].ClearContents 'giren
son = s1.Cells(Rows.Count, "A").End(3).Row 'STOK KODU
With s1.Range("C2:C" & son) 'BORÇ
.Formula = "=SUMIF(ALACAKLAR!J:J,GECIKENLISTE!a2,ALACAKLAR!W:W)"
.Value = .Value
End With
s1.[D2:D10000].ClearContents 'giren
son = s1.Cells(Rows.Count, "A").End(3).Row 'STOK KODU
With s1.Range("D2:D" & son) 'BORÇ
.Formula = "=SUMIF(ALACAKLAR!J:J,GECIKENLISTE!a2,ALACAKLAR!X:X)"
.Value = .Value
End With
s1.[E2:E10000].ClearContents 'satılabilir
For i = 2 To Cells(65536, "A").End(xlUp).Row
Cells(i, "E").Value = WorksheetFunction.Sum(Range("C" & i) - Range("D" & i))
Next i
s1.[F2:F10000].ClearContents 'satılabilir
For i = 2 To Cells(65536, "A").End(xlUp).Row
Cells(i, "F").Value = WorksheetFunction.SumIfs(s2.Range("W:W"), s2.Range("Z:Z"), "GECİKEN ÖDEME", [B]s1.Range("A:A"), s2.Range("J:J")[/B])
Next i
End sub

 

[kemal turan]

Merhaba,
Makro çalıştır yöntemi ile elde ettiğim aşağıdaki kod ile sorun çözülmüştür.
Teşekkür ederim

s1.[F2:F10000].ClearContents 'giren
son = s1.Cells(Rows.Count, "A").End(3).Row 'STOK KODU
With s1.Range("F2:F" & son) 'BORÇ
.Formula = "=SUMIFS(ALACAKLAR!C[17],ALACAKLAR!C10,RC[-5],ALACAKLAR!C26,""GECİKEN ÖDEME"")"
.Value = .Value
End With