Format Cells based on other cells format

[sweedey]

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!

[StephenR]

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

[sweedey]

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

Erin

[sweedey]

Thanks for the help!