JeanPaul,
Je bedoelt het goed echt waar maar je bent het verkeerde bestand aan het aanpassen.
Het gaat om het bestand en de uitleg in deze post:
Reactie #34 Gepost op: Vandaag om 21:41:17 »
Daar is de plaats anders geworden etc etc dat hadden we vanmiddag al gedaan.
Beter nog kan je deze code aanpassen zodat hij gewoon optelt verder klopt alles in de code, de kolommen, de plaats alleen hij telt niet op:
Sub JPS()
Dim a, i As Long, txt As String, w
a = Cells(21, 1).CurrentRegion.Value
Range("A21:F" & Cells(Rows.Count, 1).End(xlUp).Row).Clear
With CreateObject("Scripting.Dictionary")
.CompareMode = 1
For i = 1 To UBound(a, 1)
x = Chr(2)
txt = Join(Array(a(i, 1), a(i, 6)), Chr(2))
If Not .exists(txt) Then
.Item(txt) = VBA.Array(a(i, 1), a(i, 2), a(i, 3), a(i, 4), a(i, 5), a(i, 6)) ''aangepast met de kolom B en C toevoegen
Else
w = .Item(txt): w(2) = w(2) + a(i, 6)
.Item(txt) = w
End If
Next
a = .items: i = .Count
End With
Range("a21").Resize(i, 6).Value = Application.Index(a, 0, 0) ''aangepast met 6
Range("B21:C" & Cells(Rows.Count, 1).End(xlUp).Row).ClearContents
End Sub