Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Mudar cor da textbo...
 
Notifications
Clear all

Mudar cor da textbox após comparação

 
2024 - VBA & Macros
10 Posts
2 Usuários
0 Reactions
1,582 Visualizações
RSS
 Luisrod
(@luisrod)
Posts: 19
Active Member
Topic starter
 

Boa tarde pessoal, preciso de ajuda, preciso mudar a cor da textbox após uma comparação, já tentei colocar o código abaixo dentro da USERFORM_INITIALIZE() mas não funciona, pois NESSA USERFORME só estou chamando valores da planilha para a textbox.
* CODIGO QUE PRECISO USAR (CASO TENHAM IDÉIA MELHOR ESTOU ACEITANDO HEHE)
'guardar os numeros digitados
Dim Valor3, Valor2 As Integer

'Atribuição dos valores
Valor3 = TextBox3.Text
Valor4 = TextBox4.Text

'Compara entre os valores
If Valor3 < Valor4 Then

TextBox3.ForeColor = &HFF& 'Campo recebe a cor desejada

End If

*MINHA SUBUSERFORM_INITIALIZE()
Private Sub UserForm_Initialize()
TextBox3.Text = Plan2.Range("D16").Value
TextBox4.Text = Plan2.Range("E13").Value
End Sub

Agradeço a atenção.

 
Postado : 23/01/2015 11:48 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!

Já tentou, algo assim?

.BackColor = vbRed

Att

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

 
Postado : 23/01/2015 12:04 pm
 Luisrod
(@luisrod)
Posts: 19
Active Member
Topic starter
 

mas preciso fazer a comparação entre textbox.

 
Postado : 23/01/2015 12:09 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Tem explicar o que você exatamente deseja?

Tem como postar seu arquivo modelo com o que já tem pronto?

Att

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

 
Postado : 23/01/2015 12:11 pm
 Luisrod
(@luisrod)
Posts: 19
Active Member
Topic starter
 

Comparar entre texbox e a que for menor colorir de vermelho.
https://mega.co.nz/#!uVx01ITJ!CSzcn_okY ... j_fNBQRdCc

 
Postado : 23/01/2015 12:49 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!

Eu não tenho permissão para acessar o link

Private Sub CommandButton1_Click()
    If TextBox1.Value > TextBox2.Value Then
        TextBox2.BackColor = vbRed
    ElseIf TextBox1.Value < TextBox2.Value Then
        TextBox1.BackColor = vbRed
    End If
End Sub

Veja se ajuda.

Att

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

 
Postado : 23/01/2015 1:12 pm
 Luisrod
(@luisrod)
Posts: 19
Active Member
Topic starter
 

Não deu certo, segue o código que já tenho
'***********************************************************
'guardar os numeros digitados
''Dim Valor3, Valor2 As Integer

'Atribuição dos valores
''Valor3 = TextBox3.Text
''valor4 = TextBox4.Text

'Compara entre os valores
''If Valor3 < valor4 Then

''TextBox3.ForeColor = &HFF& 'Campo recebe a cor desejada

''End If

TextBox3.Text = Plan2.Range("A4").Value
TextBox4.Text = Plan2.Range("B4").Value

 
Postado : 23/01/2015 1:25 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Desculpe, eu não faço ideia do que você deseja.

Poste seu arquivo modelo!!!

Att

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

 
Postado : 23/01/2015 1:30 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Veja se isso ajuda..

Private Sub CommandButton1_Click()
    If CSng(TextBox3.Value) > CSng(TextBox4.Value) Then
        TextBox4.BackColor = vbRed
    ElseIf CSng(TextBox3.Value) < CSng(TextBox4.Value) Then
        TextBox3.BackColor = vbRed
    Else: Exit Sub
    End If
End Sub
Private Sub UserForm_Initialize()
    TextBox3.Text = Plan2.Range("D16").Value
    TextBox4.Text = Plan2.Range("E13").Value
End Sub

Att

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

 
Postado : 23/01/2015 2:09 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Uma possibilidade, note que primeiro e carregado o valor nas textbox's e depois a comparação

Private Sub UserForm_Initialize()

TextBox3.Text = Plan2.Range("A4").Value
TextBox4.Text = Plan2.Range("B4").Value


If TextBox3.Text * 1 < TextBox4.Text * 1 Then
    TextBox3.ForeColor = &HFF&
ElseIf TextBox4.Text * 1 < TextBox3.Text * 1 Then
    TextBox4.ForeColor = &HFF&
End If

End Sub

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

 
Postado : 23/01/2015 2:18 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico