Can I suggest a slight change to JKwan's code to improve the selection?
Do If UCase(Left(c.Text, Len(TextBox1.Text))) = UCase(TextBox1.Text) Then ListBox1.AddItem c.Text ListBox1.List(ListBox1.ListCount - 1, 1) = c.Offset(0, 1) End If
Can I suggest a slight change to JKwan's code to improve the selection?
Do If UCase(Left(c.Text, Len(TextBox1.Text))) = UCase(TextBox1.Text) Then ListBox1.AddItem c.Text ListBox1.List(ListBox1.ListCount - 1, 1) = c.Offset(0, 1) End If
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'
Posting Permissions
Reply With Quote