Optellen totalen per locatie in kolom P

[samui]

Ik zou graag de totalen per storage bin bij elkaar opgeteld zien in kolom P
Het gaat goed als er maar 2 locaties zijn . Bij 3 of meer gaat hij dubbel tellen, omdat de macro niet goed is.
Wat moet het zijn om wel de juiste totalen in beeld te krijgen van alle IE locaties in P7, P9, P10 etc. etc.?

Sub rangschikken()
Application.ScreenUpdating = False
For b = 7 To 500

If ActiveSheet.Cells(b, 13).Value = ActiveSheet.Cells(b + 1, 13).Value Then
ActiveSheet.Cells(b, 16).Value = ActiveSheet.Cells(b, 14).Value + ActiveSheet.Cells(b + 1, 14).Value
End If
Next b
End Sub

Met deze gaat het gedeeltelijk goed totdat er 3 of meer locaties zijn.

Alvast bedankt voor reacties.

Frank

 

[edmoor]

Probeer deze eens:

Sub rangschikken()
    Dim d As Object, v As Variant, i As Long, adr As Object
    
    Set d = CreateObject("Scripting.Dictionary")
    For i = 7 To 500
        If Range("M" & i).Value <> "" Then d.Item(Range("M" & i).Value) = 1
    Next i
    
    Application.EnableEvents = False
    For Each v In d.keys()
        Set adr = Range("M6:M500").Find(v, , , xlWhole, xlByRows)
        If Not adr Is Nothing Then
            adr.Offset(, 3).Value = Application.SumIf(Range("M6:M500"), v, Range("N6:N500"))
        End If
    Next v
    Application.EnableEvents = True
End Sub

 

[samui]

Perfect

Dit is precies zoals ik het wil zien.

Bedankt EdMoor weer voor de oplossing.

Case closed.