Formatação condicional em textbox

Formulários

Post Recente por Fernando Fernandes 12 anos atrás

3 Posts

2 Usuários

0 Reactions

1,471 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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 29/08/2012 8:04 am

Mikel Silveira Fraga

(@mikel-silveira-fraga)

Posts: 41

Eminent 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.

Esclareceu suas dúvidas? Acrescente ao título do tópico a expressão: [RESOLVIDO].
Mikel Silveira Fraga
E-mail: [email protected]
Skype: mikelsf