Contar quantos valores iguais existem na coluna "A" e inserir um contador na coluna "B"

Question

Exemplo:

Coluna "A"                                      Coluna "B"

Diego                                                   1

Diego                                                   2

Diego                                                   3

Diego                                                   4

Rodrigo                                                1

Davi                                                    1

Rodrigo                                                2

Davi                                                    2

estou criando um formulário em VBA porem preciso de ajuda para desenvolver este raciocínio,  ao inserir o nome no usuario na coluna "A" verifique quantos valores estão com aquele nome e insere o numero (Contador) na coluna "B"

se o nome Diego ja foi inserido 4 vezes, a proxima vez que inserir sera a de numero 5, desta forma o valor sera inserido na coluna "A" sera o nome mais uma vez e na coluna "B" o numero 5.

Fico no Aguardo Vlw!

Answer 1

Olá dglimads!
Só para entender, você está desenvolvendo um formulário que alimenta a planilha, certo?

É bem simples construir essa lógica. Se estiver trabalhando com intervalos normais, você pode aplicar a fórmula:

Essa fórmula no VBA fica: 

  .FormulaR1C1 = "=IF(RC[-1]="""","""",COUNTIF(R1C1:RC[-1],RC[-1]))"

Mas fazendo assim, terá sempre que copiar a fórmula quando adicionar um novo nome. Ou você pode deixar um intervalo grande com as fórmulas, com a condição de ficar vazia se não tiver nome preenchido, a fórmula ficaria: =se(A2="";"";CONT.SE($A$1:A2;A2))

Outra forma é trabalhar com tabela na planilha. Após converter o intervalo em coluna, na célula B2, você pode colocar a fórmula:

 Dessa forma, sempre que inserir um novo nome linha vazia após a tabela (pode ser através do VBA), a tabela se ajustará e já considerará a fórmula de contagem na coluna B.

Espero que assim lhe ajude.

Abs!

---

Rafael Kamimura

Answer 2

Rafael, muito obrigado!!

ficou perfeito era isso mesmo!

valew!