LİSTE TOPLAMA

[scartex]

LÝSTE TOPLAMA

LİSTE TOPLAMA

 

[zafer]

Merhaba

F3 hücresine formülü kopyalayın
=TOPLA.ÇARPIM(($B$3:$B$10000=E3)*($C$3:$C$10000))

Makro ile istiyorsanız

Sub listele2()
For b = 3 To Cells(65536, 2).End(xlUp).Row
If WorksheetFunction.CountIf(Range("b3:b" & b), Cells(b, 2)) = 1 Then
c = c + 1
Sheets("sayfa1").Cells(c + 2, 5) = Cells(b, 2).Value
End If
Next
TOPLACARP1
End Sub

Sub TOPLACARP1()
satır = Sheets("sayfa1").Cells(65536, 5).End(xlUp).Row
For A = 3 To satır
isim = Sheets("sayfa1").Cells(A, 5).Value
Sheets("sayfa1").Cells(A, 6) = Evaluate("SUMPRODUCT((sayfa1!b3:b55000=""" & isim & """)*(sayfa1!c3:c55000))")
Next
End Sub

 

[bekir38]

merhaba,

ekte toplam alma ile ilgili değişik örnekler var.
umarım işinize yarar.

iyi çalışmalar,

 

[scartex]

ÇOK TEÞEKKÜR EDERİM ARKADAÞLAR . BU SİTEYİ SEVİYORUM ÇÜNKÜ BÜTÜN PROBLEMLERİM ÇÃ?ZÜLÜYOR. :hihoho:

 

[fazli77]

Arkadaşlar cevapları mümkün olduğu kadar zip ile verirseniz sevinirim bilgisayarımda rar dosyaları için program yok kurmak ta istemiyorum bazı nedenlerden teşekkürler .........