Verificar a existência de um dado e salvar as alterações realizadas

Boa tarde amigos do fórum,

Estive consultando o material aqui disponível e não encontrei algo que pudesse sanar meu problema. Estou criando uma planilha no excel utilizando o VBA e é a primeira vez que trabalho nessa linguagem, por isso estou tendo um pouco de dificuldade. Eis o problema:

Ao gravar um novo cliente preciso verificar se existe outro com o mesmo CPF já cadastrado e, se existir, perguntar ao usuário se ele deseja alterar o registro. Do jeito que a minha planilha se encontra, sempre que digito o mesmo CPF ele cria um novo registro.

Gostaria também de incluir na pesquisa o Nome. Para poder buscar o cliente no banco de dados tanto por cpf, quanto por nome.

Segue em anexo a planilha do modo que está até então.

Obrigado,
Cláudio Júnior

Olá, seja bem vindo ao fórum !

Mas sei não....... esse ,fórum a qual nós estamos, é para o MsAccess, e talvez, pode ser que haja algum membro daqui que saiba como mexer em *.XLS.

Abraços.

Claudiojr93

O código que anexo, permite procurar na coluna que você especificar e faz aparecer os dados gravados na folha, numa listbox. No entanto podes alterar para outro objeto.
No caso eu utilizo para editar registos, mas  por certo o funcionamento da minha aplicação é diferente da tua, por isso adapta de acordo com as tuas necessidades.

Código:


Private Sub CommandButton9_Click()
Dim Alt As Variant
Dim address As Variant, RangColC As Range, RangRow As Range, RegCorr As Integer

D100:
    Alt = InputBox("" & vbLf & vbLf & "INSIRA O NOME CORRETO.", "        ........ALTERAÇÃO DE DADOS........")
        If IsNumeric(Alt) = True Or Alt = "" Then
        MsgBox "------- NÃO ALTERADO" & vbLf & "VERIFIQUE O NOME INSERIDO.", vbCritical
GoTo D100
        Else
        Set RangColC = Sheets("DADOS").Range("C2:C20000")

            For Each RangRow In RangColC.Rows
                If RangRow.Cells(1, 1) = Me.ListBox4.Value Then
                address = RangRow.Cells(1, 1)
                RangRow.Cells(1, 1).Select
                RegCorr = RegCorr + 1
                ActiveCell = Alt
                TextBox_nome.Value = Alt
MsgBox vbLf & "   - -  REGISTOS SUBSTITUÍDOS COM SUCESSO.  - - " & vbLf & _
        vbLf & "                                                 " & RegCorr & vbLf _
        & vbLf & "                            REGISTOS CORRIGIDOS."

                End If
            Next
    End If
        MultiPage_Historico.Value = 0
        TextBox8.Value = ""
        ListBox4.Clear
        
ThisWorkbook.Save

End Sub



Espero que funcione.
Boa sorte