Notifications
Clear all

Consultar dados de outra planilha e atualizar

4 Posts
2 Usuários
0 Reactions
928 Visualizações
(@lucasdjb)
Posts: 12
Active Member
Topic starter
 

Olá,

Estou desenvolvendo um ficha em excel, mas não estou conseguindo criar códigos para consultar os dados que já foram inserios na planilha DATABASE e atualizar esses dados.

segue anexo planilha para melhor entendimento.
https://drive.google.com/open?id=1AN0At ... C5EX8ZHZwX

 
Postado : 06/07/2018 10:05 am
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

lucasdjb,

Bom dia!

Para consultar os dados que já estão salvos na base de dados, a partir do momento que você insere o CPF na célula e pressiona o botão Consulta, é simples. Basta você primeiro pegar a quantidade de linhas que tem dados da aba DATABASE, fazer um FOR pela coluna de CPF’s em busca do CPF que foi digitado na aba do formulário para consulta e, encontrando o mesmo, carregar para as células correspondentes a cada campo do formulário, o valor de cada coluna da aba DATABASE correspondente a linha do CPF localizado.

Fazendo algumas suposições, como por exemplo, quana aba onde está o formulário se chama teste, que o campo nome nesta aba está na célula B3 que o campo CPF está na A3, que o CPF está na A3, que o nome na aba DATABASE está na célula B3 e que em ambas as abas os dados
Começam na linha 2, o código, apenas para o campo nome, seria algo assim:

Sub Consultar()
     Dim i as Long
     Dim UltimaLinha as Long
     UltimaLinha = Sheets(“DATABASE”).Cells(Cells.Rows.Count, 1).End(XlUp).Row
     For i = 2 to UltimaLinha 
          If Sheets(“Teste”).Range(“A3”).Value = Sheets(“DATABASE”).Range(“A” & i).Value Then
               Sheets(“Teste”).Range(“B3”).Value = Sheets(“DATABASE”).Range(“B” & i).Value
          End If
     Next
End Sub

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 07/07/2018 5:21 am
(@lucasdjb)
Posts: 12
Active Member
Topic starter
 

Bom dia Wagner,

Desculpe a minha ignorância, mas não sei usar vba, os códigos que estão na minha planilha, pesquisei aqui no site.

tentei executar o código que você passou, substituindo os dados de exemplo pelos dados da planilha mas retorna o erro: erro em tempo de execução '9 - subscrito fora do intervalo.

vou reformular a minha questão para um melhor entendimento:

Assim que o usuário imputa os dados e clica em salvar, os dados são salvos na planilha DATABASE. - OK

Para Consultar, quero digitar o CPF e retornar os dados que estão na DATABASE, caso já tenham sido cadastrados;
E, se necessário atualizar estes dados, poder atualizar sem duplica-los na DATABASE.

Desde já, agradeço ao wagner pela resposta

 
Postado : 10/07/2018 7:22 am
(@lucasdjb)
Posts: 12
Active Member
Topic starter
 

Bom dia Wagner,

Desculpe a minha ignorância, mas não sei usar vba, os códigos que estão na minha planilha, pesquisei aqui no site.

tentei executar o código que você passou, substituindo os dados de exemplo pelos dados da planilha mas retorna o erro: erro em tempo de execução '9 - subscrito fora do intervalo.

vou reformular a minha questão para um melhor entendimento:

Assim que o usuário imputa os dados e clica em salvar, os dados são salvos na planilha DATABASE. - OK

Para Consultar, quero digitar o CPF e retornar os dados que estão na DATABASE, caso já tenham sido cadastrados;
E, se necessário atualizar estes dados, poder atualizar sem duplica-los na DATABASE.

Desde já, agradeço ao wagner pela respost

 
Postado : 13/07/2018 12:00 pm