Boa-noite

Alterei o modo de pesquisa, se você digitar o código direto no textbox irá buscar a informação e após fazer qualquer mudança é só clicar no botão Alterar.

Att,

Francisco

fcarlos
Verifiquei seu codigo e ele funciona
Muito obrigado!!!

Porem será que teria como fazer a pesquisa utilizando o imputbox?

Quer que o resultado seja exibido em uma messagebox ou formulario? Se for apenas para consulta, talvez seja interessante.

Selmo gostaria de pesquisar utilizando a imputbox e o resultado ser exibido no formulário para a edição

Boa-noite

Private Sub cmdlocalizar_Click()
varnum = Application.InputBox("Insira o código", "Aceita somente números", 1)
If varnum <> "" Then
txtcod.Text = varnum
End If
End Sub

E no TextBox "txtcod" vc muda

de: Private Sub txtcod_AfterUpdate()

para: Private Sub txtcod_Change()

Boa tarde

fcarlos vou tentar aqui
se puder colocar um exemplo (pois não tenho todo esse conhecimento em VBA) irá me ajudar bastante

Outra coisa

Como faço para saber se o código que estou cadastrando já consta na minha base?
Essa verificação seria para evitar uma possivel duplicidade
Ai caso o código já exista poderia aparecer uma mensagem tipo: código já cadastrado

Desde já agradeço novamente!!!

GALERA

Consegui fazer a verificação se já existe o código digitado através do código abaixo

On Error GoTo ErroNoSistema
Dim cod
Dim busca

cod = txtcod.Value

Set busca = Sheets("base").Range("A:A").Find(cod)

If Not busca Is Nothing Then
MsgBox ("Já existe este código cadastrado"), vbExclamation, ("AVISO DE DUPLICIDADE")
Exit Sub
Else

Agradeço a atenção!!!