Olá pessoal, estou com um projeto que algumas macros não estão dando o resultado esperado, vamos por parte, cada vez que resolvido, passo para a outra para ficar bem explicado para os outros usuários, vamos lá:
1-Criei um userform que tem textbox3(Código) e o textbox4(Descrição do item), isto é, um e código do material e outro a descrição deste código, coloquei uma macro para quando digita-se no textbox3 aparece-se a descrição deste código no textbox4, mas não esta buscando o resultado, porém aparece a mensagem que eu coloquei na macro para quando não for verdadeiro.
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ws As Worksheet
Set ws = Sheets("Cad_Mat")
If TextBox3 = "" Then
Exit Sub
End If
On Error GoTo ErroCOD:
lin = Application.WorksheetFunction.Match(CInt(TextBox3.Value), ws.Range("A:A"), 0)
TextBox4 = ws.Cells(lin, 2)
Exit Sub
ErroCOD:
TextBox3 = ""
TextBox4 = ""
MsgBox ("Código do item de requisição inválido")
End Sub
Estou enviando uma planilha como modelo para melhor entendimento.
silvajmp
Postado : 11/06/2014 6:23 pm