Notifications

Clear all

LOCALIZAR REGISTRO

2024 - VBA & Macros

Post Recente por gfsouza86 7 anos atrás

8 Posts

3 Usuários

0 Reactions

1,908 Visualizações

RSS

gfsouza86

(@gfsouza86)

Posts: 0

Trusted Member

Topic starter

Boa tarde galera ou seria boa noite? :roll:

Tenho uma planilha onde existe um formulário para o cadastro
O cadastro é feito através do formulário em vba e adicionado na planilha como no arquivo de exemplo
Até ai tudo bem e funcionando perfeitamente!

Porem gostaria de ter um botão EDITAR para caso algum dado da pessoa fosse alterado eu conseguisse realizar essa mudança
Coloquei um botão onde ao clicar surge uma imputbox solicitando que o usuário digite o código do funcionário para localizar
Até aqui funcionando.....

Agora vem o que eu gostaria
Após digitar o numero do código, as informacoes sao exibidas e a pessoa apos alterar a informação desejada salva a atualização

Como consigo isso????

Desde já agradeço a todos pela atenção

exemplo_cadastro.xlsm

G@b®!eL

Se a resposta foi útil para você, por gentileza, clique na mãozinha ao lado direito da sua tela no canto superior.

Postado : 27/02/2018 5:05 pm

fcarlosc

(@fcarlosc)

Posts: 453

Honorable Member

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

Postado : 27/02/2018 5:52 pm

gfsouza86

(@gfsouza86)

Posts: 0

Trusted Member

Topic starter

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

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

G@b®!eL

Se a resposta foi útil para você, por gentileza, clique na mãozinha ao lado direito da sua tela no canto superior.

Postado : 28/02/2018 9:40 am

selmo

(@selmo)

Posts: 236

Estimable Member

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

"A mente que se abre a uma nova ideia jamais voltará ao seu tamanho original."
Albert Einstein

Postado : 01/03/2018 5:48 am

gfsouza86

(@gfsouza86)

Posts: 0

Trusted Member

Topic starter

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

G@b®!eL

Se a resposta foi útil para você, por gentileza, clique na mãozinha ao lado direito da sua tela no canto superior.

Postado : 01/03/2018 9:52 am

fcarlosc

(@fcarlosc)

Posts: 453

Honorable Member

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()

Postado : 01/03/2018 4:47 pm

gfsouza86

(@gfsouza86)

Posts: 0

Trusted Member

Topic starter

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!!!

G@b®!eL

Se a resposta foi útil para você, por gentileza, clique na mãozinha ao lado direito da sua tela no canto superior.

Postado : 05/03/2018 12:52 pm

gfsouza86

(@gfsouza86)

Posts: 0

Trusted Member

Topic starter

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!!!

G@b®!eL

Se a resposta foi útil para você, por gentileza, clique na mãozinha ao lado direito da sua tela no canto superior.

Postado : 07/03/2018 6:36 am