dengeceteris
Altın Üye
- Katılım
- 21 Aralık 2019
- Mesajlar
- 192
- Excel Vers. ve Dili
- Office 2016
- Altın Üyelik Bitiş Tarihi
- 15-06-2025
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
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