Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Copying Range Based On Certain Criteria? Possible looping through the Range | Excel Programming | |||
copying dynamic range based on cell outside of range | Excel Programming | |||
Need VBA Help in Copying Range | Excel Programming | |||
Searching a range and copying values into a new range.... **Please help** :( | Excel Programming | |||
Copying a range to the row below | Excel Programming |