This does just what I want:

Sub TestTransfer()
Sheets("Pages").Cells(10, 5).Copy Destination:=Sheets("Schedule").Cells(5,
2)
Sheets("Pages").Cells(10, 3).Copy Destination:=Sheets("Schedule").Cells(5,
3)
End Sub

except it copies across the formatting and well as the contents.

I want contents only copied across.

Please - thanks.

Francis Hookham

Hi Francis,

Try something like:

'=============>>
PublicSub TestTransfer()
With Sheets("Schedule")
.Cells(5, 2).Value = Sheets("Pages").Cells(10, 5).Value
.Cells(5, 3).Value = Sheets("Pages").Cells(10, 3).Value
End With
End Sub
'<<=============


---
Regards,
Norman


"Francis Hookham" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> This does just what I want:
>
> Sub TestTransfer()
> Sheets("Pages").Cells(10, 5).Copy Destination:=Sheets("Schedule").Cells(5,
> 2)
> Sheets("Pages").Cells(10, 3).Copy Destination:=Sheets("Schedule").Cells(5,
> 3)
> End Sub
>
> except it copies across the formatting and well as the contents.
>
> I want contents only copied across.
>
> Please - thanks.
>
> Francis Hookham
>

Ranges must be the same size.

--
Don Guillett
SalesAid Software
(E-Mail Removed)
"Norman Jones" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Hi Francis,
>
> Try something like:
>
> '=============>>
> PublicSub TestTransfer()
> With Sheets("Schedule")
> .Cells(5, 2).Value = Sheets("Pages").Cells(10, 5).Value
> .Cells(5, 3).Value = Sheets("Pages").Cells(10, 3).Value
> End With
> End Sub
> '<<=============
>
>
> ---
> Regards,
> Norman
>
>
> "Francis Hookham" <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
>> This does just what I want:
>>
>> Sub TestTransfer()
>> Sheets("Pages").Cells(10, 5).Copy
>> Destination:=Sheets("Schedule").Cells(5, 2)
>> Sheets("Pages").Cells(10, 3).Copy
>> Destination:=Sheets("Schedule").Cells(5, 3)
>> End Sub
>>
>> except it copies across the formatting and well as the contents.
>>
>> I want contents only copied across.
>>
>> Please - thanks.
>>
>> Francis Hookham
>>
>
>

Hi Don,

> Ranges must be the same size.

Perhaps, in the context of my code, you could expand your comments?

By the way, did you try the code?


---
Regards,
Norman

Hi Francis,

A slight typo!

Replace:

> PublicSub TestTransfer()

with

> Public Sub TestTransfer()

---
Regards,
Norman