Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
LOCALIZAR REGISTRO
 
Notifications
Clear all

LOCALIZAR REGISTRO

 
2024 - VBA & Macros
Post Recente por gfsouza86 7 anos atrás
8 Posts
3 Usuários
0 Reactions
1,912 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
(@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
(@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
(@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
Forum Jump:
  Tópico Anterior
Próximo Tópico