copy values from a row to a column

[raptorius]

Hi,

I want to copy some values from a row and paste them into a column.
It will be used for a monthly report. After pressing a button the values of the row from the monthly report must be selected and pasted into a column of another workbook for further analysis

 

[xlbo]

This should get you started - best bet for stuff like this is to use the MAcro Recorder (Tools>Macros>Record Macro) to record yourself performing the action and then adjust the code to make it more dynamic.

Dim tWBsht as worksheet, dWBsht as worksheet

Set tWBsht = thisworkbook.sheets("datasheetname&quot
set dWBsht = workbooks("Furtheranalysisworkbook&quot.sheets("destinationsheetname&quot

tWBsht.range("copyRange&quot.copy
dWBsht.range("A1&quot.select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True

Rgds, Geoff
It's Super Happy Campo Funtime!
Want the best answers to your questions ? - then read me baby one more time - faq222-2244

 

[DrBowes]

This would copy Row 3 of Book1 into Column B of Book2.

Sub tranzpoze()
Set w1 = Workbooks("Book1&quot.Worksheets("Sheet1&quot
Set w2 = Workbooks("Book2&quot.Worksheets("Sheet1&quot
RowToPaste = 3
ColtoCopyTo = 2
For i = 1 To 256
w2.Cells(i, ColtoCopyTo) = w1.Cells(RowToPaste, i)
Next i
Set w1 = Nothing
Set w2 = Nothing
End Sub

 

[raptorius]

thx this gives me a good start