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