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 |
Inline image 2

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


Nenhum comentário:

Postar um comentário

diHITT - Notícias