I have written a code that acts as a directory search engine for peoples names. There is a form called search that is loaded and asks the user which name he or she would like to search for. When the user enters the data, whether the name is spelled right or not, the search finds the first closest match to whatever was entered into the form. I would like to change this in one way. Many times there are people with the same first name but different last name or two very similar first names that might be highlightes instead of the exact name the user is looking for. I would like to ask if anyone knows how to write a code that would insert each of the names that have all or part of the entered name into a forms box to where a final selection could be made to select the exact row of cells that the user wants to see. This is much like the find feature on your PC. You enter what you want to find and it brings up all of the things that include your keywords and you make the final selection. Is this possible or just very complicated?
This is the current search code that I have written. It will find the closest match but will not insert it into a form but it is the best I can do to help with this project, because I am still learning the VBA language.
Sub FindIt()
Dim FDescriptions As Range
Dim Reply As Long
MysName = Search.Textbox1
Set FDescriptions = Columns(4).Find(What:=MysName, Lookat:=xlPart, LookIn:=xlValues)
If FDescriptions Is Nothing Then
Reply = MsgBox("Food Not In Database. Try Again?", vbYesNo)
If Reply = vbYes Then Search.Show
Else
FDescriptions.EntireRow.Activate
End If
End Sub
Display More