Hi Kris -
Thank you for the reply, I tried out your code and it works perfectly!
Thank you all again for your responses!
On Mar 9, 12:18 am, Kris wrote:
> > Hi
>
> Try this
>
> Sub kTest()
>
> Dim wksFrom As Worksheet
> Dim wksTo As Worksheet
> Dim i As Long
>
>
> Hi
>
>
Try this
Sub kTest()
Dim wksFrom As Worksheet
Dim wksTo As Worksheet
Dim i As Long
Dim eColAs Long
Dim sColAs Long
Dim DestAs Range
Dim RowsToCopy As Long
Set wksFrom = Worksheets("CMFX First 30
This is the entire vba statement:
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
Mahesh displayed over multiple lines for clarity.
Change it to a single line like:
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks
Hi Mahesh -
I copied over your code, but I have a few questions.
First off, the last portion "Paste:=xlValues, Transpose:=True" comes
up with a compile error, is it supposed to be part of something else?
Also, is your Sheet1 supposed to be the sheet that currently has the
data vertically, and the
Hi Eric
Try :
Sub Mtest()
Dim LR As Long
LC = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
LR = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To LC
'change sheet name here
'Use below line if you dont want to copy header of columns
'Sheet1.Range(Cells(2, i), Cells(LR, i)).Copy
Sheet1.Range
