Hello all,

This is pulling from something that was already done by walruseggman on the forums. He helped me make a macro that searched for partial matches between two columns in separate different worksheets and copy the interior color from one to the other if there was a match. You can see that post here: Old Postl

Heres the current code Im using:

Sub TomToms()

Set ws1 = Worksheets("PO Info Checklist")
Set ws2 = Worksheets("Closed Jobs List")

Set CheckRange = ws2.Range("A1:A" & ws2.Cells(Rows.Count, "A").End(xlUp).Row)
Set SearchRange = ws1.Range("J1:J" & ws1.Cells(Rows.Count, "J").End(xlUp).Row)

For Each cell In CheckRange
SearchItem = "*" & cell.Value & "*"
Set c = SearchRange.Find(SearchItem)
    If Not c Is Nothing Then c.Interior.Color = cell.Interior.Color 
Next

End Sub
Here's what I would like to do. in ws1 column N is a blank column for dates. In ws2 column C has dates filled in. I would like for each match in the previous code to pull the date from column C in ws2 and put it into column N for ws1.

I tried some stuff on my own, but I kept running into roadblocks

Any help is appreciated.