Notifications
Clear all

Comparar nomes entre colunas

11 Posts
3 Usuários
0 Reactions
1,987 Visualizações
(@robert)
Posts: 561
Honorable Member
Topic starter
 

Bom dia a todos !

Preciso de uma ajuda de todos vocÊs novamente , por favor baixem a planilha vide anexo para um entendimento .

Obrigado desde já a todos !

:D

Att,
Robert / Moderador

Leia aqui as regras do fórum - Click -->> http://www.planilhando.com.br/forum/viewforum.php?f=7

SE A RESPOSTA FOI ÚTIL, AGRADEÇA CLICANDO NA MÃOZINHA LADO SUPERIOR DIREITO.

 
Postado : 26/03/2014 7:07 am
(@gtsalikis)
Posts: 2373
Noble Member
 

Bom dia, Robert,

Pode ser assim?

Sub Comparar_GT()
Application.ScreenUpdating = False

Dim i           As Integer
Dim j           As Integer
Dim UL          As Integer ' Última Linha
Dim Ref_Nome    As String

UL = Range("A" & Rows.Count).End(xlUp).Row

Range(Cells(2, 1), Cells(UL, 5)).Interior.Color = RGB(255, 255, 255) 'define fundo branco para as células
For i = 2 To UL 'loop para linha 2 até a última linnha
    For j = 1 To 5 'loop para as colunas 1 a 5
        'se a célula for diferente, pinta a coluna com a cor em rgb
        If Cells(i, j).Value <> Cells(i, "L").Value Then _
            Range(Cells(2, j), Cells(UL, j)).Interior.Color = RGB(129, 128, 128)
    Next j
Next i

Application.ScreenUpdating = True
End Sub

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 26/03/2014 7:29 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Grande Robert,

Vê se ajuda cara.

Qualquer coisa da o grito.
Abraço

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

 
Postado : 26/03/2014 7:43 am
(@robert)
Posts: 561
Honorable Member
Topic starter
 

gtsalikis ,

Funcionou perfeitamente, meus parabéns 1

Muito obrigado !

Abraços,

Att,
Robert / Moderador

Leia aqui as regras do fórum - Click -->> http://www.planilhando.com.br/forum/viewforum.php?f=7

SE A RESPOSTA FOI ÚTIL, AGRADEÇA CLICANDO NA MÃOZINHA LADO SUPERIOR DIREITO.

 
Postado : 26/03/2014 7:44 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Enquanto elaborava acho que o GT resolveu primeiro (não testei a sua), mas a lógica está semelhante.

Qualquer coisa da o grito.
Abraço

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

 
Postado : 26/03/2014 7:47 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Caraca, vocês estão rápidos mesmo...
hahahahhaha

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

 
Postado : 26/03/2014 7:47 am
(@robert)
Posts: 561
Honorable Member
Topic starter
 

Bernardo,
Bom dia !

Muito obrigado cara por sempre mim ajudar !

Realmente você está o cara das planilhas,kkk, seu conhecimento em VBA estar excelente !Meus parabéns , te admiro muito !

Obrigado mais uma vez!

Att,
Robert / Moderador

Leia aqui as regras do fórum - Click -->> http://www.planilhando.com.br/forum/viewforum.php?f=7

SE A RESPOSTA FOI ÚTIL, AGRADEÇA CLICANDO NA MÃOZINHA LADO SUPERIOR DIREITO.

 
Postado : 26/03/2014 7:50 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

8-)

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

 
Postado : 26/03/2014 7:54 am
(@gtsalikis)
Posts: 2373
Noble Member
 

Caraca, vocês estão rápidos mesmo...
hahahahhaha

hahahah, mas o teu código está mais completo

Abraço

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 26/03/2014 7:55 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Aah, mas vai depender da necessidade também...

Testei o seu aqui agora e para esse caso em específico, o diferencial é que eu já coloquei para ir comparando por linha, e caso ele já encontre algum ele já pula para a próxima coluna, o seu faz a varredura completa. Com uma grande base de dados, caso não haja "divergência" entre as colunas acredito que deva demorar o mesmo tempo (ou muitíssimo próximo), mas caso tenha bastante divergência o meu rodará mais rápido.

Qualquer coisa da o grito.

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

 
Postado : 26/03/2014 8:08 am
(@robert)
Posts: 561
Honorable Member
Topic starter
 

Bom dia !

Depois de alguns testes encontrei um erro na verificação/aplicação .

Exemplo se eu tiver :Como base

ROBERT
DIVS
MAZARROPI
RALP

E tiver :

ROBERT -- DIVS
DIVS -- ROBERT
MAZARROPI -- TINHO
TINHO -- RALP
RALP --

Análise que no primeiro ex: de baixo estár incluso mais uma palavra que é : "tinho" mais as outras palavras estão iguais ao EX: DE BÁSE ACIMA .
Há mesma coisa acontece com o segunto exemplo da direita , só fiz mudar os nomes de lugares .

Todas as duas formas quando estão assim disposta na planilha o código preenche dizendo que não estar correto, mais na verdade estar correto por causa que as palavras estão la conforme o exemplo acima.

Não sei se vocês mim entenderam , como estou no traballho e na correria não deu para revisar, kk

Obrigado mais uma vez !

Att,
Robert / Moderador

Leia aqui as regras do fórum - Click -->> http://www.planilhando.com.br/forum/viewforum.php?f=7

SE A RESPOSTA FOI ÚTIL, AGRADEÇA CLICANDO NA MÃOZINHA LADO SUPERIOR DIREITO.

 
Postado : 27/03/2014 5:37 am