Boa noite!!!

Disponibilize seu arquivo compactado!!

Att

Os cadastros são feitos na guia Banco.

No seu exemplo, para incluir a numeração do codigo pode-se utlizar:
ws.Cells(iRow, 1).Value = iRow-1.
Porem não entendi: "os nomes da coluna B são organizados em ordem alfabética";
A inclusão de novos nomes é feita na sequencia (cada inclusão é adicionada no final do cadastro), não há ordem alfabvetica.
Se "a organização" e feita a posterior e manualmente, basta não incluir a coluna "A" nessa operação, ou não é isso?

Bom dia Paulo

Vc postou no local errado, por este motivo estou movendo teu tópico para o subfórum VBA & Macro.

Um abraço.

Bom dia Patropi
Na verdade minha intenção era solucionar com formulas mesmo =D
Tinha pensado em algo do tipo : Usaria a função Máximo na N2 =Máximo(A:A), ai saberia qual foi o último código lançado independente da posição.
Depois faria na coluna a o seguinte: =SE(B158<>"";(N2)+1;"").
Mas dá uma referência circular...

Bom dia Paulo

Pra falar a verdade eu nem tinha examinado a tua planilha, pois a resposta do Reinaldo com uma linha de código em VBA e mais os botões de macro na primeira planilha, julguei que era necessário macro.

Experimente copiar e colar esta fórmula na célula A2 da planilha Banco e arrastar para as demais linhas.

=SE(B2<>"";MÁXIMO($A$1:A1)+1;"")

Dê retorno.

Se a resposta for essa eu retorno o tópico para Fórmulas & Funções.

Um abraço.

No seu exemplo, para incluir a numeração do codigo pode-se utlizar:
ws.Cells(iRow, 1).Value = iRow-1.

Muito obrigado pela Funciona perfeitamente, já adicionei ao meu projeto

Porem não entendi: "os nomes da coluna B são organizados em ordem alfabética";
A inclusão de novos nomes é feita na sequencia (cada inclusão é adicionada no final do cadastro), não há ordem alfabvetica.
Se "a organização" e feita a posterior e manualmente, basta não incluir a coluna "A" nessa operação, ou não é isso?

Isso mesmo, a organização é feita manualmente. Há uma macro que faça esse procedimento?

Desde já muito obrigado.

Pode-se utilizar conforme a sub ordena abaixo, e aciona-la a cd inclusão de registro. (na ultima linha do codigo de inclusão)
...
MsgBox "Cadastro realizado com sucesso.", vbDefaultButton1, "C A D A S T R O"
Call Ordena
end sub

Private Sub Ordena()
Dim lRow As Long
lRow = Cells(Cells.Rows.Count, "B").End(xlUp).Row
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    ActiveWorkbook.Worksheets("Banco").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Banco").Sort.SortFields.Add Key:=Range("B2"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Banco").Sort
        .SetRange Range("B2:N" & lRow)
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Boa tarde!!

Eu não sei se eu entendi, mas veja o anexo, foi criado uma UDF

Att

Patropi, AlexandreVBA, Reinalado
Vcs são simplesmente geniais! Sempre precisos nas resposta
Muito obrigado mesmo

Comecei minha planilha mais ou menos no meio de março, tinha só uma ideia de como poderia ser feita, mas nenhuma noção de VBA, graças ao espirito solidário de vcs ela já esta quase terminada.
Mais uma vez muito obrigado

Amigos ,
só pra terminar, como faço pra manter todos os comandos todos a plan 1 sem que troque de planilha.
O único comando que compre todo o processo sem sair da plan1 é o cadastrar os outros pulam pra plan Banco.

Paulo, pra o que pretende, a maneira de se referir/definir as planilhas devem ser modificados. O metodo Select, pressupoe a seleção inicial da planilha referida, por isso é que a mesma fica em evidencia.
No seu modelo alterei os FormCadastro e Busca, veja se lhe atende

Reinaldo;

Ual!!! ficou simplesmente perfeito!
Até a combobox se auto completa com apenas algumas palavras, exatamente como eu pretendia deixar nos finalmente!

Agora, o pessoal vai ficar meio assustados quando o cadastro 162, e 163 vierem visitar o clube, afinal são os X-men!
Hahahahahahaha!