These values ββare copy code (not formulas).
Sub a()
Worksheets("Sheet2").Range("TS").Value=Worksheets("Sheet1").Range("1:1").Value
End Sub
Where "TS" is the name of the range (single line).
Is this what you are trying to achieve?
Edit
To copy the active line to Sheet2.Row2 (for example), you can try:
Sub a()
Dim myrow As Integer
myrow = ActiveWindow.RangeSelection.Row
Worksheets("Sheet2").Range("2:2").Value = Worksheets("Sheet1").Rows(myrow).Value
End Sub
NTN!
source
share