Gerar código de cliente em vba excel

[jlrdasilva]

Tenho o seguinte código VBA:

Sub CODIGO()
Plan1.Select
linha = 2
cont = 1
Do Until Sheets("plan1").Cells(linha, 1) = ""
linha = linha + 1
cont = cont + 1
Loop
Plan1.Range("F1") = cont
End Sub

 

Este código vba na realidade ele conta quantas linhas tem no BD e gera o número da linha seguinte

E coloca este número em Plan1(F1)

.

Preciso de um código vba que gere realmente um código de cliente.

Exemplo:

Tenho três clientes.

Cliente código 1

Cliente código 2

Cliente código 3

Não é 1º, 2º, e 3º cliente.

Digamos que em determinado tempo eu exclua o cliente código 2.

Preciso continuar com os clientes códigos 1 e 3

Enquanto eles forem meus clientes este código tem que ficar para sempre

Ou seja:

Tenho os clientes:

Cliente código 1

Cliente código 3

Preciso que o código vba gere o cliente código 2 ou cliente código 4.

Ele não pode contar as linhas e gerar de novo o cliente código 3.

Não sei se alguém entendeu meu raciocínio e me dê uma resposta.

[jlrdasilva]

Resolvido.