Copying a range
 

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

Copying a range
 

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" wrote:

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

Copying a range
 

Thanks a million Joel

Francis

"Joel" wrote in message
...
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" wrote:

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