Move Column information to a row on another sheet.

[p0is0n0us]

Hi all,

I was wondering if someone could help me with this. I'm making a spreadsheet that has a form like page on one sheet and I would like that information transferred to a row on another page.

The data is in a column on a sheet called TECH SHEET and the range of data is C6:C83

I would like that range of data moved to the next blank row on a sheet called LINE DATA to make a table. After the headers the blank range starts a C3:BF3 and would make a table downwards.

Any help you could give me would be appreciated.

Gaz

 

[Roger Govier]

Hi

One way

Sub CopyTranspose()
    Dim lr As Long
    lr = Sheets("LINE DATA").Cells(Rows.Count, "C").End(xlUp).Row + 1
    With Sheets("TECH SHEET")
        .Range("C6:C83").Copy
    
        Sheets("LINE DATA").Range("C" & lr).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=True
    End With
End Sub

 

[p0is0n0us]

Thanks Roger! that worked really well!