|
I have some vba code that prompts the user of Excel spreadsheets for various data items needed to complete tasks on the particular spreadsheet. I have not been able to come up with a way of auto-completing the entries once enough characters are entered to make them unique based upon a range of data entries that I already have available. If anyone can help I would appreciate it. |
Auto-complete entries in inputboxes
Hot Topic
- Right-click menu icon
- API Used in VBA
- Using VB in Excel 2003
- opc
- Prepare a list in excel for printing
- [ADO Excel] How to use ADO retrieve Excel Worksheet name and some information
- Delete Unwanted rows based on value in cell
- Password protecting to a command button in Excel?
- Setting Password Char in InputBox?
- [Excel] How to convert Excel to jpg, gif image?
Microsoft ISV
- Word: Normal.dot template menu bar
- VBA Queston on Formatting Macro
- ADO Recordsets
- Compatibility Issue Excel 2000 and Excel 2003
- Avoid Temp File Creation by Excel
- MergeSort for Double Arrays
- using dll file
- Help with highlighting employees nominating each other for awards...
- Possible to add multiple (300+) hyperlinks that run the same VBA code?
- String Functions
Auto-complete entries in inputboxes
droujav
Hello Pat,
If you have a Range named "Names", say A1:A10 filled with names (any data). The following should do what you need.
Any problems, feel free to write again.
Chas
Private Sub TextBox1_Change()
Dim testStr As String
Dim foundAdress
Range("Names").Select
For Each cell In Range("Names")
testStr = UCase(TextBox1.Value)
If testStr = UCase(Left(cell.Value, Len(testStr))) Then
found = found + 1
foundaddress = cell.Address
End If
Next
If found = 1 Then
TextBox1.Value = Range(foundaddress).Value
End If
End Sub