Çoketopla farklı hücrelere göre toplama

[nilgunbak]

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

 

[Ömer]

Merhaba,

Sorunuzu örnek dosya ekleyerek detaylı açıklar mısınız.

Dosya Yükle - Dosya Upload

Dosyalarınızı ücretsiz yükleyebilir ve paylaşabilirsiniz. Dosya yükleme, Dosya Upload ücretsiz.

dosya.co