Copy destination

[Francis Hookham]

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

 

[Norman Jones]

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
'<<=============

 

[Don Guillett]

Ranges must be the same size.

 

[Norman Jones]

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?

 

[Norman Jones]

Hi Francis,

A slight typo!

Replace:

PublicSub TestTransfer()
with

Public Sub TestTransfer()