Listbox

[laurawr]

Hi,

On a userform I have a listbox, a textbox and a combo box.

The combo box contains the headings of each column populated via

 columncmb.AddItem Cells(1, c).Text

I want this to specify what column to look in for the text typed in the text box.

When the data is found I would like the full row(s)of data to be entered into the listbox

Is there any way I can do this?

Regards

L

 

[laurawr]

Hi,

Well I have sorted this and made something that works however when the data has been placed into the listbox after a search it leave alot of blank rows underneath the data. I want rid of the blank rows that the listbox is showing.

 Private Sub search_Click()
If columncmb = 0 Then
MsgBox "Please choose a Search category."
Exit Sub
Else
 
If Searchtext.Text = "" Then
 
MsgBox "Please Enter a Search Criteria."
Searchtext.SetFocus
Exit Sub
Else
Application.ScreenUpdating = False
ThisWorkbook.Sheets("HPIN Index").Visible = True
ThisWorkbook.Activate
ThisWorkbook.Sheets("HPIN Index").Select
 
Dim DataSH As Worksheet
Set DataSH = Sheets("HPIN Index")
DataSH.Range("L1").Value = columncmb.Value
DataSH.Range("L2").Value = "*" & Searchtext.Text & "*"
DataSH.Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, criteriarange:=DataSH.Range("L1:L2"), copytorange:=DataSH.Range("M1:U141")
ListBox1.RowSource = DataSH.Range("DATA").Address
 
 
Application.ScreenUpdating = True
ThisWorkbook.Sheets("HPIN Index").Visible = False
End If
End If
End Sub

Regards
L

 

[laurawr]

Can anyone help? ...