Copy values only not the formats.

[PAB]

Good evening,

This line of code works...


Range("C8:O8").Copy Range("C" & Rows.Count).End(xlUp).Offset(1, 0)

...but copies the formats etc as well.

How can I get it just to copy and paste the values please?

Thanks in advance.

[mancubus]

Range.PasteSpecial method:
https://msdn.microsoft.com/en-us/library/office/ff839476.aspx

xlPasteType Enumaration:
https://msdn.microsoft.com/en-us/library/office/ff837425.aspx

[PAB]

Thanks for the reply mancubus,

I have got it working using...


Range("C8:O8").Copy
With ActiveSheet.Range("C" & Rows.Count).End(xlUp).Offset(1, 0)
.PasteSpecial Paste:=xlPasteValues
End With

I just thought there might have been a one line solution.

Thanks again.

[GTO]

If just wanting values, another way is:


ActiveSheet.Range("C" & Rows.Count).End(xlUp).Offset(1, 0).Resize(, Range("C8:O8").Columns.Count).Value = Range("C8:O8").Value


Hope that helps,

Mark

[PAB]

Brilliant, thanks Mark,

I just took out the ActiveSheet. and it works great.