I'm trying to coping and paste the contents of cell, and I'm pasting
something, just not the correct data.

In the cell that I'm coping is the value 1 the value that gets pasted if
1/1/1900

Here is the code that I'ce got

Debug.Print rngFind.Offset(0, 2).Value // prints one in the Immediate
window which is correct
jnk = rngFind.Offset(0, 2).Value //jnk is = "1"
x.Offset(0, 8).Value = jnk // the celvalue is 1/1/1900
Debug.Print x.Offset(0, 8) // prints 12/31/1899 in the
Immediate window

Any ideas?

Peter,

Looks like the cell is formatted as date type.
something like Range(yourrange).NumberFormat = general should give you 1 in
the cell.


"Peter" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> I'm trying to coping and paste the contents of cell, and I'm pasting
> something, just not the correct data.
>
> In the cell that I'm coping is the value 1 the value that gets pasted if
> 1/1/1900
>
> Here is the code that I'ce got
>
> Debug.Print rngFind.Offset(0, 2).Value // prints one in the Immediate
> window which is correct
> jnk = rngFind.Offset(0, 2).Value //jnk is = "1"
> x.Offset(0, 8).Value = jnk // the celvalue is 1/1/1900
> Debug.Print x.Offset(0, 8) // prints 12/31/1899 in the
> Immediate window
>
> Any ideas?
>
>
>
>

Yes, in the sheet I'm copying from, those cells have that upper corner
green tag to them and the error is that this cell is formatted as text or
proceeded by an apostrophe. So I got that thanks


"Project Mangler" <(E-Mail Removed)> wrote in message
news:%23bu$(E-Mail Removed)...
> Peter,
>
> Looks like the cell is formatted as date type.
> something like Range(yourrange).NumberFormat = general should give you 1
> in
> the cell.
>
>
> "Peter" <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
>> I'm trying to coping and paste the contents of cell, and I'm pasting
>> something, just not the correct data.
>>
>> In the cell that I'm coping is the value 1 the value that gets pasted if
>> 1/1/1900
>>
>> Here is the code that I'ce got
>>
>> Debug.Print rngFind.Offset(0, 2).Value // prints one in the Immediate
>> window which is correct
>> jnk = rngFind.Offset(0, 2).Value //jnk is = "1"
>> x.Offset(0, 8).Value = jnk // the celvalue is 1/1/1900
>> Debug.Print x.Offset(0, 8) // prints 12/31/1899 in the
>> Immediate window
>>
>> Any ideas?
>>
>>
>>
>>
>
>