View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Stefi Stefi is offline
external usenet poster
 
Posts: 2,646
Default transpose values

Try this macro:

Sub trpose5()
Sheets("sourcesheet").Select
destrow = 2
For coltocopy = 3 To 18 Step 5 'change 18 to No of really last column
destrow = destrow + 1
Range(Cells(32, coltocopy), Cells(44, coltocopy)).Select
Selection.Copy
Sheets("destsheet").Select
Cells(destrow, 3).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
Sheets("sourcesheet").Select
Next coltocopy
End Sub

Regards,
Stefi


€˛louie€¯ ezt Ć*rta:

hello! how do you transpose values example from C32:C44 of sheet1 to C3:O3 of
sheet2 using a macro?
i need to copy the values from selected columns(interval of 5, ex. Column
C,H,R,W and so on) then transfer them into rows of sheet 2?