VBA Excel - Colorindo toda uma linha a partir de um parâmetro numa coluna - Color Entirerow based on a column's value

| Blog Office VBA | Blog Excel | Blog Access |

Depois de termos preenchido uma certa área com resultados processados, ou termos conectado nossa planilha em uma base de dados, podemos propiciar que esta área seja destaca pela aplicação da funcionalidade abaixo.

A partir de um parâmetro qualquer (neste caso na coluna P), podemos definir o destaque de toda uma Linha.

Private Sub Worksheet_Change(ByVal Target As Range)

'Error Handling

On Error Resume Next

    'Check only, if the change happens in Column P.

    If Left(Target.Address(0, 0), 1) = "P" Then

        'Check if selected value changed to Active

        If UCase(Target.Value) = "ACTIVE" Then

            'If Active is selected in drop down list,

            'Row color will change to green.

            Target.EntireRow.Font.Color = RGB(0, 102, 0)

            

        'Check if selected value changed to Deactive

        ElseIf UCase(Target.Value) = "DEACTIVE" Then

            'If Deactive is selected in drop down list,

            'Row color will change to red.

            Target.EntireRow.Font.Color = vbRed

            

        'Check if it's something else than Active or Deactive

        '(Not possible but have been put for validation sake.

        Else

            Target.EntireRow.Font.Color = vbBlack

        End If

    End If

'Turn off Error Handling

On Error GoTo 0

End Sub

Reference:

Tags: VBA, Excel, entirerow, color, column, value, Data Validation, Event Macro, Queries and Solutions