Hi. I have this code which works almost fine:
1. New data entry via "TextBox1" to a range named "glist".
2. Sort items A-Z in extended "glist"
3. Populate "ComboBox1"
Error on 2nd and 3rd : Sorting items and populating combobox from one step behind. First data entry isnt sorted until I enter second data.
Thanks in advance.
Code
Private Sub CommandButton1_Click()
Dim rng As Range, aCell As Range
Set aCell = Worksheets("LISTS").Range("J1")
Set rng = Range("glist") ' dynamic defined range, scope:workbook, Column "J"
With rng
.Offset(rng.Rows.Count, 0).Resize(1, 1).Value = TextBox1.Value
.Sort Key1:=aCell, Order1:=xlAscending, Header:=xlNo
ComboBox1.RowSource = rng.Address(external:=True)
End With
End Sub
Display More