Notifications
Clear all

Macro para colorir célula conforme critério

7 Posts
3 Usuários
0 Reactions
1,172 Visualizações
(@fcarlosc)
Posts: 0
New Member
Topic starter
 

Boa-noite.
Gostaria de uma ajuda com uma macro. Na minha coluna com vários emails, preciso que encontre os "<>" de "@hotmail.com", "@yahoo.com.br", "@gmail.com",...e assim por diante e marcar a célula por uma cor.

att,

Francisco

 
Postado : 03/06/2016 5:56 pm
(@edilsonfl)
Posts: 227
Estimable Member
 

veja se esse tópico ajuda

viewtopic.php?f=10&t=8974

 
Postado : 03/06/2016 6:55 pm
(@fcarlosc)
Posts: 0
New Member
Topic starter
 

Boa-noite.
Vi o tópico, tentei adaptar ao meu código mais não deu certo. Tenho que criar um botão para fazer um filtro na coluna "X" e verificar se o email é igual a "[email protected]". Se for pinte a célula, se não, próximo.

A verificação tem que ser feita do "@" em diante. Antes do "@" não tem importância qual é o nome.

Att,

Francisco

 
Postado : 03/06/2016 9:17 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

carlos, fiquei confuso,

primeiro você disse :
"preciso que encontre os "<>" de "@hotmail.com", "@yahoo.com.br", "@gmail.com",...e assim por diante e marcar a célula por uma cor."

depois : "verificar se o email é igual a "[email protected]". Se for pinte a célula.

O ideal seria ter um modelo,porque você comentou tambem sobre "Filtrar".

Segue um exemplo básico, veja se consegue adaptar ao que pretende.

Localizar - Colorir Palavra

[]s

 
Postado : 04/06/2016 12:48 am
(@fcarlosc)
Posts: 0
New Member
Topic starter
 

Boa-noite.
Mauro, esse planilha é a que preciso, mais o meu campo de email nem todas as linhas existem emails, e o código quando acha o primeiro em branco para.
Tem como ele continuar a busca definido por um range até ex.: (65536) !?
No meu caso a minha coluna de emails é a "L".

Att,

Francisco

 
Postado : 04/06/2016 7:52 pm
(@edilsonfl)
Posts: 227
Estimable Member
 

olá fcarlosc,

Abra o códico escrito pelo Mauro coutinho,
e substitua a linha

lastRow = Range("A1").End(xlDown).Row

por:

lastRow = Cells(Rows.Count, 12).End(xlUp).Row ' O nº 12 representa a coluna L

Acho que resolve

 
Postado : 04/06/2016 9:07 pm
(@fcarlosc)
Posts: 0
New Member
Topic starter
 

Era isso mesmo...vlw....!!!

 
Postado : 04/06/2016 10:47 pm