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

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

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

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"gtslabs" <(E-Mail Removed)> wrote in message news:(E-Mail Removed)...
>
> 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
>

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


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"gtslabs" <(E-Mail Removed)> wrote in message news:(E-Mail Removed)...
> 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)
>
>

Worked Great - Thanks


On Apr 19, 1:40 pm, "Ron de Bruin" <rondebr...@kabelfoon.nl> wrote:
> 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
>
>
>
> "gtslabs" <gtsl...@comcast.net> wrote in messagenews:(E-Mail Removed)...
> > 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)- Hide quoted text -
>
> - Show quoted text -