Gescoorde punten optellen bij het totaal

[Oude leerling]

Geacht forum ,

Ik kom er niet niet uit.
Hoe kan ik via een macro individueel gescoorde punten optellen bij het totaal van de betreffende persoon.

 

[VenA]

Probeer het zo eens

Sub VenA()
Dim r As Range
With Sheets("Blad1")
    For Each cl In .Columns(1).SpecialCells(2).Offset(1).SpecialCells(2)
        Set r = .Columns(14).SpecialCells(2).Find(cl.Value)
        If Not r Is Nothing Then .Cells(r.Row, 15) = .Cells(r.Row, 15) + cl.Offset(, 10)
    Next cl
End With
End Sub

 

[Oude leerling]

VenA

Dat werkt perfect.
Wil je het voor mij uitleggen hoe deze code werkt.
Wat zit er een kennis bij jullie.
Heel erg bedankt.
Jaap

 

[VenA]

Welk stuk begrijp je niet of heb je niet zelf even kunnen opzoeken?

Als ik zelf code niet begrijp maak ik gebruik van de ingebakken middelen die je in de VB editor kan vinden. Locale variabelen aan en met <F8> door de code te wandelen.

Ander hulpmiddelen zijn het tijdelijk gebruik van .Select of een msgbox.

bv

Sub testje()
Sheets("Blad1").Columns(1).SpecialCells(2).Offset(1).SpecialCells(2).Select
End Sub

Sub testje1()
MsgBox Sheets("Blad1").Columns(1).SpecialCells(2).Offset(1).SpecialCells(2).Address
End Sub

Hier kan je dan een beetje mee spelen om te zien wat de effecten zijn.