Nao olhei sua planilha mas crie um loop para verificar a existencia do CPF.

Algo semelhante a isso:

Sub PesquisaCPF()
Set WD = Sheets("Dados")
    WDLinha = 3
    
    
 
    Do While WD.Cells(WDLinha, 1).Value <> ""
    
    If WD.Cells(WDLinha, coluna onde esta gravado o numero do cpf).Value = celula ou textbox com o numero a ser pesquisado.Value Then
    
Msgbox "CPF ja cadastrado"
exit sub
End if
    
    WDLinha = WDLinha + 1
    
    Loop
    

    End Sub

erik,

Veja se as alterações feitas no modelo, atendem sua necessidade.

Download : https://www.sendspace.com/file/yl2xo1

Srobles

Perfeito só preciso verificar agora para bloquear o botão de gravar quando informar sim para mostrar os dados pois percebi que se deixar habilitado e o usuario clicar nele ele grava uma outra linha com os mesmos dados. Mas foi de uma ajuda tremenda sua intervenção. Muito Obrigado Sou Novo em VBA aprendo de forma autodidática entendo um pouco de sistemas porém programação é a primeira vez que estou mexendo.

erik,

Veja se as alterações feitas no modelo, atendem sua necessidade.

Download : https://www.sendspace.com/file/yl2xo1

Srobles

Perfeito só preciso verificar agora para bloquear o botão de gravar quando informar sim para mostrar os dados pois percebi que se deixar habilitado e o usuario clicar nele ele grava uma outra linha com os mesmos dados. Mas foi de uma ajuda tremenda sua intervenção. Muito Obrigado Sou Novo em VBA aprendo de forma autodidática entendo um pouco de sistemas porém programação é a primeira vez que estou mexendo.

erik,

Verifique a Function validarCPF existente nos módulos. Nela vai ter o seguinte trecho:

If Not vPesquisa Is Nothing Then
'Adicione a linha abaixo
cadcan.nomeDoBotao.Enabled=False
Else
'Adicione a linha abaixo
cadcan.nomeDoBotao.Enabled=True
End If