Estou com dificuldade em achar o problema no código abaixo.
Aparece a seguinte frase de erro: método ou membro de dados não encontrado!
Alguém pode me ajudar, por favor?
---------------------------
Private Sub TextBox1_Change()
valor_pesq = TextBox1.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 Me.OptCodigo = False And Me.OptSetor = False And Me.OptCargo = False And Me.OptAtivo = False And Me.OptCPF = False And Me.OptNome = False Then
MsgBox ("Selecione um critério para a busca!")
End If
If Me.OptCodigo = True Then
coluna = 1
If Me.OptSetor = True Then
coluna = 35
If Me.OptCargo = True Then
coluna = 36
If Me.OptAtivo = True Then
coluna = 37
If Me.OptCPF = True Then
coluna = 3
Else
coluna = 2
End If
End If
End If
End If
End If
linhalistbox = 0
conta_registros = 0
linha = 3
ListView1.ListItems.Clear
Sheets("Dados Clientes").Select
With guia
While .Cells(linha, coluna).Text <> ""
valor_celula = .Cells(linha, coluna).Value
If UCase(Left(valor_celula, Len(valor_pesq)) = UCase(valor_pesq)) Then
With ListView1
.AddItem
.List(linhalistbox, 0) = Sheets("Dados Clientes").Cells(linha, 1)
End With
conta_registros = conta_registros + 1
End If
linha = linha + 1
Wend
End With
End Sub
