Copying Range gives object defined run wrror

[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

 

[Ron de Bruin]

Hi gtslabs

Note that Cells point to the activesheet now and not to sheet Sample Log

Worksheets("Sample Log").Range(Cells(samplerow

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

Worksheets("Sample Log").Cells(....................

 

[gtslabs]

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)

 

[Ron de Bruin]

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

 

[gtslabs]

Worked Great - Thanks

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

--

Regards Ron de Bruinhttp://www.rondebruin.nl/tips.htm







- Show quoted text -