Tenho um formulário contendo uma listbox com os dados que são lançados na planilha, e uma textbox com vários botões de opção para filtrar esses dados, porem não está funcionando o código que estou usando.
Código: Selecionar todos
Private Sub caixa_localizar_local_Change()
valor_pesq = caixa_localizar_local.Text
Dim guia As Worksheet
Dim linha As Integer
Dim coluna As Integer
Dim linhalistbox As Integer
Dim valor_celula As String
Dim conta_registros As Integer
Set guia = ThisWorkbook.Worksheets(1)
If Optcod = False And Optcliente = False And Optbairro = False And Optcidade = False Then
MsgBox ("Selecione um critério para a busca!")
Exit Sub
ElseIf Optcod = True Then
coluna = 1
ElseIf Optcliente = True Then
coluna = 2
ElseIf Optbairro = True Then
coluna = 4
ElseIf Optcidade = True Then
coluna = 5
End If
linhalistbox = 0
conta_registros = 0
linha = 2
ListBoxConsulta.Clear
Sheets("Clientes").Select
With guia
While .Cells(linha, coluna).Value <> Empty
valor_celula = .Cells(linha, coluna).Value
If UCase(Left(valor_celula, Len(valor_pesq))) = UCase(valor_pesq) Then
With ListBoxConsulta
.AddItem
.List(linhalistbox, 0) = Sheets("Clientes").Cells(linha, 1) 'codigo
.List(linhalistbox, 1) = Sheets("Clientes").Cells(linha, 2) 'cliente
.List(linhalistbox, 3) = Sheets("Clientes").Cells(linha, 4) 'bairro
.List(linhalistbox, 4) = Sheets("Clientes").Cells(linha, 5) 'cidade
linhalistbox = linhalistbox + 1
End With
conta_registros = conta_registros + 1
End If
linha = linha + 1
Wend
End With
Me.lbl_registro = conta_registros
End Sub
