Boa Noite pessoal estou fazendo um formulario de cadastro com campos de alteração porem na linguagem abaixo quando vou inserir o novo cadastro ao clicar o no botao salvar ele retorno o erro 13
Private Sub Lista_Click()
Dim codigo As Long
codigo = Lista.List(Lista.ListIndex, 0)
Me.TextBoxQtd.Value = codigo
End Sub
Private Sub TextBoxQtd_Change()
Dim codigo As Long
codigo = Me.TextBoxQtd.Value *ERRO NESTE CAMPO
On Error Resume Next
Me.TextBoxCandidato = Application.WorksheetFunction.VLookup(codigo, Sheets("RelacaoCandidato").Range("A:E"), 2, 0)
Me.CboResultado = Application.WorksheetFunction.VLookup(codigo, Sheets("RelacaoCandidato").Range("A:E"), 3, 0)
Me.CboProcesso = Application.WorksheetFunction.VLookup(codigo, Sheets("RelacaoCandidato").Range("A:E"), 4, 0)
Me.CboCategoria = Application.WorksheetFunction.VLookup(codigo, Sheets("RelacaoCandidato").Range("A:E"), 5, 0)
End Sub
Irei encaminhar o arquivo se alguem puder ajudar
Quando você salva, a macro roda o código abaixo:
Range("A11").Value = Me.TextBoxQtd.Value
Em seguida, você define TextBoxQtd para uma string vazia
Me.TextBoxQtd.Value = ""
Fazendo com que dispare o evento Change de TextBoxQtd
Logo, no código do evento Change você seta a varíavel "codigo" para tipo Long e tenta atribuir uma string vazia, portanto, tipos incompatíveis.
Dim codigo As Long codigo = Me.TextBoxQtd.Value