Copy Only Values

[klatlap]

I only want to copy the values when using this macro.

Sub secondleg()

FindItem = Sheets("Results").Range("T2").Value

On Error Resume Next
FoundItem = Sheets("Results").Range("H3:H65535").Find(What:=FindItem).Address
On Error GoTo 0

If FoundItem <> "" Then
    PasteLocation = Sheets("Results").Range(FoundItem).Offset(0, 15).Address

    Sheets("Results").Range("V2:AA2").Copy Sheets("Results").Range(PasteLocation)
    
End If

End Sub

 

[vcoolio]

Hello Klatlap,

Assuming that your code does work, a slight amendment as follows should do the task for you:-

Sub secondleg()

FindItem = Sheets("Results").Range("T2").Value

On Error Resume Next
FoundItem = Sheets("Results").Range("H3:H65535").Find(What:=FindItem).Address
On Error GoTo 0

If FoundItem <> "" Then
    PasteLocation = Sheets("Results").Range(FoundItem).Offset(0, 15).Address

    Sheets("Results").Range("V2:AA2").Copy
    Sheets("Results").Range(PasteLocation).PasteSpecial xlValues
    
End If

End Sub

I hope that this helps.

Cheerio,
vcoolio.

 

[klatlap]

Cheers, i knew it would be something similar in that last line i just couldn't get it right, worked perfectly.

 

[vcoolio]

You're welcome Klatlap. I'm happy to have been able to assist.

Cheerio,
vcoolio.