procurar e formatar valores por lista

Question

Como faço esta macro!?

tenho uma lista de valores que desejo procurá-los em uma matriz, se forem achados na matriz gostaria que a célula ficasse em vermelho;

Ex:

Matriz				Lista
1	12	15		1
3	10	16		9
5	9	4		8
8	8	5		10

Assim, a macro faria o primeio critério de busca pela lista=1 se achar na matriz ela pinta a célula que conter 1 de vermelho, depois vai para o seguno critério lista=9 e assim por diante...

grato!

Answer 1

Boa noite,

Experimente este código aqui:

 

 

Sub DestacarValores()

Dim rgLista As Range

Dim rgMatriz As Range

Dim cellLista As Range

Dim cellMatriz As Range



Set rgLista = Application.InputBox(Prompt:="Informe a lista que contém os valores que serão pesquisados", _

Type:=8)



Set rgMatriz = Application.InputBox(Prompt:="Informe a matriz cujos valores serão destacados", _

Type:=8)



For Each cellLista In rgLista

    For Each cellMatriz In rgMatriz

    If cellMatriz = cellLista Then cellMatriz.Font.Color = vbRed

    Next cellMatriz

Next cellLista



End Sub

 

 

[ ]s

---

Adilson Soledade - MOS http://adilsonsoledade.blogspot.com/

Answer 2

Blz!!!

 

Valew... denovo... Adilson!!