Colorear textbox con condicion

[Alfonso5597]

Hola, estimados amigos

De nuevo por aqui con un trabajo que me lleva todo el dia pero no doy con la formula, tengo varios tex que quiero rellenar dependiendo del valor de la venta, si vendo el 10 % que me indique el total en color rojo y asi sucesivamente hasta llegar al estimado que seria el 100 % en verde, he dejado dentro una breve explicacion, el trabajo esta funcionando, pero no lo hace como deberia, y no encuentro el error, por que ponga la cantidad que ponga, se llenan todos los text

Les agradezco su colaboracion

Cordiales saludos

prueba.xlsm

[silver_axe007]

Hola Alfonso5597

Es por esto que es importante los labels en los formularios asi podriamos entender a que va ... haber lo que entiendo quieres... que al poner en el text1 un valor que represente 

 

Bueno en el codigo preguntas esto  , pero la pregunta es ... en que momento le das el valor a TotalV???

Entiendo que primero deberias dar la suma.....

Private Sub CommandButton1_Click(): On Error Resume Next
If CDbl(TotalV.Text) >= CDbl(Previsto.Text / 10) Then TextBox1.BackColor = vbGreen
If CDbl(TotalV.Text) >= CDbl(Previsto.Text / 20) Then TextBox2.BackColor = &H80FF80
If CDbl(TotalV.Text) >= CDbl(Previsto.Text / 30) Then TextBox3.BackColor = vbYellow
If CDbl(TotalV.Text) >= CDbl(Previsto.Text / 40) Then TextBox4.BackColor = &H80C0FF
If CDbl(TotalV.Text) >= CDbl(Previsto.Text / 50) Then TextBox5.BackColor = &H80C0FF
If CDbl(TotalV.Text) >= CDbl(Previsto.Text / 60) Then TextBox6.BackColor = &H80FF&
If CDbl(TotalV.Text) >= CDbl(Previsto.Text / 70) Then TextBox7.BackColor = &H80FF&
If CDbl(TotalV.Text) >= CDbl(Previsto.Text / 80) Then TextBox8.BackColor = vbRed
If CDbl(TotalV.Text) >= CDbl(Previsto.Text / 90) Then TextBox9.BackColor = vbRed
If CDbl(TotalV.Text) >= CDbl(Previsto.Text / 100) Then TextBox10.BackColor = vbRed
End Sub

Yo te recomiendo inicializar a 0 los text box y luego revisar una auna .. las validaciones.... 

No entiendo lo que quieres hacer pero ... espero te ayude.

 

Private Sub CommandButton1_Click(): On Error Resume Next
TotalV.Text = CDbl(TextBox1.Text) + CDbl(TextBox2.Text) + CDbl(TextBox3.Text) + CDbl(TextBox4.Text) + CDbl(TextBox5.Text) + CDbl(TextBox6.Text)
TotalV.Text = CDbl(TotalV.Text) + CDbl(TextBox7.Text) + CDbl(TextBox8.Text) + CDbl(TextBox9.Text) + CDbl(TextBox10.Text)
If CDbl(TotalV.Text) >= CDbl(Previsto.Text / 10) Then TextBox1.BackColor = vbGreen
If CDbl(TotalV.Text) >= CDbl(Previsto.Text / 20) Then TextBox2.BackColor = &H80FF80
If CDbl(TotalV.Text) >= CDbl(Previsto.Text / 30) Then TextBox3.BackColor = vbYellow
If CDbl(TotalV.Text) >= CDbl(Previsto.Text / 40) Then TextBox4.BackColor = &H80C0FF
If CDbl(TotalV.Text) >= CDbl(Previsto.Text / 50) Then TextBox5.BackColor = &H80C0FF
If CDbl(TotalV.Text) >= CDbl(Previsto.Text / 60) Then TextBox6.BackColor = &H80FF&
If CDbl(TotalV.Text) >= CDbl(Previsto.Text / 70) Then TextBox7.BackColor = &H80FF&
If CDbl(TotalV.Text) >= CDbl(Previsto.Text / 80) Then TextBox8.BackColor = vbRed
If CDbl(TotalV.Text) >= CDbl(Previsto.Text / 90) Then TextBox9.BackColor = vbRed
If CDbl(TotalV.Text) >= CDbl(Previsto.Text / 100) Then TextBox10.BackColor = vbRed
End Sub

 

[Alfonso5597]

Hola amigo silver muchas gracias por tu ayuda, quiza no me haya explicado bien, el valor total de TotalV es la cantidad de ganancias de la venta, que aparece automaticamente y el tex Previsto es lo que yo estimo que tengo que ganar, entonces dependiendo de la cantidad, se rellenan los tex indicando si me acerco o no al estipulado, y la cantidad varia en un 10% por color, ejemplo si estimo vender 10000 euros al dia y vendo 2000 solo se rellenan dos texbox en rojo, y asi sucesivamente hasta llegar a la ganancia estipulada y estarian todos " encendidos" seria algo similar a una barra de progreso pero a color

[Antoni]

Si no es esto, explícate con un ejemplo mas completo.

prueba (1).xlsm

[Alfonso5597]

Hace 43 minutos , Antoni dijo:

Si no es esto, explícate con un ejemplo mas completo.

prueba (1).xlsm 22 kB · 1 download

Hola amigo Antoni, te agradezco tu ayuda, me explicare mejor, tengo 10 textbox a rellenar con el valor X, el Previsto, y el TotalV es el dinero de las ventas. de forma que conforme valla haciendo mas ventas y alcance el valor estipulado ( Previsto ) se rellene el text 1,  para indicarme que he conseguido las ventas previstas, esto quedaria como una barra de progreso pero a color y cada barra significaria un 10 % de ventas, el valor Previsto siempre sera X, igual 2000 que poner 10000, muchas gracias por tu ayuda, estoy probando y no consigo que me funcione bien

Saludos

[Alfonso5597]

Hace 18 minutos , Alfonso5597 dijo:

Hola amigo Antoni, te agradezco tu ayuda, me explicare mejor, tengo 10 textbox a rellenar con el valor X, el Previsto, y el TotalV es el dinero de las ventas. de forma que conforme valla haciendo mas ventas y alcance el valor estipulado ( Previsto ) se rellene el text 1,  para indicarme que he conseguido las ventas previstas, esto quedaria como una barra de progreso pero a color y cada barra significaria un 10 % de ventas, el valor Previsto siempre sera X, igual 2000 que poner 10000, muchas gracias por tu ayuda, estoy probando y no consigo que me funcione bien, te dejo el libro con una breve expicacion dentro, gracias de nuevo

Saludos

 

prueba (1).xlsm

[tierra_pampa]

Hola @Alfonso5597

Prueba y comenta.
Buen Domingo!

Private Sub CommandButton1_Click(): On Error Resume Next
If CDbl(TotalV.Text) >= CDbl(Previsto.Text * 0.1) Then TextBox1.BackColor = vbGreen
If CDbl(TotalV.Text) >= CDbl(Previsto.Text * 0.2) Then TextBox2.BackColor = &H80FF80
If CDbl(TotalV.Text) >= CDbl(Previsto.Text * 0.3) Then TextBox3.BackColor = vbYellow
If CDbl(TotalV.Text) >= CDbl(Previsto.Text * 0.4) Then TextBox4.BackColor = &H80C0FF
If CDbl(TotalV.Text) >= CDbl(Previsto.Text * 0.5) Then TextBox5.BackColor = &H80C0FF
If CDbl(TotalV.Text) >= CDbl(Previsto.Text * 0.6) Then TextBox6.BackColor = &H80FF&
If CDbl(TotalV.Text) >= CDbl(Previsto.Text * 0.7) Then TextBox7.BackColor = &H80FF&
If CDbl(TotalV.Text) >= CDbl(Previsto.Text * 0.8) Then TextBox8.BackColor = vbRed
If CDbl(TotalV.Text) >= CDbl(Previsto.Text * 0.9) Then TextBox9.BackColor = vbRed
If CDbl(TotalV.Text) >= CDbl(Previsto.Text * 1) Then TextBox10.BackColor = vbRed
End Sub

 

[tierra_pampa]

@Alfonso5597

Leyendo nuevamente tu pedido, creo que lo hice exactamente al revés...?

Private Sub CommandButton1_Click(): On Error Resume Next
If CDbl(TotalV.Text) >= CDbl(Previsto.Text * 1) Then TextBox1.BackColor = vbGreen: TextBox1.Text = Previsto.Text * 1
If CDbl(TotalV.Text) >= CDbl(Previsto.Text * 0.9) Then TextBox2.BackColor = &H80FF80: TextBox2.Text = Previsto.Text * 0.9
If CDbl(TotalV.Text) >= CDbl(Previsto.Text * 0.8) Then TextBox3.BackColor = vbYellow: TextBox3.Text = Previsto.Text * 0.8
If CDbl(TotalV.Text) >= CDbl(Previsto.Text * 0.7) Then TextBox4.BackColor = &H80C0FF: TextBox4.Text = Previsto.Text * 0.7
If CDbl(TotalV.Text) >= CDbl(Previsto.Text * 0.6) Then TextBox5.BackColor = &H80C0FF: TextBox5.Text = Previsto.Text * 0.6
If CDbl(TotalV.Text) >= CDbl(Previsto.Text * 0.5) Then TextBox6.BackColor = &H80FF&: TextBox6.Text = Previsto.Text * 0.5
If CDbl(TotalV.Text) >= CDbl(Previsto.Text * 0.4) Then TextBox7.BackColor = &H80FF&: TextBox7.Text = Previsto.Text * 0.4
If CDbl(TotalV.Text) >= CDbl(Previsto.Text * 0.3) Then TextBox8.BackColor = vbRed: TextBox8.Text = Previsto.Text * 0.3
If CDbl(TotalV.Text) >= CDbl(Previsto.Text * 0.2) Then TextBox9.BackColor = vbRed: TextBox9.Text = Previsto.Text * 0.2
If CDbl(TotalV.Text) >= CDbl(Previsto.Text * 0.1) Then TextBox10.BackColor = vbRed: TextBox10.Text = Previsto.Text * 0.1
End Sub

Prueba así >

 

[Alfonso5597]

Muchas gracias por tu ayuda amigo Tierra_Pampa, eso es justo lo que necesitaba, ahora me encuentro con un problema, al cambiar la cantidad de textbox " encendidos " ya no puedo " apagarlos " si cambio el valor de la venta por uno menor, creo que podre solucionarlo con un

TextBox10.BackColor = vbWhite

 al empezar el proceso, Muchas gracias de nuevo

Saludos

[Alfonso5597]

Muchas gracias amigo Antoni y Tierra Pampa por vuestro trabajo, os agradezco vuestra ayuda, ya he hecho las pruebas y me funciona perfectamente, un cordial saludo a los dos

Tema solucionado

[tierra_pampa]

Hace 4 horas, Alfonso5597 dijo:

ahora me encuentro con un problema, al cambiar la cantidad de textbox " encendidos " ya no puedo " apagarlos " si cambio el valor de la venta por uno menor

Podría ser algo así (al hacer click en e botón) >

Private Sub CommandButton1_Click(): On Error Resume Next
For i = 1 To 10
    Me.Controls("TextBox" & i).BackColor = &HFFFFFF
Next i
If CDbl(TotalV.Text) >= CDbl(Previsto.Text * 1) Then TextBox1.BackColor = vbGreen
If CDbl(TotalV.Text) >= CDbl(Previsto.Text * 0.9) Then TextBox2.BackColor = &H80FF80
If CDbl(TotalV.Text) >= CDbl(Previsto.Text * 0.8) Then TextBox3.BackColor = vbYellow
If CDbl(TotalV.Text) >= CDbl(Previsto.Text * 0.7) Then TextBox4.BackColor = &H80C0FF
If CDbl(TotalV.Text) >= CDbl(Previsto.Text * 0.6) Then TextBox5.BackColor = &H80C0FF
If CDbl(TotalV.Text) >= CDbl(Previsto.Text * 0.5) Then TextBox6.BackColor = &H80FF&
If CDbl(TotalV.Text) >= CDbl(Previsto.Text * 0.4) Then TextBox7.BackColor = &H80FF&
If CDbl(TotalV.Text) >= CDbl(Previsto.Text * 0.3) Then TextBox8.BackColor = vbRed
If CDbl(TotalV.Text) >= CDbl(Previsto.Text * 0.2) Then TextBox9.BackColor = vbRed
If CDbl(TotalV.Text) >= CDbl(Previsto.Text * 0.1) Then TextBox10.BackColor = vbRed
End Sub

Suerte!

 

[Alfonso5597]

Esa es la solucion que le he dado, primero he borrado el texto y luego lo he dejado en color blanco, he dado con ella despues de algunas pruebas