Auto Fill into Text Box / cell

Hi Guys

I know this is virtually impossible :devil2:

but couldn't help wondering :cool:

Is it possible to have an autofill option in a Normal cell or text box ( not combo or list box) ?

Thanks

If you are talking about an ActiveX textbox, then someting like this could work

Code:

---


Private Sub TextBox1_Change()
test
End Sub
 
Sub test()
Select Case TextBox1.Text
    Case "a"
        TextBox1.Text = "all text entered"
    Case "b"
        TextBox1.Text = "better text entered"
End Select
End Sub

---

For a cell, you would need to run a Change event after data is entered, so you could use a list of abreviations, similar to above. These cannot be checked though, as each letter is entered.

I would suggest a slight alternative using Malcolm's basic idea

Code:

---

Private Sub TextBox1_AfterUpdate()
    With TextBox1
    Select Case True
        Case "all text entered" Like .Text & "*"
            .Text = "all text entered"
        Case "better text entered" Like .Text & "*"
            .Text = "better text entered"
    End Select
    End With
End Sub

---

Thank you