Comparar e marcar

[Igordgp]

Pessoal boa tarde, sou novo no fórum e na programação vba, precisava de uma ajudinha pra fazer uma rotina que já estouquebrando a cabeça a uma semana... se alguém puder me ajudar agradeço,

seguinte tenho duas sheets com colunas contendo dados sheet1 e sheet2, a coluna A da sheet1 teoricamente contem os mesmos dados da coluna A da sheet2 mas se os dados estiverem em sheet1 mas não em sheet2 a celula que não bate em sheet1 deve ficar vermelha e as que baterem deve ficar verde

algo assim:

se sheet1 Ax = sheet2 Ay então sheet1 Ax verde

senão sheet1 Ax vermelho

então eu precisaria que ele comparasse a celula A1 de sheet1 com todas as celulas de sheet2 até que encontrasse uma correspondente, caso não corresponda então a celula fica vermelha...

valeu pessoal

[Patropi]

Boa noite Igor

O código abaixo deve ajudar.

Sub ColorirValorDiferente()

Dim Area As Range

Dim I As Integer

I = 0

For Each Area In Worksheets("Plan1").Range("A1:A5")

I = I + 1

If Area.Value <> Worksheets("Plan2").Cells(I,Area.Column) Then

Area.Interior.ColorIndex = 3

End If NextEnd Sub

Explicação. O código pinta de vermelho na plan1 o que não estiver igual na plan2.

Baseado neste código você pode adaptar e fazer oque você precisa.

Abraços

[Rieper]

Olá amigo,

Para solucionar este problema crie uma coluna ao lado dos dados que você deseja pesquisar na Sheet2, e utilize a fórmula SE(SEERRO(PROCV(A1;Sheet2!A:A;1;0);"")<>"";1;0) = 1 e aplique a formatação condicional nas linhas da Sheet1, formatando como achar melhor.

Qualquer dúvida responda novamente ao tópico por favor.

At.

Marcos Rieper

http://excelavancado.wordpress.com

Editado Julho 29, 2010 por Rieper