Private Sub ComboBox1_Change() Dim r As Range Set r = Columns(1).Find(ComboBox1).Resize(, 3) Label6.Caption = r(1) Label7.Caption = r(2) Label8.Caption = r(3) End Sub
Private Sub ComboBox1_Change() Dim r As Range Set r = Columns(1).Find(ComboBox1).Resize(, 3) Label6.Caption = r(1) Label7.Caption = r(2) Label8.Caption = r(3) End Sub
Last edited by Aussiebear; 03-27-2025 at 02:48 AM.
MVP (Excel 2008-2010)
Post a workbook with sample data and layout if you want a quicker solution.
To help indent your macros try Smart Indent
Please remember to mark threads 'Solved'