Solved: VBA to find a value and copy values from sheet2

[shrivallabha]

This line:
[VBA] 'Sheet 2 name is assumed as "Sheet2". Change it to suit
Set r = Sheets("Sheet2").Range("A:A").Find(c.Value, [A1], xlValues, xlWhole, _
xlByRows, xlNext, True)
[/VBA]
The bold part refers to Sheet1 PC Name and the rest are various option in Find method.