Notifications
Clear all

NOMES DUPLICADOS

7 Posts
1 Usuários
0 Reactions
1,912 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Amigos, tenho uma planilha com vários nomes (nome e sobrenome), preciso de alguma função que verifique nomes duplicados e deixe-os em evidência (por exemplo com a cédula amarela).
Tentei algumas fórmulas, mas sem sucesso. Inclusive, se possível, a fórmula deve ignorar acentuações, Ex: Patrícia ou Patricia, Conceição ou Conceicao.
Os nomes estão em uma única coluna, Ok. Por exemplo A1.

Abraços

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 19/09/2011 3:15 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Veja no anexo exemplo formulas para "encontrar" duplicados.

Quanto aos acentos, foi utilizado um codigo em VB:

Function RetAcento(Texto As String) As String
'Fonte: http://blogdokazu.blogspot.com/2007/03/retirar-acentos.html
Dim Completo As String
Dim Tamanho As Long
Dim CodAsc As Integer
Dim Posicao As Long
Tamanho = Len(Texto)
For Posicao = 1 To Tamanho
CodAsc = Asc(Mid(Texto, Posicao, 1))
Select Case CodAsc
Case 192 To 197
CodAsc = Asc("A")
Case 199
CodAsc = Asc("C")
Case 224 To 229
CodAsc = Asc("a")
Case 200 To 203
CodAsc = Asc("E")
Case 231
CodAsc = Asc("c")
Case 232 To 235
CodAsc = Asc("e")
Case 204 To 207
CodAsc = Asc("I")
Case 236 To 239
CodAsc = Asc("i")
Case 210 To 214
CodAsc = Asc("O")
Case 242 To 246
CodAsc = Asc("o")
Case 217 To 220
CodAsc = Asc("U")
Case 249 To 252
CodAsc = Asc("u")
Case 209
CodAsc = Asc("N")
Case 241
CodAsc = Asc("n")
End Select
Completo = Completo & Chr(CodAsc)
Next
RetAcento = Completo
End Function

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 20/09/2011 12:51 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Reinaldo, nao deu muito certo. Copiei a formula ate cedula 5000. Mas veja como aparecem nomes como duplicados, mesmo nao estando.
Ou fiz alguma coisa errada
http://www.4shared.com/document/u7tHP-I ... ntosX.html

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 20/09/2011 2:09 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Beneduzi,

A range, nas formulas estão "travadas" (Referencia Absoluta) em $B$2:$B$17; copiando ou arrastando, do modo como estão, permanecem "olhando" apenas essa area.

Para que as mesmas reconhecam a nova area, e necessario alterar, manualmente $B$17 para $B$5303 (Conforme seu exemplo) e arrastar ou copiar para as demais celulas;
ou
"Destravar" (Referencia relativa) retirando o "$" do endereço.

Tambem não está com "tratamento" para celulas sem dados (Branco).

Veja o seu exemplo alterado.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 20/09/2011 2:31 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Para que as mesmas reconhecam a nova area, e necessario alterar, manualmente $B$17 para $B$5303 (Conforme seu exemplo) e arrastar ou copiar para as demais celulas;

Não entendi Bernardo, $B$17 para $B$5303 (em que célula) não encontrei. Outra coisa a planilha que tu postou continua igual, acho que é a mesma com problemas porque continua com as duplicadas.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 20/09/2011 2:46 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Benduzi,

Aparecem duplicados, por que eu dupliquei os registros para "ver" o resultado das formulas, repare que na linha 25 e 66 não aparecem como duplicados. Apague algum registro em "A" e veja como fica.
Se procurou na ultima planilha postada, as ranges já estão atualizadas.
Comentei das formulas nas colunas "C";"D";"E" e "F", onde estão os exemplos para "contar" os duplicados, voce deve optar por um deles.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 21/09/2011 5:37 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

He he, verdade Reinaldo. Verifiquei. Deu bem certinho.
Grande trabalho hein!

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 22/09/2011 7:20 pm