Boa noite Laerte,
Ontem fiz Upload do arquivo.
Tem algum macete ou basta fazer o upload e depois clicar em responder???
Vou fazer novamente
Amigo,
Consegui o que queria.
Incluí o carregamento dos valores com o Format, dentro do segundo IF do código que vc mandou e deu certo.
Ou seja, primeiro vc tem que carregar o Textbox pra depois ele analisar a condição de ser ou não maior que zero.
Precisei tb limpar o vermelho no início do primeiro IF, senão sempre que um label ficar vermelho, na próxima consulta ele fica vermelho de novo independent se for positivo ou negativo.
Veja como ficou o código:
Function Carrega_Valores()
Dim Obj As Control
For Each Obj In Me.Controls
If TypeName(Obj) = "TextBox" Then
Obj.ForeColor = &H80000012
TextBox1 = Format(Planilha1.Cells(2, COL).Value, "R$ #,##0;-R$ #,##0"
TextBox2 = Format(Planilha1.Cells(3, COL).Value, "R$ #,##0;-R$ #,##0"
TextBox3 = Format(Planilha1.Cells(4, COL).Value, "R$ #,##0;-R$ #,##0"
TextBox4 = Format(Planilha1.Cells(5, COL).Value, "R$ #,##0;-R$ #,##0"
TextBox5 = Format(Planilha1.Cells(6, COL).Value, "R$ #,##0;-R$ #,##0"
TextBox6 = Format(Planilha1.Cells(7, COL).Value, "R$ #,##0;-R$ #,##0"
If Obj.Text < "0" Then
Obj.ForeColor = &HFF&
End If
End If
Next
End Function
Obrigado. Sua ajuda foi fundamental.
Abs