Criei um banco de dados em Excel que deve aceitar apenas 1 CPF. Assim criei a seguinte função que faz a verificação e impede que cadastros repetidos sejam inseridos.
Function verifica_cpf(cpf As Integer) As Boolean
Dim i As Integer, intValueToFind As Long, x As Boolean
cpf = False
intValueToFind = Range("i3").Value
Sheets("Banco de Dados").Select
NumRows = Range("A2", Range("A2").End(xlDown)).Rows.Count
For i = 3 To NumRows
If Cells(i, 1).Value = intValueToFind Then
MsgBox ("CPF já cadastrado na linha " & i & vbNewLine & "Dados não inseridos no banco")
x = True
End If
Next i
Return cpf ' Esta linha apresenta o erro de "fim de instrução esperado" ao compilar
End Function
Quando o código estava dentro da minha macro principal, funcionava sem problemas. Os erros começaram quando eu migrei ela para uma função separada para ficar mais organizado.
Na sub principal ela é chamada da seguinte maneira:
Private Sub Cadastrar()
Sheets("Cadastrar").Select
Dim cpf = verifica_cpf() ' Esta linha apresenta o erro de "fim de instrução esperado" ao compilar
.
.
.
end sub