Copying a range

  • Thread starter Thread starter Francis Hookham
  • Start date Start date
F

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
 
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
 
Thanks a million Joel

Francis

Joel said:
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
Click to expand...
 
Back
Top