Ayuda con codigo

[alfonso5597]

Hola amigos, espero que me puedan ayudar con este codigo, el problema es que no me funciona como debería, cuando es stock es menor de 5, cambia a rojo, pero si es mayor, no me funciona, no cambia...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Leopoldo Blancas]

Sin archivo no hay magia...!!!

 

[Erik Lopez]

Hola amigos, espero que me puedan ayudar con este codigo, el problema es que no me funciona como debería, cuando es stock es menor de 5, cambia a...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[JasallBcn]

Dale la vuelta , evalua primero

Stock.Text >= Minimo.Text

saludos

 

[Macro Antonio]

Private Sub StockMinimo()
If CDbl(Stock.Text) < CDbl(Minimo.Text) Then
   IngresarApunte.BackColor = vbRed
   IngresarApunte.Caption = "No tiene suficiente stock"
Else...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[alfonso5597]

Adjunta el archivo ejemplo
pero puedes comenzar con cambiar la linea

ElseIf Stock.Text >= Minimo.Text Then
por
ElseIf Stock.Text > Minimo.Text...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[alfonso5597]

Hola Antoni, tu codigo me da error
CDbl(Stock.Text) < CDbl(Minimo.Text)
Le he quitado CDbl y no lo da, pero no hace su trabajo
Gracias por tu...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Leopoldo Blancas]

Sin archivo no hay magia...!!!

 

[Macro Antonio]

Hola Antoni, tu codigo me da error
CDbl(Stock.Text) < CDbl(Minimo.Text)
Le he quitado CDbl y...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[alfonso5597]

Hola Antoni, ya lo he solucionado, parece ser que se bloqueaban entre ellos, los he puesto cada uno por separado en su text y funciona de fabula
Gracias por tu ayuda