Thread: Format Cells based on other cells format

I would like to format cells of one worksheet based the format of another worksheets cell.

I have attached an example with and input and return worksheets (the return was done manually with what the output should look like)

Any help would be greatly appreciated!

Here is one approach:

Sub x()
  
Dim rFind As Range, r As Range

For Each r In Sheet2.Range("A1", Sheet2.Range("A" & Rows.Count).End(xlUp))
    Set rFind = Sheet1.Columns(1).Find(What:=Val(Left(r, 6)), LookAt:=xlWhole, SearchFormat:=False)
    If Not rFind Is Nothing Then
        r.Interior.ColorIndex = rFind.Offset(, 2).Interior.ColorIndex
    End If
Next r
     
End Sub

I used this a long time ago and forgot to update it! Thanks so much for the help!

Erin

Thanks for the help!