none
Dificuldade em identificar o problema no código RRS feed

  • Pergunta

  • 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

    segunda-feira, 27 de novembro de 2017 22:40

Respostas

Todas as Respostas