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/lib.../ff839476.aspx

xlPasteType Enumaration:
https://msdn.microsoft.com/en-us/lib.../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.