rapportje maken van gegevens

[GerV]

Hallo,

ik heb een aantal gegevens uit een sijsteem gehaald (in excell opmaak) en wil deze plaatsen in een overzicht.
De gegevens betreffen de datums dat mensen naar een bijeenkomst zijn geweest. In het overzicht heb ik de namen en persnr staan van alle mensen die naar de bijeenkomst moeten gaan.

Het doel is om in het ovz te zien op welke datums men geweest is en wie nog niet geweest is.
In het tabblad ovz staan nog meer gegevens. De datums moeten ingelezen worden in kolom D, E en verder.

Zie de bijlage.Bekijk bijlage lhm ovz.xlsx

(ik heb deze vraag (in slecht engels) ook geplaatst op de vbaexpress site (http://www.vbaexpress.com/forum/showthread.php?53527-create-a-summary)

Wie kan mij helpen?

Ger

Oplossing gekregen via vbaexpress.

 

[snb]

Sub M_snb() 
    sn = Sheets("gegevens").Cells(1).CurrentRegion 
    sp = Sheets("ovz").Cells(1).CurrentRegion 
     
    With CreateObject("scripting.dictionary") 
        For j = 2 To UBound(sn) 
            .Item(sn(j, 1)) = .Item(sn(j, 1)) & "_" & sn(j, 2) 
        Next 
         
        For j = 2 To UBound(sp) 
            If .exists(sp(j, 1)) Then Sheets("ovz").Cells(j, 4).Resize(, UBound(Split(.Item(sp(j, 1)), "_"))) = Split(Mid(.Item(sp(j, 1)), 2), "_") 
        Next 
    End With 
End Sub