none
erro em tempo de execução "13" RRS feed

  • Pergunta

  • Boa Noite a todos,

    estou criando uma planilha de dados mas estou me deparando com esse erro 13 - erro em tempo de execução, mas não sei corrigir. Alguém pode me ajudar?

    OBS:   eu busco os valores na planilha2 (Estoque2) e peço para alterar na planilha 1 (estoque )

    'codigo de consulta consulta
    
    
    Private Sub txt_produto_AfterUpdate()
    
    Dim intervalo As Range
    Dim texto As String
    Dim codigo As Integer
    Dim mensagem
    
    codigo = txt_produto
    Sheets("estoque2").Select
    Set intervalo = Range("A2:D500")
    
    On Error GoTo Erro
    
    pesquisa = Application.WorksheetFunction.VLookup(codigo, intervalo, 2, False)    'numero da ordem
    pesquisa1 = Application.WorksheetFunction.VLookup(codigo, intervalo, 3, False)   'placa caminhao
    pesquisa3 = Application.WorksheetFunction.VLookup(codigo, intervalo, 4, False)   'data
    
    
    txt_codigo = pesquisa            'numero da ordem
    txt_unidade = pesquisa1          'placa caminhao
    txt_valor_unitario = pesquisa3   'data
    
    
    Exit Sub
    Erro:
    texto = "Não foi localizado nenhum valor correspondente ao código..."
    mensagem = MsgBox(texto, vbOKOnly + vbInformation)
    End Sub
    
    
    'codigo para editar
    
    Private Sub btn_atualiza_Click()
    
    Sheets("estoque").Select
    ActiveCell.Value = txt_produto
    ActiveCell.Offset(0, 7).Value = txt_codigo.Value              'nota fiscal
    ActiveCell.Offset(0, 8).Value = txt_unidade.Value             'placa do caminhao
    ActiveCell.Offset(0, 9).Value = txt_valor_unitario.Value      'data
    
    MsgBox "cadastro alterado com sucesso", , "Sucesso"
    
    txt_codigo = ""
    txt_produto = ""
    txt_unidade = ""
    txt_valor_unitario = ""
    
    txt_produto.SetFocus
    
    
    End Sub
    
    


    quinta-feira, 24 de dezembro de 2015 01:19

Respostas

  • Boa tarde Hiago.

    Minha primeira impressão é que o erro vem da declaração da variável 'codigo', uma vez que vc declarou ela como 'Integer' e está alocando nela o valor de um TextBox (?) que por padrão retorna uma 'String'.

    De qualquer forma, comente a parte de tratamento de erro e indique a linha onde o erro ocorre, assim fica mais fácil localizar a causa.

    Abraço.


    Filipe Magno

    sexta-feira, 25 de dezembro de 2015 18:58