Read Data from Second Sheet & Display Resulting Chart on First Sheet

Please try adding this code to the Parts Code Module:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    
    'Part to find
    Part = Target.Value
    'Find row on History Sheet
    Set PartObj = Sheets("Data (History)").Range("A1:A500").Find(Part)
    PartRow = PartObj.Row
    'Find last occupied cell in Part Row
    LastCol = Sheets("Data (History)").Cells(PartRow, Columns.Count).End(xlToLeft).Column
    'Activate History Sheet
    Sheets("Data (History)").Activate
    
    'Activate Chart
    ActiveSheet.ChartObjects("Chart 2").Activate
    'Set Source Ranges....
    Set Rng1 = Sheets("Data (History)").Range(Sheets("Data (History)").Cells(PartRow, "B"), Sheets("Data (History)").Cells(PartRow, LastCol))
    Set Rng2 = Sheets("Data (History)").Range(Sheets("Data (History)").Cells(2, "B"), Sheets("Data (History)").Cells(2, LastCol))
    'Change Source Data
    ActiveChart.SetSourceData Source:=Union(Rng1, Rng2) 'Combine two ranges
    'Add Title
    ActiveChart.HasTitle = True
    ActiveChart.ChartTitle.Text = Sheets("Data (History)").Range("A" & PartRow).Value
    Sheets("Data (History)").Range("A2").Select

End Sub

1. Alt + F11

2. Click on the Parts Icon in the Project Explorer

3. Paste this code to the "blank" window on the right

After doing this return to the Parts worksheet and test by double clicking a part