sheet1 data transferred to sheet2

August 25, 2010 at 13:34:10
Specs: Windows XP
I am creating a macro where in I have a template in Sheet1 and I would like to transfer all its data to sheet2 in each row and column.

like for example in values in Sheet1 cell C4:C8 will be transferred to SHeet2 cell A2:E2 then I will clear what I have in Sheet 1 and have a new value in Sheet1 C4:C8 and will again transfer it to Sheet2 but this time it should be in A3:E3.

how can I do that? please help..

See More: sheet1 data transferred to sheet2

August 25, 2010 at 16:20:13
Option Explicit
Sub CopyTranspose()
Dim nxtRw As Integer
'Copy the data
'Determine next empty Row on Sheet2
  nxtRw = Sheets(2).Range("A" & Rows.Count).End(xlUp).Row + 1
'Paste the data into Sheet2, Transposed
  Sheets(2).Range("A" & nxtRw).PasteSpecial Transpose:=True
'Turn off the dotted lines
  Application.CutCopyMode = False
End Sub

Report •

August 25, 2010 at 18:07:23
thank works.. :)

Report •
Related Solutions

Ask Question