none
Comparar valor digitado no txtbox com valores de uma coluna RRS feed

  • Discussão Geral

  • Olá amigos, sou iniciante em vba, e gostaria da ajuda de vcs para resolver um problema.
    O problema e o seguinte, estou fazendo um form para que quando eu digite um valor ou texto no txtbox, ele compare com o de uma determinada coluna, fiz o codigo para comparar com apenas uma cedula, mas ainda não conheço muito bem a sintaxe dessa linguagem. segue o codigo a baixo 

    Ele esta funcionando, mas como podem ver somente para a cedula d3, como eu faço pra comparar com a coluna D toda?, ou seja procurar o valor na coluna D.

    desde já Grato

    Private Sub CommandButton1_Click()
        Dim x As String
        Sheets("Cadastro").Select
        x = Range("D3")
        If x = Me.TxBcompara.Text Then
            MsgBox ("encontrado"), vbInformation, ""
        Else
        MsgBox ("não encontrado"), vbInformation, ""
        End If
        
    End Sub

    domingo, 24 de fevereiro de 2013 21:31

Todas as Respostas