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
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 .........
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.