Copying Range gives object defined run wrror

  • Thread starter Thread starter gtslabs
  • Start date Start date
G

gtslabs

I am trying to copy a range from one sheet to another using the
following statement.
I do not get a compile error but a Object Defined Run Error.

I am calling this from the current worksheet with a command button and
putting the data in a sheet called "Sample Log"

What am I doing wrong?

Worksheets("Sample Log").Range(Cells(samplerow, 6), Cells(samplerow,
42)).Value = Range(Cells(R, 6), Cells(R, 42)).Value
 
Hi gtslabs

Note that Cells point to the activesheet now and not to sheet Sample Log
Worksheets("Sample Log").Range(Cells(samplerow
Click to expand...

Add Worksheets("Sample Log"). in front of Cells (two times)

Worksheets("Sample Log").Cells(....................
 
That helped somewhat but I still could not get it to work.

I have this working but it pastes the formats.
How can I use this and only paste the values?

Range(Me.Cells(R, 6), Me.Cells(R, 42)).Copy Worksheets("Sample
Log").Cells(samplerow, 9)
 
Try this

With Range(Me.Cells(R, 6), Me.Cells(R, 42))
Worksheets("Sample Log").Cells(samplerow, 9).Resize(.Rows.Count, _
.Columns.Count).Value = .Value
End With
 
Back
Top