Copy Values, not format

[porepiga]

Hello!

I'm using the following to copy values from one sheet to another:

Sub Copycopy()
Range("B3").Copy Sheets("Sheet2").Range("B" & Rows.Count).End(xlUp).Offset(1, 0)
Range("B4").Copy Sheets("Sheet2").Range("B" & Columns.Count).End(xlUp).Offset(0, 1)
Range("B5").Copy Sheets("Sheet2").Range("B" & Columns.Count).End(xlUp).Offset(0, 2)
End Sub


The problem is that it's coping the format of the cell containing the information, and I don't want that. I want to copy values only. What do I need to modify on my code?


Thanks!!!!

 

[gorem]

Hi - As I understand it, you do not need to modify your "copy" code but rather your "paste" code to do a paste special > values rather than a simple paste (which by default pastes formats as well). so something like:

[COLOR=#333333]Worksheets("your_destination_sheet").Range("A2").PasteSpecial xlPasteValues[/COLOR]

 

[porepiga]

I tried it, but I can't make it work (I'm new at this).

I'm trying to copy the information to the "next available blank cell", that's why I'm using that code.

I replaced:

Range("B" & Rows.Count).End(xlUp).Offset(1, 0)

With:

Range("B").PasteSpecial xlPasteValues

...but it didn't work