Como hacer Userforms con textbox obligatorios
Tengo una macro con varios userforms y en cada uno hay varios textbox y un botoncomando para aceptar, programe cada macro para registrar los datos que se ingresan mediante las textbox en celdas y libros específicos. El problema es que si alguno de los textbox queda vacío la userform igual deja avanzar al presionar el botón de aceptar lo que deseo es que cada textbox sea obligatorio de llenar con datos. A parte quiero fijar para cada textbox un tipo de variable especifico por ejemplo para el textbox1 solo acepta datos de texto, para el textbox2 solo datos numéricos, para el textbox3 solo datos de fecha, etc.
1 respuesta
Respuesta de Dante Amor
2
Una opción es poner las validaciones en el commandbutton.
Por ejemplo:
Private Sub CommandButton1_Click() 'Validaciones If TextBox1.Value = "" Then MsgBox "Captura un texto en el textbox1" TextBox1.SetFocus Exit Sub End If txt1 = TextBox1.Value For i = 1 To Len(txt1) If IsNumeric(Mid(txt1, i, 1)) Then MsgBox "Sólo se permiten letras en el textbox1" TextBox1.SetFocus Exit Sub End If Next ' If TextBox2.Value = "" Or Not IsNumeric(TextBox2.Value) Then MsgBox "Captura un valor en el textbox2" TextBox2.SetFocus Exit Sub End If ' If TextBox3.Value = "" Or Not IsDate(TextBox3.Value) Then MsgBox "Captura una fecha en el textbox3" TextBox3.SetFocus Exit Sub End If ' ' 'aquí debe continuar tu código ' ' End Sub
'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. '.[Avísame cualquier duda
