Usuário com melhor resposta
Formatação condicional ao alterar o conteúdo de uma celula

Pergunta
-
Respostas
-
Suponha que essa sua planilha se chame 'Original'. Crie uma cópia (como valores) dela chamada 'Check'.
Use o código a seguir:
Sub Main() Dim wsOriginal As Excel.Worksheet Dim wsCheck As Excel.Worksheet Dim rCell As Excel.Range With ThisWorkbook Set wsOriginal = .Worksheets("Original") Set wsCheck = .Worksheets("Check") End With wsOriginal.Cells.Interior.ColorIndex = xlColorIndexNone For Each rCell In wsOriginal.UsedRange.SpecialCells(xlCellTypeConstants, 23) If rCell <> wsCheck.Range(rCell.Address) Then rCell.EntireRow.Interior.Color = RGB(255, 127, 127) End If Next rCell MsgBox "Check concluído!", vbInformation End Sub
Felipe Costa Gualberto - http://www.ambienteoffice.com.br
- Marcado como Resposta Kleber M Camon quarta-feira, 15 de abril de 2015 19:31
Todas as Respostas
-
-
-
Por exemplo, temos os seguintes valores:
A1 = 10
B1 = 20
C1 = 30
Ok, se alterarmos B1 para 25, a linha irá colorir. E quando alterarmos de novo para 20, é para ela descolorir?
Felipe Costa Gualberto - http://www.ambienteoffice.com.br
-
-
Suponha que essa sua planilha se chame 'Original'. Crie uma cópia (como valores) dela chamada 'Check'.
Use o código a seguir:
Sub Main() Dim wsOriginal As Excel.Worksheet Dim wsCheck As Excel.Worksheet Dim rCell As Excel.Range With ThisWorkbook Set wsOriginal = .Worksheets("Original") Set wsCheck = .Worksheets("Check") End With wsOriginal.Cells.Interior.ColorIndex = xlColorIndexNone For Each rCell In wsOriginal.UsedRange.SpecialCells(xlCellTypeConstants, 23) If rCell <> wsCheck.Range(rCell.Address) Then rCell.EntireRow.Interior.Color = RGB(255, 127, 127) End If Next rCell MsgBox "Check concluído!", vbInformation End Sub
Felipe Costa Gualberto - http://www.ambienteoffice.com.br
- Marcado como Resposta Kleber M Camon quarta-feira, 15 de abril de 2015 19:31
-