Merhaba,
Aşağıdaki kod sadece A3 teki veriye göre çalışıyor. İstediğim A3 : A700 aralığına toplam getirsin.
** Arg3 = Sheets("liste").Range("A3").Value 'Sicil No - aşağı doğru gidiyor
Yardımlarınız için şimdiden teşekkür eder, iyi çalışmalar dilerim.
Sub listeveri()
Dim Arg1 As Range 'the range i want to sum
Dim Arg2 As Range 'criteria range
Dim Arg3 As Variant 'the criteria
Dim Arg4 As Range 'criteria range
Dim Arg5 As Variant 'the criteria
Dim i As Integer
For i = 16 To 27 ' P - AA arası
Set Arg1 = Sheets("puantaj").Range("AO:AO")
Set Arg2 = Sheets("puantaj").Range("A:A") 'Sicil No
Set Arg4 = Sheets("puantaj").Range("AJ:AJ") 'Ocak, Şubat vs.
Arg3 = Sheets("liste").Range("A3").Value 'Sicil No - aşağı doğru gidiyor
Arg5 = Sheets("liste").Cells(2, i).Value 'Ocak, Şubat vs. - sağa doğru gidiyor
Worksheets("liste").Cells(3, i).Value = Application.WorksheetFunction.SumIfs(Arg1, Arg2, Arg3, Arg4, Arg5) ' P3 - sağa doğru gidiyor
Next
End Sub
Aşağıdaki kod sadece A3 teki veriye göre çalışıyor. İstediğim A3 : A700 aralığına toplam getirsin.
** Arg3 = Sheets("liste").Range("A3").Value 'Sicil No - aşağı doğru gidiyor
Yardımlarınız için şimdiden teşekkür eder, iyi çalışmalar dilerim.
Sub listeveri()
Dim Arg1 As Range 'the range i want to sum
Dim Arg2 As Range 'criteria range
Dim Arg3 As Variant 'the criteria
Dim Arg4 As Range 'criteria range
Dim Arg5 As Variant 'the criteria
Dim i As Integer
For i = 16 To 27 ' P - AA arası
Set Arg1 = Sheets("puantaj").Range("AO:AO")
Set Arg2 = Sheets("puantaj").Range("A:A") 'Sicil No
Set Arg4 = Sheets("puantaj").Range("AJ:AJ") 'Ocak, Şubat vs.
Arg3 = Sheets("liste").Range("A3").Value 'Sicil No - aşağı doğru gidiyor
Arg5 = Sheets("liste").Cells(2, i).Value 'Ocak, Şubat vs. - sağa doğru gidiyor
Worksheets("liste").Cells(3, i).Value = Application.WorksheetFunction.SumIfs(Arg1, Arg2, Arg3, Arg4, Arg5) ' P3 - sağa doğru gidiyor
Next
End Sub
