Transpose Data

[Emanuele]

Hi guys, i would like to know how to add the transpose option to that part of code
Thx!

            Set DestSh = ActiveWorkbook.Worksheets.Add
            Last = LastCol(DestSh)
            Set Copy1 = sh.Range("C10:AZ10")
                 With Copy1
                      DestSh.Cells(1, Last + 1).Resize(.Rows.Count, .Columns.Count).Value = .Value
                 End With

 

[Fluff]

This line Last = LastCol(DestSh)needs to go before the loop as I showed.

 

[Emanuele]

This line Last = LastCol(DestSh)needs to go before the loop as I showed.

Right, sorry, i didn't notice it. Thx, it works now

 

[Fluff]

You're welcome & thanks for the feedback

 

[Emanuele]

Another thing, there is a way to add more data and create more than one adjacent column?
Furthermore it's possible to apply a string extract (for example, extract the first 4 and the last 4 characters and put them in different column)?
Thank you, and sorry for multiple question in a single thread, but vba is a completely new world for me

 

[Fluff]

As this is a different question, you will need to start a new thread, thanks

 

[Emanuele]

As this is a different question, you will need to start a new thread, thanks

ok, thank you!

 

[Fluff]

You're welcome.