Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy contents only
Trying to copy "contents only" using the following code. Having errors.. etc.. Any help?? Worksheets("Invoice").Range(2, "A:M").Copy Destination = Worksheets("Master").Range(7, "A:M") Thanks, Me -- Metraza ----------------------------------------------------------------------- Metrazal's Profile: http://www.excelforum.com/member.php...fo&userid=3164 View this thread: http://www.excelforum.com/showthread.php?threadid=51844 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy contents only
What did you want to copy A2:M2?
Worksheets("Invoice").Range("a2:m2").Copy worksheets("master").range("a7:m7").pastespecial paste:=xlpastevalues or worksheets("master").range("a7:m7").value _ = worksheets("invoice").range("a2:m2") Metrazal wrote: Trying to copy "contents only" using the following code. Having errors.. etc.. Any help?? Worksheets("Invoice").Range(2, "A:M").Copy Destination = Worksheets("Master").Range(7, "A:M") Thanks, Met -- Metrazal ------------------------------------------------------------------------ Metrazal's Profile: http://www.excelforum.com/member.php...o&userid=31648 View this thread: http://www.excelforum.com/showthread...hreadid=518444 -- Dave Peterson |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy contents only
Thats it.. Thanks, Met -- Metrazal ------------------------------------------------------------------------ Metrazal's Profile: http://www.excelforum.com/member.php...o&userid=31648 View this thread: http://www.excelforum.com/showthread...hreadid=518444 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy contents only
I adjusted the code to allow multiple fields. However, I have an error. Wheres my problem? For i = 1 To 9999 Worksheets("Invoice").Range(i, "a2:m2").Copy Worksheets("master").Range(i, "a7:m7").PasteSpecial Paste:=xlPasteValues Next i Thanks, Met -- Metrazal ------------------------------------------------------------------------ Metrazal's Profile: http://www.excelforum.com/member.php...o&userid=31648 View this thread: http://www.excelforum.com/showthread...hreadid=518444 |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy contents only
This doesn't work:
..Range(i, "a2:m2") Are you trying to copy A2:M10000 to A7:M10006? If yes, then just do it all at once: Worksheets("Invoice").Range("a2:m10000").Copy worksheets("master").range("a7").pastespecial paste:=xlpastevalues Excel is smart enough to resize the destination range to match the copied range. or Dim RngToCopy as range dim DestCell as range set rngtocopy = worksheets("invoice").range("a2:m10000") set destcell = worksheets("master").range("a7") with rngtocopy destcell.resize(.rows.count,.columns.count).value _ = .value end with Metrazal wrote: I adjusted the code to allow multiple fields. However, I have an error. Wheres my problem? For i = 1 To 9999 Worksheets("Invoice").Range(i, "a2:m2").Copy Worksheets("master").Range(i, "a7:m7").PasteSpecial Paste:=xlPasteValues Next i Thanks, Met -- Metrazal ------------------------------------------------------------------------ Metrazal's Profile: http://www.excelforum.com/member.php...o&userid=31648 View this thread: http://www.excelforum.com/showthread...hreadid=518444 -- Dave Peterson |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy contents only
That did it.. Thanks again, Me -- Metraza ----------------------------------------------------------------------- Metrazal's Profile: http://www.excelforum.com/member.php...fo&userid=3164 View this thread: http://www.excelforum.com/showthread.php?threadid=51844 |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy contents only
Met,
Not sure what your trying to do with Range(2,"A:M") - do you mean Range("A2:M2")? Your code, if corrected, will copy the entire cells (formula, formats etc). If you want to copy just the cell values, easiest way (rather than using paste special) is to use a temporary array to store the values: Dim tmpArr As Variant tmpArr = Worksheets("Invoice").Range("A2:M2") Worksheets("Master").Range("A7:M7") = tmpArr HTH Tim "Metrazal" wrote in message ... Trying to copy "contents only" using the following code. Having errors.. etc.. Any help?? Worksheets("Invoice").Range(2, "A:M").Copy Destination = Worksheets("Master").Range(7, "A:M") Thanks, Met -- Metrazal ------------------------------------------------------------------------ Metrazal's Profile: http://www.excelforum.com/member.php...o&userid=31648 View this thread: http://www.excelforum.com/showthread...hreadid=518444 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Copy contents from one cell to another | New Users to Excel | |||
Copy cell contents with VB | Excel Discussion (Misc queries) | |||
Copy contents if....... | Excel Programming | |||
Copy Contents of 3 Columns into 1 | Excel Programming | |||
Copy textbox contents | Excel Programming |