Jump to content
dmslop

Mayor o Menor

Recommended Posts

Buenas Amigos...

ocupo acesoramiento ya que e cambiado muchas cosa y no le llego al problema... seria lo siguiente tengo 2 Textbox que jalan informacion desde una hoja de excel

el problema que tengo es que el textbox (Cantidad_en_comeca) es mayor al textbox (Stock_de_Seguridad) si es mayor deberia estar en verde el textbox y si en menor deberia estar en rojo

pero es todo lo contrario ejemplo 0,020 es mayor a 0,010 pero aun asi me marca en rojo donde deberia ser en verde

 

espero me pueda asesorar con este tema

Tintas.xlsm

Share this post


Link to post
Share on other sites

Hola @dmslop

Error de distracción...jajaja. Modificaste el nombre de los controles Textbox (en el formulario) y no en el código.

Va archivo modificado, por las dudas que lo necesites.

Prueba y comenta.

Que tengas una buena jornada!

Private Sub Cantidad_en_comeca_Change()
'Sheets("Envio de Correo").Range("D2").Value = Cantidad_en_comeca.Text
If Trim(Cantidad_en_comeca.Text) = "" Then
    Cantidad_en_comeca.BackColor = vbWhite
Else
    If Val(Stock_de_Seguridad.Value) > Val(Cantidad_en_comeca.Value) Then
        Cantidad_en_comeca.BackColor = &HFF& 'Color Rojo
        'MsgBox "Esta Codigo se Pedira Automatica Mente ya Que Esta Baja de Inventario"
        'Enviar_Correo = True
    ElseIf Val(Cantidad_en_comeca.Value) >= Val(Stock_de_Seguridad.Value) Then
        Cantidad_en_comeca.BackColor = &HFF00& 'Color verde
    Else
        'Cantidad_en_comeca.BackColor = vbWhite
    End If
End If
End Sub

 

ae20170222_tintas.xlsm

Share this post


Link to post
Share on other sites

aun nada amigo sigue en rojo

0,020 debe salir en verde ya que es mayor a 0,010

y los controles estaba bien ya que los textbox

(Stock_de_Seguridad.text),(Cantidad_en_comeca.text)

jalan la info de los textbox13,textbox14 que estan ocultos alfinal del form

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png