VBA code to use Tranpose from on worksheet to an other

amxtomzo

Active Member
Joined
Nov 7, 2009
Messages
302
Hello, thanks for taking the time to help me out....

Sub Xpose()
Worksheets("insertion_order").Select
' copy column E info into Row 6 starting at column C in worsheet "zone_chart"

Range("A12").Resize(, 10).Value = Application.Transpose(Range("C6:L6"))
End Sub

I would like to modify this code to transpose on to an other worksheet

i have about 65 columns need to to this to
column E needs to go to row 6 in work sheet "zone chart"
Column F needs to go to row 7 in work sheet "zone chart"
so forth and so on.....

Thanks

Thomas
 

Some videos you may like

Excel Facts

Workdays for a market open Mon, Wed, Friday?
Yes! Use "0101011" for the weekend argument in NETWORKDAYS.INTL or WORKDAY.INTL. The 7 digits start on Monday. 1 means it is a weekend.

JLGWhiz

Well-known Member
Joined
Feb 7, 2012
Messages
12,048
Office Version
2013
Platform
Windows
Hi Thomas,
I can get the column E and column F part, but I don't know how to code the so forth and so on.
I am going to assume you want all columns copied and transposed to the second sheet.
Code:
Sub Xpose2()
Dim sh1 As Worksheet, sh2 As Worksheet, lc As Long
Set sh1 = Sheets(1) 'Edit sheet name
Set sh2 = Sheets(2) 'Edit sheet name
lc = sh1.Cells(2, Columns.Count).End(xlToLeft).Column
    For i = 5 To lc
        If Application.CountA(sh1.Columns(i)) <> 0 Then
        sh1.Range(sh1.Cells(2, i), sh1.Cells(Rows.Count, i).End(xlUp)).Copy
        sh2.Range("C" & i + 1).PasteSpecial Transpose:=True
        End If
    Next
Application.CutCopyMode = False
End Sub
 

Watch MrExcel Video

Forum statistics

Threads
1,102,272
Messages
5,485,780
Members
407,515
Latest member
franjey

This Week's Hot Topics

  • Finding issue in If elseif else with For each Loop
    Finding issue in If elseif else with For each Loop I have tried this below code but i'm getting in Y column filled with W005. Colud you please...
  • MsgBox Error
    Hi Guys, I have the below error show up when i try and run my macro in File1 but works fine if i copy and paste the same code into file2. [ATTACH...
  • CELL FORMAT - IF CONDITION
    My Cell Format is [B]""0.00" Cr". [/B]But in the cell, it is showing 123.00 for editing. (123 is entry figure). (Data imported from other...
  • Show numbers nearly the same
    Is this possible. I have a number that can change very time eg 0.00001234 Then I have a lot of numbers 0.0000001, 0.0000002, 0.00000004...
  • Please i need your help to create formula
    I need a formula in cell B8 to do this >>if b1=1 then multiply ( cell b8) by 10% ,if b1=2 multiply by 20%,if=3 multiply by 30%. Thank you in...
  • Got error while adding column and filter
    Got error while adding column and filter In column Z has some like "Success" and "Error". I want to add column in AA if the Z cell value is...
Top