Página 1 de 1

Numeração automática e Ordem alfabética simultâneas VBA

Enviado: 14 Jul 2015 às 00:50
por Quevedo
Oi, pessoal.
Tenho uma planilha VBA muito simples, com apenas duas colunas.
Na coluna “A”, existe um código sequencial, começando pelo número 1 e;
Na coluna “B”, constam os nomes.
Preciso de um comando que permita numerar, automaticamente, a coluna “A”, através do UserForm, e que coloque a coluna “B” em ordem alfabética, simultaneamente.
Eu tenho os comandos e eles funcionam, separadamente.
A questão da numeração automática complica, a partir do momento em que a ordem alfabética muda a posição dos códigos. Exemplificando:
A B
Código Nome
1 JOÃO
2 MARIA
3 PAULO
4 MARGARIDA
5 JOSÉ

Só que quando a ordem alfabética é acionada, a planilha fica assim:
A B
Código Nome
1 JOÃO
5 JOSÉ
4 MARGARIDA
2 MARIA
3 PAULO

Como se pode observar, na última linha da coluna “A” consta o código 3 e não mais o 5, em virtude da ordem alfabética ter sido aplicada. Assim, a numeração deixa de ser sequencial, para o próximo lançamento que, no caso, deveria ser o Código 6.
O Código não pode ser alterado. Ele deve ficar fixo para o mesmo nome do lançamento original, ou seja, o João sempre terá o código 1 e o Paulo o código 3.
Na verdade, creio ser necessário um comando que busque o último número lançado ou o maior valor da coluna”A”.
Sou leigo em VBA. Se alguém puder ajudar, agradeço, antecipadamente, por dicas e sugestões.

Re: Numeração automática e Ordem alfabética simultâneas VBA

Enviado: 14 Jul 2015 às 15:07
por alexandrevba
Boa tarde!!

Eu não sei se entendi, mas use uma célula para depositar o valor.

Veja meu modelo, faça algumas inserções depois classifique.

Att