Validar Textbox para que no esten en blanco
Tengo un formulario con textbox que sirven para introducir datos a una hoja excel y quisiera saber una macro que al momento de grabarlos a la hoja, evalúe que ningún textbox este vacio si lo hay que arroje un mensaje indicando que faltan llenar registros.
3 Respuestas
Respuesta de Joaom Manuel
1
De Adriel Ortiz
Sub Vacio() Por: Adriel Ortiz For Each Control In Controls If TypeName(Control) = "TextBox" Then If Control.Value = "" Then Control.SetFocus 'Devuelve el focu al 1º TextBox que este vacio MsgBox "Inserta los datos en todos TextBox" Exit Sub End If End If Next End Sub Private Sub CommandButton1_Click() 'Botón de validacion Call Vacio End Sub
Respuesta de Adriel Ortiz Mangia
1
H o l a
Te paso 2 opciones
1.-Cambia los nombres de los textbox por el tuyo
If TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Then MsgBox "captura todos los datos" Exit Sub End If
2.- pero si son varios textbox, validamos de una sola.
For Each Control In Controls If TypeName(Control) = "TextBox" Then If Control.Value = "" Then MsgBox "captura todos los datos" Exit Sub End If End If
Para finalizar hay 2 opciones Excelente o buena para finalizar saludos!
ah solo faltó agregar el next al final
macro corregida
For Each Control In Controls If TypeName(Control) = "TextBox" Then If Control.Value = "" Then MsgBox "captura todos los datos" Exit Sub End If End If Next
Respuesta de Elsa Matilde
1
Como la macro de Adriel presenta fallas te la paso correctamente:
Sub botonGuardar() For Each Control In Controls If TypeName(Control) = "TextBox" Then If Control.Value = "" Then MsgBox "captura todos los datos" Exit Sub End If End If Next End Sub
Por supuesto que tendrás que colocarla en tu botón de guardado, mi nombre 'botonGuardar' es solo de ejemplo.