• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Aantal dezelfde items in kolom

Status
Niet open voor verdere reacties.

Fist36

Gebruiker
Lid geworden
25 mei 2011
Berichten
12
in een kolom heb ik in verschillende rijen dezelfde nummers.

Aan deze nummers is telkens een bepaalde tijd gekoppeld

Hoe kan ik dezelfde nummers én de verschillende tijden samen krijgen in een rij?

kolom tijd
1 14:20:20
2 14:25:30
1 14:32:10
2 14:35:00

Moet worden
kolom tijd1 tijd2
1 14:20:20 14:35:00
2 14:25:30 14:35:00
 
dat kan ongeveer zo:
Code:
Sub test()
    Dim i As Long
    Dim z As Long
    Dim compare As Variant
    Dim putcell As Long
    Dim testcell As Range
        
    z = Range("A65535").End(xlUp).Row
    For i = 1 To z
        compare = Cells(i, 1).Value
        If compare <> "" Then
        
            putcell = 3
            For Each testcell In Range("a" & (i + 1) & ":a" & z)
                If testcell.Value = compare Then
                    'MsgBox (testcell.Offset(0, 1).Value)
                    ActiveSheet.Cells(i, putcell).Value = testcell.Offset(0, 1).Value
                    testcell.ClearContents
                    testcell.Offset(0, 1).ClearContents
                    putcell = putcell + 1
                End If
            Next testcell
        End If
    Next i
    
End Sub

dit gaat er van uit dat de oplopende nummers staan in kolom A, beginnend vanaf A1.
 
Indien je de originele gegevens liever intact houdt, een iets andere aanpak.
 

Bijlagen

Bekijk bijlage sheet1.xlsxWher, Klopt helemaal wat het moet zijn. Maar als XLS amateur kan ik die macro niet aanpassen.
Vandaag de bijlage. Nummer begint in C7 tijd begint op E7. C6 en E6 is de controletijd. Hiermee moet nadien gaan tellen en hoeft niet in de rij opgenomen te worden. Vandaar nummer 0.
Ik heb nog geen idee hoeveel nummers erin zullen/kunnen komen.
 
De nummers komen nu in kolom K vanaf K7 (gokje), de tijden in kolom L, M, N, enz... Het grijze gebied is maar indicatief, de macro gebruikt zoveel rijen en kolommen als nodig is. De kolommen waar de tijden komen, moet je wel formatteren als "Tijd".
De knop "Oplijsten" start de macro.
 

Bijlagen

Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan