View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Corey Corey is offline
external usenet poster
 
Posts: 363
Default Listbox and Matched Enty

I have a listbox popultaed from the U/F Activate event as below:

Private Sub UserForm_Activate()
Application.ScreenUpdating = False
Dim LastCell As Long
Dim myrow As Long
LastCell = Worksheets("Data").Cells(Rows.Count, "A").End(xlUp).Row
With ActiveWorkbook.Worksheets("Data")
..Select 'first thing to do with a With statement that occurs on a second sheet
For myrow = 1 To LastCell
If .Cells(myrow, 1) < "" Then
If .Cells(myrow, 1) < "" Then
ListBox1.AddItem Cells(myrow, 1)

End If
End If
Next
End With
Image1.Visible = True
Application.ScreenUpdating = True
ListBox1.ListIndex = 0
End Sub


BUT, I want to have the Listbox(or textbox) to have NO value in it UNTIL an Entry is placed into it.
I have set the Match Entry to Complete, as i want the user to enter the value and if there is a
completed matched entry then this will display.

How can i do this?

Corey....