VBA : Userform Questions

This isn't really answering your post, but you may find that FlexFind at http://bmsltd.ie/MVP/Default.htm is an addin that has all the features you describe.

I just finished something similar to your request...(thanks mostly to help from this forum)

I used a textbox, commandbutton, and combobox.
The user entered the search word or number in the textbox, clicked the command button and then a list returned in the combobox that met the search criteria.

Is that similar to your request?

HI Tudor30

Try this - first set up your range - no doubt the values you are after are within a range i.e

Private Sub UserForm_Initialize()
Dim myrange As Range
Dim counter As Integer

Set myrange = Range("A1:A200") ' or named range etc

' now load up the listbox
For Each c In myrange
If c.Value = "" Then
Else:
ListBox1.AddItem c.Value, counter
counter = counter + 1
End If
Next

End Sub

this skips black cells and loads the data up into the listbox or combobox. I've found the = sign works all the time where <> sometime fails - I don't know why but this should load up your listbox.

Hope this helps - Phil

Sorry - didn't read the question - thought you wanted to populate the list box.

OK to search for a match you need to set a range and then decide on how to fire the code - I note you are using the click event which is OK - so

your current code simply sets up a varant to be equal to the listbox value - That's fine but you need to display the found value. Normally the listbox value is not what you are after but say data within row's next to it - I'm assuming that's the case so this should work - similar to loading code - you run a loop looking for a match then load up the found value into another textbox

dim myrange as range

set myrange = range("A1:A200")

for each c in myrange

if c.value = listbox1.value then
textbox1.value = listbox1.value & c.value.offset(1,0).value
end if
next

This should load up a textbox with both the listbox selected value & the next cell to the one that contained the data if was looking for -

Hope this is what you wanted - Phil

This code will search all cells in a sheet and find the value in Textbox1. Click again and it will select the next occuremce

Cells.Find(What:=TextBox1.Value, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
CommandButton1.Caption = "Next &gt;&gt;"

Is this anything like what you are looking for? I have a userform with Textbox1 and a button to click. It then works it's way throught the sheet at each click.

EDIT: This is better

Commandbutton 1 titled Find

Cells.Find(What:=TextBox1.Value, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
CommandButton1.Caption = "Next &gt;&gt;"
CommandButton2.Caption = "<< Previous"

This code goes into Commandbutton2

Cells.Find(What:=TextBox1.Value, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False _
, SearchFormat:=False).Activate
CommandButton1.Caption = "Next&gt;&gt;"

Have a textbox to type into (TextBox1)

Type your Text in hit Find. Now you can search next or previous