¿Como hago para crear un intervalo de > y < "que" condicionado en un Textbox?
Al ingresar el valor en un Textbox, necesito que en otro me arroje un formato condicional en otro de acuerdo a un rango establecido. He intentado con el siguiente código pero no me funciona:
If TextBox12 < 20 Then
TextBox27 = "Bajo"
Else
If TextBox12 > 20 & TextBox12 < 41 Then
TextBox27 = "Adecuado"
Else
If TextBox12 > 41 & TextBox12 < 75 Then
TextBox27 = "Alto"
Else
If TextBox12 > 75 Then
TextBox27 = "Exceso"
Else
If TextBox12 = "" Then
TextBox27 = ""
End If
End If
End If
End If
End If
1 respuesta
Respuesta de James Bond
2
Prueba con este codigo
Private Sub TextBox1_AfterUpdate() Select Case TextBox1 Case Is < 20: TextBox2 = "bajo": TextBox2.BackColor = RGB(0, 255, 255) Case 20 To 41: TextBox2 = "adecuado": TextBox2.BackColor = RGB(0, 0, 255) Case 42 To 75: TextBox2 = "alto": TextBox2.BackColor = RGB(0, 255, 0) Case Is > 75: TextBox2 = "exceso": TextBox2.BackColor = RGB(255, 0, 0) End Select End Sub
Me funciona perfectamente, ahora quisiera saber si no tengo ningún dato en el Textbox1 como hago para que en el Textbox2 no diga "Exceso" y el color sea blanco
¡Gracias!
Usa esta macro
Private Sub TextBox1_AfterUpdate() Select Case TextBox1 Case Empty: TextBox2 = "": TextBox2.BackColor = RGB(255, 255, 255) Case 0: TextBox2 = "": TextBox2.BackColor = RGB(255, 255, 255) Case Is < 20: TextBox2 = "bajo": TextBox2.BackColor = RGB(0, 255, 255) Case 20 To 41: TextBox2 = "adecuado": TextBox2.BackColor = RGB(0, 0, 255) Case 42 To 75: TextBox2 = "alto": TextBox2.BackColor = RGB(0, 255, 0) Case Is > 75: TextBox2 = "exceso": TextBox2.BackColor = RGB(255, 0, 0) End Select End Sub
