Hello try the following macro :
Sub Copy()
Dim Row1 As Long, Row2 As Long
Row1 = 1
Row2 = 7
Do
Set sh1 = Worksheets("Sheet1")
Set sh2 = Worksheets("Sheet2")
sh1.Range("C" & Row1).Resize(8).Copy
sh2.Range("M" & Row2).PasteSpecial Paste:=xlPasteAll, Transpose:=True
Row1 = Row1 + 8
Row2 = Row2 + 1
Loop While sh1.Cells(Row1, 3) <> ""
End Sub
Regards.
Daniel
> -----Original Message-----
> From: excel-macros@googlegroups.com [mailto:excel-
> mac...@googlegroups.com] On Behalf Of Abdul Hakim
> Sent: dimanche 26 juillet 2009 08:22
> To: MS EXCEL AND VBA MACROS
> Subject: $$Excel-Macros$$ Help required. from vertical to horizontal
> swapping
>
>
> Dear All,
>
> I have vertical col A ,c and f which contains cell value upto 5000.
> i.e A1:A5000,C1:C5000,F1:F5000 RESPECTIVELY.
> I want to copy C1:C8 cell value to another sheet i.e (sheet1) in a row
manner.
> i.e copied cell paste into sheet 1 range M7 to T7 cell.( Total eight cell
in a
> row.)Then another ( eight cell vertical i.e C9:C16 copied ) and paste
into
> horizontal Sheet1 range M8 to T8 and so on.
>
>
> Please assist ?
>
> Rgds,
>
> Abdul Hakim
>
> >
--~--~---------~--~----~------------~-------~--~----~
----------------------------------------------------------------------------------
Some important links for excel users:
1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at
http://www.excelitems.com
2. Excel tutorials at http://www.excel-macros.blogspot.com
3. Learn VBA Macros at http://www.vbamacros.blogspot.com
4. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
If you find any spam message in the group, please send an email to:
Ayush Jain @ jainayus...@gmail.com or
Ashish Jain @ 26may.1...@gmail.com
<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!
We reach over 5,200 subscribers worldwide and receive many nice notes about the
learning and support from the group. Our goal is to have 10,000 subscribers by
the end of 2009. Let friends and co-workers know they can subscribe to group at
http://groups.google.com/group/excel-macros/subscribe
-~----------~----~----~----~------~----~------~--~---
