ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   VBA .copy destination (https://www.excelbanter.com/excel-discussion-misc-queries/99985-vba-copy-destination.html)

jerredjohnson

VBA .copy destination
 

I have this code:

Worksheets("Sheet1").Range("A1:D4").Copy _
destination:=Worksheets("Sheet2").Range("E5")

doing it this way copies the formatting as well, is there a way to copy
just the value over without the cell format?

Thanks in advance


--
jerredjohnson
------------------------------------------------------------------------
jerredjohnson's Profile: http://www.excelforum.com/member.php...o&userid=32236
View this thread: http://www.excelforum.com/showthread...hreadid=562642


Dave Peterson

VBA .copy destination
 
One way...

dim RngToCopy as range
Dim DestCell as range

set rngtocopy = worksheets("Sheet1".range("a1:d4")
set destcell = worksheets("sheet2").range("E5")

destcell.resize(rngtocopy.rows.count,rngtocopy.col umns.count).value _
= rngtocopy.value

========
Another way is to just copy|paste special|values

dim RngToCopy as range
Dim DestCell as range

set rngtocopy = worksheets("Sheet1".range("a1:d4")
set destcell = worksheets("sheet2").range("E5")

rngtcopy.copy
destcell.pastespecial paste:=xlpastevalues



jerredjohnson wrote:

I have this code:

Worksheets("Sheet1").Range("A1:D4").Copy _
destination:=Worksheets("Sheet2").Range("E5")

doing it this way copies the formatting as well, is there a way to copy
just the value over without the cell format?

Thanks in advance

--
jerredjohnson
------------------------------------------------------------------------
jerredjohnson's Profile: http://www.excelforum.com/member.php...o&userid=32236
View this thread: http://www.excelforum.com/showthread...hreadid=562642


--

Dave Peterson

Don Guillett

VBA .copy destination
 
to copy just the values you don't need to copy. try
Worksheets("Sheet2").Range("E5:h9").value= _
Worksheets("Sheet1").Range("A1:D4").value
ranges must be the same size
--
Don Guillett
SalesAid Software

"jerredjohnson"
wrote in message
news:jerredjohnson.2b5uch_1153258508.578@excelforu m-nospam.com...

I have this code:

Worksheets("Sheet1").Range("A1:D4").Copy _
destination:=Worksheets("Sheet2").Range("E5")

doing it this way copies the formatting as well, is there a way to copy
just the value over without the cell format?

Thanks in advance


--
jerredjohnson
------------------------------------------------------------------------
jerredjohnson's Profile:
http://www.excelforum.com/member.php...o&userid=32236
View this thread: http://www.excelforum.com/showthread...hreadid=562642





All times are GMT +1. The time now is 09:20 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com