Making a useful sheet

[rhino4eva]

So i have a sheet 40 rows Long. Line 1 to 20 data from my first client. Client 2 is from 21 to 40 client 3 is 41 to 60. So primely i want convert 20 rows of data into 20 cols of data with the same headers


Has anyone got any ideas

 

[Candyman8019]

Check out the TRANSPOSE function.

 

[Vogateer]

Are you looking for something like this?

=VSTACK(TRANSPOSE(CHOOSEROWS($A$1:$B$60,SEQUENCE(20))),TRANSPOSE(CHOOSEROWS($A$1:$B$60,SEQUENCE(20,,21))),TRANSPOSE(CHOOSEROWS($A$1:$B$60,SEQUENCE(20,,41))))

You would have to adjust the "$A$:$B$60" for your range, but without example info, it's hard to know whether this is what you need.

 

[Fluff]

Xl 2010 doesn't have most of those functions.

 

[Vogateer]

Xl 2010 doesn't have most of those functions.

I have to get better at watching for the version. Thank you for catching that. Sorry about that, rhino4eva.

 

[rhino4eva]

Im on a phone so forgive me

Head
Will
Address 9
Head
Tom
Address 7

Tansposed....ish to
Name. Addr1
Will. 9
Tom. 8

 

[jolivanes]

For 20 consecutive rows per client. Change 20 to however many rows per client you actually have.
Check references like sheet names and change as required

Sub Like_So()
Dim i As Long
Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = Worksheets("Sheet1")    '<----- Sheet with all data. Change as required
Worksheets.Add(After:=Sheets(Sheets.Count)).Name = "Transposed_Clients"
Set ws2 = Worksheets("Transposed_Clients")
    For i = 1 To ws1.Cells(ws1.Rows.Count, 1).End(xlUp).Row Step 20
        ws2.Cells(ws2.Rows.Count, 1).End(xlUp).Offset(1).Resize(, 20).Value = Application.Transpose(ws1.Cells(i, 1).Resize(20).Value)
    Next i
End Sub

 

[jolivanes]

No more answers so nothing must have worked.