Soru ETOPLA

[dengeceteris]

Selamlar..
Etopla formülü yazarken formül önce düzgün çalışıyor sonra 2.sütuna geçince hesaplamaları siliyor. Yapmaya çalıştığım ise ölçüt kısmında 8 tane sütunu baz alarak toplamları yapmaya çalışıyorum. Yardımcı olursanız sevinirim.

Sub GELİR_TABLO()
Dim x As Long, y As Long, songt As Long, sonam As Long, z As Date
Dim Sam As Worksheet, Sgt As Worksheet, Wf As WorksheetFunction

Set Sam = Sheets("ANAMİZAN")
Set Sgt = Sheets("GELİRTABLO")
Set Wf = WorksheetFunction
Sgt.Range("J3:N69").ClearContents

For x = 3 To 60
For y = 1 To 8

Sgt.Cells(x, 10) = Wf.SumIf(Sam.Range("A:A"), Sgt.Cells(x, y), Sam.Range("N:N"))
Sgt.Cells(x, 11) = Wf.SumIf(Sam.Range("A:A"), Sgt.Cells(x, y), Sam.Range("O:O"))
Sgt.Cells(x, 12) = Wf.SumIf(Sam.Range("A:A"), Sgt.Cells(x, y), Sam.Range("P"))
Sgt.Cells(x, 13) = Wf.SumIf(Sam.Range("A:A"), Sgt.Cells(x, y), Sam.Range("Q:Q"))
Sgt.Cells(x, 14) = Wf.SumIf(Sam.Range("A:A"), Sgt.Cells(x, y), Sam.Range("R:R"))
Next
Next
End Sub

 

[Necdet]

Merhaba,
Altın üyesiniz basit bir dosya ekleseniz uygulama yapmak daha kolay olur, çözeme de ulaşmanız hızlı olur.

 

[ÖmerFaruk]

Eğer WF ile başlayan matematiksel işlemleriniz doğru ise kodu aşağıdaki şekilde revize edebilirsiniz.
Kullandığınız dosya bu kodlarla yavaş çalışıyorsa kodlar hızlandırılabilir.

Sub GELİR_TABLO()
Dim x As Long, y As Long, songt As Long, sonam As Long, z As Date
Dim Sam As Worksheet, Sgt As Worksheet, Wf As WorksheetFunction

Set Sam = Sheets("ANAMİZAN")
Set Sgt = Sheets("GELİRTABLO")
Set Wf = WorksheetFunction
Sgt.Range("J3:N69").ClearContents

For x = 3 To 60
Sgt.Range("J" & x, "N" & x).ClearContents
For y = 1 To 8
    Sgt.Cells(x, 10) = Wf.SumIf(Sam.Range("A:A"), Sgt.Cells(x, y), Sam.Range("N:N")) + Sgt.Cells(x, 10)
    Sgt.Cells(x, 11) = Wf.SumIf(Sam.Range("A:A"), Sgt.Cells(x, y), Sam.Range("O:O")) + Sgt.Cells(x, 11)
    Sgt.Cells(x, 12) = Wf.SumIf(Sam.Range("A:A"), Sgt.Cells(x, y), Sam.Range("P:p")) + Sgt.Cells(x, 12)
    Sgt.Cells(x, 13) = Wf.SumIf(Sam.Range("A:A"), Sgt.Cells(x, y), Sam.Range("Q:Q")) + Sgt.Cells(x, 13)
    Sgt.Cells(x, 14) = Wf.SumIf(Sam.Range("A:A"), Sgt.Cells(x, y), Sam.Range("R:R")) + Sgt.Cells(x, 14)
Next
Next
End Sub