Copying a range

[Francis Hookham]

This works
Sheets("Pages").Cells(iCPaRow, 1) =
Sheets("Specs").Cells(iCSpRow, 1)
Sheets("Pages").Cells(iCPaRow, 2) =
Sheets("Specs").Cells(iCSpRow, 2)
Sheets("Pages").Cells(iCPaRow, 3) =
Sheets("Specs").Cells(iCSpRow, 3)
Sheets("Pages").Cells(iCPaRow, 4) =
Sheets("Specs").Cells(iCSpRow, 4)

This does not work
Sheets("Pages").Range(Cells(iCPaRow, 1), Cells(iCPaRow, 4)) = _
Sheets("Specs").Range(Cells(iCSpRow, 1), Cells(iCSpRow, 4))

This works but copies formatting as well as values - I only want values
Sheets("Specs").Range(Cells(iCSpRow, 1), Cells(iCSpRow, 4)).Copy
_
Destination:=Worksheets("Pages").Cells(iCPaRow, 1)

This does not work
Sheets("Specs").Range(Cells(iCSpRow, 1), Cells(iCSpRow,
4)).Copy.Values _
Destination:=Worksheets("Pages").Cells(iCPaRow, 1)


Please help.


Francis Hookham
XL 2002

 

[Guest]

Try pastespecial. below there are two seperate instruction. the first is
the Copy and the ssecond is the paste.

Sheets("Specs").Range(Cells(iCSpRow, 1), Cells(iCSpRow, 4)).Copy
Worksheets("Pages").Cells(iCPaRow, 1).PasteSpecial _
Paste:=xlPasteValues, _
Operation:=xlNone, _
SkipBlanks:=False

 

[Francis Hookham]

Thanks a million Joel

Francis

Try pastespecial. below there are two seperate instruction. the first is
the Copy and the ssecond is the paste.

Sheets("Specs").Range(Cells(iCSpRow, 1), Cells(iCSpRow, 4)).Copy
Worksheets("Pages").Cells(iCPaRow, 1).PasteSpecial _
Paste:=xlPasteValues, _
Operation:=xlNone, _
SkipBlanks:=False