Habilitar botón de Formulario al escribir en un TextBox en Excel vba

image

Para este artículo / video les mostraré una macro de Excel usada en un formulario que nos habilitará un botón para ejecutar otra macro, siempre  y cuando hayamos ingresado un texto en un control de tipo TextBox.

Objetivo

La finalidad de dicha macro es evitar que se ejecute una macro si no hemos ingresado algún texto. Los usos que le podemos dar a la macro son los siguientes:

  • Evitar que se guarden valores vacío en alguna tabla o base de datos.
  • No continuar con algún proceso habiendo valores en blanco.
  • Ahorrarnos los mensajes de aviso, sino simplemente no poder presionar el botón.

Habilitar botón en Excel

Figura 1. En animación veremos cómo se habilita el botón Mostrar sólo cuando ingresamos un texto en la Caja de texto.

Código de la macro vba

Ubicación: UserForm2

'---------------------------------------------------------------------------------------
' Module    : UserForm2
' Author    : scampos
' Date      : 10/12/2015
' Web       : https://www.exceleinfo.com
' Youtube   : https://www.youtube.com/user/sergioacamposh
'---------------------------------------------------------------------------------------
'
'Con el evento Click se ejecutará un MsgBox mostrando el valor
'del TextBox
'
Private Sub btnMostrar_Click()

    MsgBox Me.txtNombre.Value

End Sub
'
'Al lanzarse el evento Change se analizará si el valor del TextBox es vacío.
'Si el valor no es vacío entonces el botón se habilitará.
'
Private Sub txtNombre_Change()

    If Me.txtNombre.Value <> "" Then
        Me.btnMostrar.Enabled = True
    Else
        Me.btnMostrar.Enabled = False
    End If

End Sub

Video tutorial

Anexos

:: Descarga Habilitar botón hasta escribir texto.rar

You may also like...

  • JoaoM

    En La exposicion no mencionas que en las propiedades del Botón tien que colocar la Enabled en False

    • Tienes razón. Gracias por la anotación.

      • JoaoM

        Me di cuenta al copi-pega del codigo y el boton ya aparecia true al abrir el form.

        Sin importancia, todos nos equivocamos, Dios se equivoco a nombrar el diablo para su dicipulo