EJECUTAR MACRO EN TEXTBOX CON CONDICION

[FELIX]

Hola Estimados

Hay alguna macro que se aplique a un textbox (sin tener boton), que al tener una condición se ejecute?, se trata de lo siguiente, tengo un textbox1 que al tener las descripciones de:

MADERA

CARTON

PAPEL

sea invisible o inactivo el textbox2

y si es ACERO el textbox sea visible o activo

Agradecere de su apoyo

Slds.

FELIX

 

 

 

textbox condicionado.xlsm

[Gerson Pineda]

Felix

Prueba asi

Private Sub TextBox1_Change()
On Error Resume Next
    vt = VBA.UCase(Me.TextBox1)
    If vt = "ACERO" Then
        Me.TextBox2.Visible = True
    Else
        Me.TextBox2.Visible = False
    End If
On Error GoTo 0
End Sub

Private Sub UserForm_Initialize()
    Me.TextBox2.Visible = False
End Sub

 

Saludos 

[Enigma25]

Otra forma :

Option Explicit
Private Sub TextBox1_Change()
    TextBox2.Visible = False
    Select Case TextBox1
        Case ""
            TextBox2.Visible = False
        Case "MADERA"
            TextBox2.Visible = False
        Case "CARTON"
            TextBox2.Visible = False
        Case "PAPEL"
            TextBox2.Visible = False
        Case "ACERO"
            TextBox2.Visible = True
    End Select

End Sub
Private Sub UserForm_Initialize()
    TextBox2.Visible = False
End Sub

Saludos.