none
Comparação que so funciona quando tem letras RRS feed

  • Pergunta

  • O meu loop só encontra o valor quando tem letras e números.

    Pq quando eu coloco so numeros ele não encontra?

    Private Sub CommandButton1_Click()
    Sheets("BD").Select
    Range("A1").Select
    Dim LinhaAtual As Integer
    Dim ultimalinha2 As Long
    ultimalinha2 = Folha1.Cells(Rows.Count, 1).End(xlUp).Row
    If cxtconsulta.Text <> "" Then
    contador = 0
    Do While ActiveCell.Value <> cxtconsulta.Value And contador < ultimalinha2
    ActiveCell.Offset(1, 0).Select
    contador = contador + 1
    Loop

    End If

    If ActiveCell.Value = cxtconsulta.Value Then
    ListBox1.Clear
    LinhaAtual = ActiveCell.Row
    ListBox1.AddItem Folha1.Range("A" & LinhaAtual)
    ListBox1.List(ListBox1.ListCount - 1, 1) = Folha1.Range("C" & LinhaAtual)
    ListBox1.List(ListBox1.ListCount - 1, 2) = Folha1.Range("D" & LinhaAtual)
    ListBox1.List(ListBox1.ListCount - 1, 3) = Folha1.Range("G" & LinhaAtual)
    ListBox1.List(ListBox1.ListCount - 1, 4) = Folha1.Range("H" & LinhaAtual)
    ListBox1.List(ListBox1.ListCount - 1, 5) = Folha1.Range("I" & LinhaAtual)
    ListBox1.List(ListBox1.ListCount - 1, 6) = Folha1.Range("J" & LinhaAtual)
    ListBox1.List(ListBox1.ListCount - 1, 7) = Folha1.Range("O" & LinhaAtual)
    Else
    MsgBox "Registro não localizado!", vbCritical, "Erro"
    End If

    terça-feira, 17 de dezembro de 2013 03:05

Respostas

  • Ao inserir um código no fórum, utilize blocos de código. Para utilizar essa ferramenta, clique no botão cuja legenda é “Inserir bloco de código” na barra do editor de mensagens do fórum. Uma janela aparecerá onde você deverá colar seu código cru na caixa de texto à esquerda. Então, selecione a opção Vb.Net na caixa de combinação que você verá em cima à esquerda e depois clique no botão Inserir.

    ---

    Sobre sua dúvida, a  parte a qual se refere de código é esta abaixo:

    Do While ActiveCell.Value <> cxtconsulta.Value And contador < ultimalinha2
    ActiveCell.Offset(1, 0).Select
    contador = contador + 1
    Loop


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    terça-feira, 17 de dezembro de 2013 22:03
    Moderador