Donizetti,

deve utilizar o Office2003.
Na realidade, consegu atribuir 4 condições.

Com o Office2007, não haveria problema.

Já com o 2003, se quiser mais que 4 condicionais, há solução através de macro.

Bom dia Edson

Por acaso você tem alguma coisa pra estar me enviando???

Obrigado.

Ps.: Vou ver se consigo o Office 2007

Se puder ser com VBA e supondo que seja digitado o STATUS na coluna G:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 7 Then
Exit Sub
Else
stat = Target.Value
lin = Target.Row
Select Case stat
Case "C"
Range("A" & lin & ":Z" & lin).Interior.ColorIndex = 4
Case "B"
Range("A" & lin & ":Z" & lin).Interior.ColorIndex = 15
Case "P"
Range("A" & lin & ":Z" & lin).Interior.ColorIndex = 6
Case "ER"
Range("A" & lin & ":Z" & lin).Interior.ColorIndex = 44
Case "RR"
Range("A" & lin & ":Z" & lin).Interior.ColorIndex = 8
End Select
End If

End Sub

Muito boa Edson!!!

Edson, valeu pela ajuda, a condição deu certo. Show....

Obs: Só para complementar acrescentei uma linha devido a minha necessidade:

Case ""
Range("A" & lin & ":Z" & lin).Interior.ColorIndex = xlNone

Pois quando a pessoa deletar a opção as Colunas voltam a ficar em Branco..

Obrigado...

É isso aí, Donizetti! Bem corrigido!

Prezados,

Estou tentando adaptar a macro a uma planilha que estou desenvolvendo e alterei o status para minha necessidade, porém, preciso q entre outra variável e preciso de ajuda.

A minha coluna de status fica em F.
Quando o status é "pendente", preciso q a cor seja alterada de acordo com a data corrente, ou seja, se o status é "pendente" mas a data q tenho na coluna C for maior do q hoje(), a cor da linha deve ficar VERDE, caso contrário, a cor da linha deve ficar VERMELHA.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column <> 6 Then
Exit Sub
Else
stat = Target.Value
lin = Target.Row
Select Case stat
Case "pendente"
Range("A" & lin & ":F" & lin).Interior.ColorIndex = 4
Case "quitada"
Range("A" & lin & ":F" & lin).Interior.ColorIndex = 15
Case "cancelada"
Range("A" & lin & ":F" & lin).Interior.ColorIndex = 15
Case ""
Range("A" & lin & ":F" & lin).Interior.ColorIndex = xlNone
End Select
End If

End Sub

Olá pessoal, Preciso da ajuda de vocês,

Não estou conseguindo fazer a rotina abaixo funcionar como eu quero.
Tenho 3 textbox que lêem dados de um planilha

txts1.text
txts2.text
txts3.text

As três representam Status de atendimento. Se qualquer uma delas for igual a "FORA DO PRAZO" tem que ficar com pintada de vermelho. "NO PRAZO" verde e "PENDENTE" amarelo.

Só consegui fazer funcionar com duas condições e em uma única textbox, nas outras o código não funcionou e não consigo fazer o evento ser "onload"
Sou iniciante no vba e gostaria muito do apoio de vocês.

Segue código:

Private Sub txts1_Change()

End Sub

Boa tarde!!

Donizetti Siqueira, lembre se de marcar sua postagem como resolvida!!
Veja em:
viewtopic.php?f=7&t=3784

wavelino, seria conveniente abrir seu próprio tópico!!!

Att