macro maken voor eén kolom transponeren naar rijen zie bijlage

[televisie10]

Bekijk bijlage help mij.xlsm


Ik wil macro maken die gegevens tussen lege cellen in kolom A transponeert naar de rijen
zie voorbeeld bestand

 

[HSV]

Verwijder de "A" in cel B1.

Sub hsv()
Dim i As Long, rng As Range
 For i = 1 To Columns(2).SpecialCells(2).Areas.Count
   Set rng = Columns(2).SpecialCells(2).Areas(i)
  Cells(Rows.Count, 6).End(xlUp).Offset(1).Resize(, rng.Cells.Count) = Application.Transpose(rng)
 Next
End Sub

 

[huijb]

Gewoon bij je eerste vraag blijven deze gaat dicht.http://www.helpmij.nl/forum/showthread.php/789741-transponeren-in-excel