Find string match in column then paste adjacent cell

Quote from vcoolio

Re: Find string match in column then paste adjacent cell

Hello again TS,

Just thought that you may be interested in an alternative code to do the same job:-

Code

Sub FindStuff()


Dim lr As Long
Dim i As Integer


lr = Sheet1.Range("A" & Rows.Count).End(xlUp).Row


For i = 1 To lr


If UCase(Sheet2.Cells(1, 3).Value) = UCase(Sheet1.Cells(i, 1).Value) Then
Sheet2.Cells(14, 5).Value = Sheet1.Cells(i, 1).Offset(, 5).Value
End If
Next i


End Sub

Display More

Cheerio,
vcoolio.

Display More

THANK YOU SO MUCH Vcoolio!!! I've spent about a week looking for something just like this. I was able to tweak it a bit and it works PERECTLY for my application. =)