data transponeren

[Joske2000]

Hallo,

Ik heb een lijst met klanten en bezoekdatums.
Ik zou nu in een lijstje de klanten willen hebben met erachter de verschillende bezoekdatums. (zoals in het gele vak in het voorbeeldje).
Het is een behoorlijk lange lijst van +/- 10000 bezoeken.

Iemand een idee ?

Thx,

Joske

 

[Niels28]

Bestandje gemaakt door WHER kun je er iets mee?

Bekijk bijlage VlookupWHER.xls

Niels

 

[Roncancio]

De gegevens worden in de F-kolom en verder geplaatst zoals in het voorbeeld.

Sub Klant()
Dim lRij As Long
Dim lsRij As Long
    lRij = 1
    Application.ScreenUpdating = False
    While Range("A" & lRij).Value <> ""
        With Range("A" & lRij)
            Set KL = Range("F:F").Find(.Value, , xlValues, xlWhole)
            If Not KL Is Nothing Then
                Range("IV" & KL.Row).End(xlToLeft).Offset(0, 1).Value = .Offset(0, 1).Value
            Else
                lsRij = lsRij + 1
                Range("F" & lsRij).Value = .Value
                Range("G" & lsRij).Value = .Offset(0, 1).Value
            End If
        End With
        lRij = lRij + 1
    Wend
    Range("F1").CurrentRegion.Sort key1:=Range("F1")
    Application.ScreenUpdating = True
End Sub

Met vriendelijke groet,


Roncancio

 

[Niels28]

Formule aangepast op jouw bestand.

Bekijk bijlage Klanten bezoekdata(1).xls

Niels

 

[Joske2000]

Bedankt,

Ik vermoed dat de matrixformules iets te zwaar gaan zijn voor het bestand.
Ik heb iets teveel lijnen .

Ik ga aan de slag met de module van Roncancio.

Mijn bezoeken staan echter op een ander tabblad, dus wordt het een beetje zoeken.
Als ik eruit ben, dan horen jullie het wel !

Bedankt,

Joske

 

[Joske2000]

@ Roncancio ,

Bedankt,

Ik heb het werkend gekregen !

Thx,

Joske