kolom naar rij

[corania17]

Geachte forumleden, wederom een vraag. Is het mogelijk om kolommen om te zetten naar een rijen?
In het voorbeeld staan nummers JA01-001 enz. met daarachter een datum en een naam dus geen A t/m Z
Is het nu mogelijk om het nummer JA01-001 eenmaal te plaatsen op hetzelfde of op een nieuw blad met de daarbij behorende gegevens er achter?
Ik heb een resultaat in rood aangegeven maar dan met de hand en gesorteerd van hoog naar laag in datum.
Het maximaal aantal per nummer is 7 zie JA03-017
Ook het aantal rijen is meer dan deze 46.
Wie heeft hiervoor de juiste sleutel?
Ik gebruik Excel 2013.
Bij voorbaat bedankt, Rubik.

 

[VenA]

Ik heb een resultaat in rood aangegeven maar dan met de hand en gesorteerd van hoog naar laag in datum.

Waar dan?

 

[HSV]

Ik zie nergens iets in het rood.

Test het maar eens.
Even een tweede blad aanmaken.

Sub hsv()
Dim sv, d As Object, i As Long, j As Long
sv = Sheets("Blad1").Cells(1).CurrentRegion
  Set d = CreateObject("scripting.dictionary")
  For i = 1 To UBound(sv)
   For j = 2 To UBound(sv, 2)
     d(sv(i, 1)) = d(sv(i, 1)) & IIf(IsDate(sv(i, j)), Format(sv(i, j), "mm/dd/yyyy"), sv(i, j)) & "|"
   Next j
  Next i
  With Sheets("Blad2")
    .Cells(1).CurrentRegion.ClearContents
    .Cells(1).Resize(d.Count, 2) = Application.Transpose(Array(d.keys, d.items))
    .Columns(2).TextToColumns , , , , , , , , -1, "|"
    .Columns.AutoFit
  End With
End Sub

Gaat zo ook wel:

d(sv(i, 1)) = d(sv(i, 1)) & Format(sv(i, j), "mm/dd/yyyy") & "|"

 

[corania17]

Beste forumleden, sorry ik had de verkeerde file gestuurd maar hier nogmaals.
Met vriendelijke groet, Rubik.

 

[corania17]

Geachte formleden, Vena en HSV, bedankt voor jullie reactie en de macro werkt prima.
We kregen de data aangeleverd als rij maar moesten dit omzetten naar kolom om in het centraal systeem in te lezen.
Vanuit dit systeem moeten wij alle gegevens weer in Excel plaatsen maar daar moeten ze weer in een rij worden gezet.
Maar we zijn blij dat het is gelukt.
Nog maald bedankt en tot een volgende keer, Rubik.