Pessoal!
Como faço para pesquisando usando o listBox quando a planilha tem mais de 10 colunas.
tipo> uso um dados da planilha para ser a fonte de busca tipo "nome" e na lista box aparecer tudo sobre esse "nome" de acordo com o cadastro no banco de dados, sendo que essa planilha tenha mais de 10 colunas.
Não se se ficou claro.
O código que estou usando é esse: porém só vai até a coluna 9.
Private Sub CommandButton6_Click()
Range("A1").Select
TextBox1.SetFocus
Dim Linhaatual As Integer
Dim contador As Integer
If TextBox1.Text <> "" Then
contador = 0
Do While ActiveCell.Value <> TextBox1.Text And contador < 30
ActiveCell.Offset(1, 0).Select
contador = contador + 1
Loop
End If
If ActiveCell.Value = TextBox1.Value Then
Linhaatual = ActiveCell.Row
ListBox1.AddItem Plan1.Range("A" & Linhaatual)
ListBox1.List(ListBox1.ListCount - 1, 1) = Plan1.Range("B" & Linhaatual)
ListBox1.List(ListBox1.ListCount - 1, 2) = Plan1.Range("C" & Linhaatual)
ListBox1.List(ListBox1.ListCount - 1, 3) = Plan1.Range("D" & Linhaatual)
ListBox1.List(ListBox1.ListCount - 1, 4) = Plan1.Range("E" & Linhaatual)
ListBox1.List(ListBox1.ListCount - 1, 5) = Plan1.Range("F" & Linhaatual)
ListBox1.List(ListBox1.ListCount - 1, 6) = Plan1.Range("G" & Linhaatual)
ListBox1.List(ListBox1.ListCount - 1, 7) = Plan1.Range("H" & Linhaatual)
ListBox1.List(ListBox1.ListCount - 1, 8) = Plan1.Range("I" & Linhaatual)
ListBox1.List(ListBox1.ListCount - 1, 9) = Plan1.Range("J" & Linhaatual)
Else
MsgBox "Registro não encontrado!", vbCritical, "erro"
TextBox1.SetFocus
ListBox1.Clear
End If
Se aguem tiver uma solução agradeço!
Samuel
Postado : 30/05/2014 2:24 pm