Auto Fill into Text Box / cell

[dimitrz]

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

[mdmackillop]

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


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.

[Bob Phillips]

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



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

[dimitrz]

Thank you