vba, force Copy to paste values

[Daktari]

Sorry, please ignore. I discovered the solution a min after I posted here. I just needed the .pastespecial on a second line

I thought I'd ask for an answer to my brain freeze. I've some leftover code I'm reusing.
I'm copying some cells between sheets, and it's copying the whole cell reference.

How can I tweak it to copy values only? Hamfisting in .pastespecials havn't worked for me.

Code partial (the code works, I'm just not getting the paste values thingy)

For Each r In rng1
    If Not IsEmpty(r.Value) Then
        Set c = rng2.Find(r.Value)
        If Not c Is Nothing Then
            r(, 2).Copy c(, 2)
            r(, 6).Copy c(, 7) 
        End If
    End If
Next

 

[hippiehacker]

like this?

For Each r In rng1
    If Not IsEmpty(r.Value) Then
        Set c = rng2.Find(r.Value)
        If Not c Is Nothing Then
            c.Offset(, 2).Value = r.Offset(, 2).Value
            c.Offset(, 7).Value = r.Offset(, 6).Value
        End If
    End If
Next

 

[Daktari]

No, I solved it like this:

 For Each r In rng1
    If Not IsEmpty(r.Value) Then
        Set c = rng2.Find(r.Value)
        If Not c Is Nothing Then
            r(, 2).Copy
            c(, 2).PasteSpecial Paste:=xlPasteValues
            r(, 6).Copy
            c(, 7).PasteSpecial Paste:=xlPasteValues
        End If
    End If
Next

 

[andersonvalido]

Hi Daktari,

Could you post the entire code here?
I am having troubles to force paste values only.