none
erro em FUNÇÃO VBA RRS feed

  • Pergunta

  • ola amigo,alguem pode me ajudar, minha pesquisa deu um erro mas achei o poque porem nao sei como resolver o codigo a baixo só consigo pesquisar o "código" com maximo 5 numeros e eu tiver codigo com 6 numero ele da erro na linha codigo = txtcodfor voce pode me ajudar?

    ------------------------------------------------

    Private Sub txtcodfor_AfterUpdate()

    Dim intervalo As Range

    Dim texto As String

    Dim Codigo As Integer

    Dim mensagem

    Codigo = txtcodfor Sheets("fornecedor").Select

    Set intervalo = Range("A2:B4")

    On Error GoTo Erro

    pesquisa = Application.WorksheetFunction.VLookup(Codigo, intervalo, 2, False)

    txtfornecedor = pesquisa

    Exit Sub

    Erro: texto = "Não foi localizado nenhum valor correspondente ao código..." mensagem = MsgBox(texto, vbOKOnly + vbInformation)

    End Sub

    domingo, 23 de abril de 2017 00:59