Flytning af data fra rækker til kolonner

Forstår jeg det rigtigt at du blot vil have kolonnen vendt til en række?
I så fald: marker kolonnen, kopier til klippebord, Indsæt specielt med kryds i transponer

du kunne køre denne makro. den smider dine data i kolonne F og udad.
(så har du mulighed for at chekke, deefter kan du jo bare slette A:E

Private Sub TransposeData()
Dim EntireRange As Range
Dim rg1 As Range, rg2 As Range
Dim x As Long, y As Long
x = 2
Set EntireRange = Range("A1:A" & Range("A65536").End(xlUp).Row)
While x < EntireRange.Cells.Count
    Set rg1 = Range(Cells(x, 1), Cells(x, 1).End(xlDown))
    y = y + 1
    Set rg2 = Cells(y, 6)
    rg2.Resize(, rg1.Cells.Count) = Application.Transpose(rg1)
    x = rg1.End(xlDown).Row + 2
Wend
Columns("F:AA").EntireColumn.AutoFit
End Sub

hvordan gør jeg det

morfer -> Hvordan gør du hvad? Er det makroen, der er problemet, eller er det sletning af kolonner, eller hvad?

jeg kan ikke få macroen til at virke.? jeg opretter en macro og indsætter koden, dette virker ikke.

Har du kørt makroen?

Har du sikret dig, at der ikke står flere "Sub" og "End Sub" og at det er den rigtige "Sub" du kører?

Hvis mine spørgsmål er "dumme" så sig til - Jeg prøver bare på at starte fejlfindingen fra en ende af.

Sorry, har været til møde siden.
Da makroen er taget ud af en sammenhæng, skal du lige fjerne ordet Private i
Private Sub TransposeData()

da du ellers ikke kan "se" makroen

bak -> Så kan du jo passe tage over igen - Ser desværre ud til at jeg har tabt morfer undervejs, men han dukker vel op igen :0)

du klarer det da ellers fint uden hjælp fra mig eller morfer :-)

lukkes

Har været uarbejdsdygtig i al for lang tid men som tak må i gerne smide nogle svar 50 50 til bak og sjap

ok :-)

Også ok med mig :0)