sütündaki aynı değerlerin karşısındaki toplamını alma

[olmayan]

Merhaba

ekli dosyadaki adet sheetinin SBU sütununda bulunan değerlerin ADET sütunundaki adetlerinin toplamını toplam shetindeki değer alanlarına yazdırmak istiyorum,
örnek: 100 den toplam 15 adet var, 205 den 30 tane var gibi, yani aynı değerlerin toplamını.

teşekkürler.
kolay gelsin

 

[Ömer BARAN]

Merhaba.
İlk hücreye aşağıdaki formülü yazın ve saağa doğru kopyalayın.

=ETOPLA(Adet!$A$2:$A$11;A$1;Adet!$B$2:$B$11)

 

[olmayan]

Merhaba , Hızlı cevap için teşekkürler, bunu makro ile yapmak mümkün mü ?

 

[Orion1]

Merhaba , Hızlı cevap için teşekkürler, bunu makro ile yapmak mümkün mü ?

Dosyanız ektedir.

Option Base 1
Sub benzertopla59()
Dim sonsat As Long, i As Long, liste, z As Object
Range("E2:F" & Rows.Count).ClearContents
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
liste = Range("A2:B" & sonsat).Value
Set z = CreateObject("Scripting.dictionary")
For i = 1 To UBound(liste)
     If Not z.exists(liste(i, 1)) Then
        z.Add (liste(i, 1)), liste(i, 2)
    Else
        z.Item(liste(i, 1)) = z.Item(liste(i, 1)) + liste(i, 2)
    End If
Next i
Erase liste
Application.ScreenUpdating = False
If z.Count > 0 Then Range("E2").Resize(z.Count, 2) = Application.Transpose(Array(z.keys, z.items))
Set z = Nothing
Application.ScreenUpdating = True
MsgBox "İşlem tamamlandı." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[fatihaky]

faydalı bir başlık olmuş bende arıyordum açıkçası. teşekkürler ..

 

[Orion1]

faydalı bir başlık olmuş bende arıyordum açıkçası. teşekkürler ..

Rica ederim.
İyi çalışmalar.