Fóruns
Microsoft Excel - 2...
Formulários
Formatação condicio...
 
Notifications
Clear all

Formatação condicional em textbox

 
Formulários
3 Posts
2 Usuários
0 Reactions
1,453 Visualizações
RSS
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

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()

If txts1.Value = "FORA DO PRAZO" Then

Me.txts1.BackColor = RGB(255, 0, 0)

Else:

Me.txts1.BackColor = RGB(0, 255, 0)

End If

End Sub

 
Postado : 29/08/2012 8:04 am
 Mikel Silveira Fraga
(@mikel-silveira-fraga)
Posts: 41
Trusted Member
 

wavelino, bom dia.

Meu amigo, para utilização do controle de decisões com mais de 2 situações, vc deve acrescentar o comando ElseIF.

Veja o código abaixo:

Private Sub TextBox1_Change()

    If Me.TextBox1.Value = "NO PRAZO" Then
        Me.TextBox1.BackColor = RGB(0, 255, 0)
    ElseIf Me.TextBox1.Value = "PENDENTE" Then
        Me.TextBox1.BackColor = RGB(255, 255, 0)
    ElseIf Me.TextBox1.Value = "FORA DO PRAZO" Then
        Me.TextBox1.BackColor = RGB(255, 0, 0)
    End If
    
End Sub

Veja se este código atende suas necessidades.

Abraços.

 
Postado : 31/08/2012 8:44 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Mikel Silveira Fraga, muito obrigado pela ajuda!

 
Postado : 31/08/2012 10:10 am
Forum Jump:
  Tópico Anterior
Próximo Tópico