Auto Fill into Text Box / cell

[dimitrz]

Hi Guys

I know this is virtually impossible

but couldn't help wondering

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