Thread: Define a hierarchy for superior and sub equipment

Hi folks,

I have a tricky question hopefully one of you can help answer. I would like to automate the following scenario.

I have a list of records that each has a unique identifier (equipment #). Some records are noted "Superior" and the rest are considered "sub".

For the "sub" equipment I want to populate the equipment # from the superior equipment.

Is there a way to do this programatically? An example file is attached.

Thanks in advance!!

Sub snb()
 With Sheets(1).Cells(1).CurrentRegion.Columns(1)
  .AutoFilter 1, "sub"
  For Each ar In .Offset(1).SpecialCells(12).Areas
   ar.Offset(, 2) = ar.Cells(1).Offset(-1, 1).Value
  Next
  .AutoFilter
 End With
End Sub