Sayfada şartlı toplam alma

[seddur]

Merhabalar.Ekli dosyada VERİLER sayfası "L" sutununda bulunan rakamlar ANASAYFA da bulunan "O" sutununa ay toplamları olarak listelenmek istenmektedir.(Ocak vrya Şubat ayı toplamı olarak)Ay isimleri VERİLER sayfası "C" sutununda bulunmaktadır.Aşağıdaki kodu yazdım ama istenen sonucu vermedi.Yardımcı olabilirmisiniz.

Set s1 = Sheets("VERİLER")
For i = 2 To s1.Cells(Rows.Count, "c").End(xlUp).Row
If s1.Cells(i, 3) = "Ocak" Then
[O3] = Application.WorksheetFunction.Sum(Sheets("VERİLER").Cells(i, "l"))
Else
If s1.Cells(i, 3) = "Şubat" Then
[O4] = Application.WorksheetFunction.Sum(Sheets("VERİLER").Cells(i, "l"))
End If:
Next

 

[Necdet]

Merhaba,

Formülü Makro ile yazdırdım.

Sub Tahsilat_Toplam()
   
    Dim ShV As Worksheet, _
        ShA As Worksheet, _
        i   As Long, _
        j   As Byte
       
    Set ShV = Sheets("VERİLER")
    Set ShA = Sheets("ANASAYFA")
   
    i = ShV.Cells(Rows.Count, "B").End(3).Row
   
    ShA.Select
   
    For j = 3 To 14
        Range("O" & j).Formula = "=SUMIF(VERİLER!C2:C" & i & ",G" & j & ",VERİLER!L2:L" & i & ")"
        'Range("O" & j) = Evaluate("=SUMIF(VERİLER!C2:C" & i & ",G" & j & ",VERİLER!L2:L" & i & ")")

    Next j
   
End Sub