Sıralama ve toplam alma.

[parle75]

Merhabalar Benim de bir sorum olucak daha önceki benzer sorulara. Ama yakın bir sey bulamadım acıkcası.
Benim sorum
ABC stunlarında datalar bulunucak ve Baska bir sayfa acarak bunları kayıt edicek bir sey arıyorum.
Yani A nın c deki toplamı x
B nin C deki toplamı y olucak bu konuda yardımlarınızı rica edicem.
A B C
Elif 12 100
ELİF 5 150
ayse 7 200
seda 8 125
makro calıstıgında baska bir sayfaya Elif 250
Ayse 200
Seda 125 diye toplamlarını alsın.

 

[zafer]

Merhaba

B sütununun toplam alırken hiç bir anlamı yok gibime geldi.

liste sayfasında veriler
aa sayfasında da toplamları olacak şekile ayarlanmıştır.

Sub listele()
For b = 1 To Cells(65536, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Range("a1:a" & b), Cells(b, 1)) = 1 Then
c = c + 1 ' SATIRLARI ALT ALTA YAZMAK İÇİN SATIR NUMARASI
Sheets("aa").Cells(c, 1) = Cells(b, 1).Value
End If
Next
TOPLACARP1
End Sub

Sub TOPLACARP1()
satır = Sheets("aa").Cells(65536, 1).End(xlUp).Row
For A = 1 To satır
isim = Sheets("aa").Cells(A, 1).Value
Sheets("aa").Cells(A, 3) = Evaluate("SUMPRODUCT((LISTE!a1:a55100=""" & isim & """)*(LISTE!c1:c55100))")
Next
End Sub

listele makrosu Sn.Leventm'ye aittir

 

[ozkbilgi]

Merhaba

B sütununun toplam alırken hiç bir anlamı yok gibime geldi.

liste sayfasında veriler
aa sayfasında da toplamları olacak şekile ayarlanmıştır.

Sub listele()
For b = 1 To Cells(65536, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Range("a1:a" & b), Cells(b, 1)) = 1 Then
c = c + 1 ' SATIRLARI ALT ALTA YAZMAK İÇİN SATIR NUMARASI
Sheets("aa").Cells(c, 1) = Cells(b, 1).Value
End If
Next
TOPLACARP1
End Sub

Sub TOPLACARP1()
satır = Sheets("aa").Cells(65536, 1).End(xlUp).Row
For A = 1 To satır
isim = Sheets("aa").Cells(A, 1).Value
Sheets("aa").Cells(A, 3) = Evaluate("SUMPRODUCT((LISTE!a1:a55100=""" & isim & """)*(LISTE!c1:c55100))")
Next
End Sub

listele makrosu Sn.Leventm'ye aittir

peki arkadaşın dediği gibi 3 sütunda işime yarayacaksa yani a sütunundaki verileri b sütunundaki kritere göre c sütunundaki toplamlar gibi
örnek
stok adı-stok kodu-depo kodu-toplam gibi nasıl yaparız