İsmin yanında yazan rakamları toplama

[lazkes01]

ekteki dosya için yardımcı olursanız çok sevinirim.

 

[lazkes01]

Arkadaşlar sorunu hallettim. Konu silinebilir.

 

[iaydin45]

Benim de benzer bir sorunum var.
İsmin karşısındaki rakamların toplanması lazım. Siz sorunu nasıl hallettiniz. Sizin yöntemle halledebilirsem ayrı konu açmamış olacağım.
Formülü paylaşabilir misin lütfen.
Teşekkürler.

 

[Ziynettin]

Merhaba,
#1 nolu mesajdaki dosyaya göre uyarlanmış kod

Sub iaydin()
Dim i As Integer, j As Integer
   Range("J2:J" & Range("H" & Rows.Count).End(3).Row) = ""
    For i = 2 To Range("A" & Rows.Count).End(3).Row
     For j = 2 To Range("H" & Rows.Count).End(3).Row
        If Cells(i, 7) = Cells(j, 8) Then
        Cells(j, 10) = Cells(j, 10) + Cells(i, 6)
        End If
     Next j
  Next i
MsgBox "İşlem tamam.", vbInformation
End Sub

 

[iaydin45]

Bunu formülle yapmanın yolu var mı?
Benim için çok daha yararlı olacak.