Anónimo
¿Verificar datos en un formulario en excel?
Buenas Expertos
Me pueden colaborar con un código de programación en VBA en Excel el cual me advierta mediante un mensaje de que falte llenar algún dato en un formulario, y NO permita guardar los datos hasta que NO se llene el formulario por completo al pulsar el botón guardar.
'Tengo este codigo del formulario
Private Sub Cmdguardar_Click()
Sheets("hoja1").Select
Range("C11").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell = Txtnombre
ActiveCell.Offset(0, 1).Select
ActiveCell = Txtpapellido
ActiveCell.Offset(0, 1).Select
ActiveCell = Txtsapellido
ActiveCell.Offset(0, 1).Select
'El codigo que verifica si se ingreso el dato del nombre es este
'Verifica que se ingrese un nombre
If Trim(Me.Txtnombre.Value) = "" Then
Me.Txtnombre.SetFocus
MsgBox "Debe Ingresar un Nombre"
Exit Sub
End If
Txtnombre = Empty
Txtpapellico = Empty
Txtsapellido = Empty
End
De antemano agradezco su colaboración
Me pueden colaborar con un código de programación en VBA en Excel el cual me advierta mediante un mensaje de que falte llenar algún dato en un formulario, y NO permita guardar los datos hasta que NO se llene el formulario por completo al pulsar el botón guardar.
'Tengo este codigo del formulario
Private Sub Cmdguardar_Click()
Sheets("hoja1").Select
Range("C11").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell = Txtnombre
ActiveCell.Offset(0, 1).Select
ActiveCell = Txtpapellido
ActiveCell.Offset(0, 1).Select
ActiveCell = Txtsapellido
ActiveCell.Offset(0, 1).Select
'El codigo que verifica si se ingreso el dato del nombre es este
'Verifica que se ingrese un nombre
If Trim(Me.Txtnombre.Value) = "" Then
Me.Txtnombre.SetFocus
MsgBox "Debe Ingresar un Nombre"
Exit Sub
End If
Txtnombre = Empty
Txtpapellico = Empty
Txtsapellido = Empty
End
De antemano agradezco su colaboración
1 respuesta
Respuesta de calvuch
1
Pruba esto
Private Sub Cmdguardar_Click()
Sheets("hoja1").Select
Range("C11").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Trim(Txtnombre) = "" Or Trim(Txtpapellido) = "" Or Trim(Txtsapellido) = "" Then
Me.Txtnombre.SetFocus
MsgBox "Todos los datos son requeridos", vbCritical, "Faltan Datos"
Exit Sub
End If
ActiveCell = Txtnombre
ActiveCell.Offset(0, 1).Select
ActiveCell = Txtpapellido
ActiveCell.Offset(0, 1).Select
ActiveCell = Txtsapellido
ActiveCell.Offset(0, 1).Select
Txtnombre = Empty
Txtpapellido = Empty
Txtsapellido = Empty
End Sub
Private Sub Cmdguardar_Click()
Sheets("hoja1").Select
Range("C11").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Trim(Txtnombre) = "" Or Trim(Txtpapellido) = "" Or Trim(Txtsapellido) = "" Then
Me.Txtnombre.SetFocus
MsgBox "Todos los datos son requeridos", vbCritical, "Faltan Datos"
Exit Sub
End If
ActiveCell = Txtnombre
ActiveCell.Offset(0, 1).Select
ActiveCell = Txtpapellido
ActiveCell.Offset(0, 1).Select
ActiveCell = Txtsapellido
ActiveCell.Offset(0, 1).Select
Txtnombre = Empty
Txtpapellido = Empty
Txtsapellido = Empty
End Sub
Gracias por tu colaboración funciona bien me piden todos los datos, ¿pero ahora no me deja guardar los datos que será?
"Una persona sin amigos es como si viviera en el desierto."
Yo tenía un error en uno de los nombre Txt ya solucione gracias por tu respuesta me sirvió mucho
Yo tenía un error en uno de los nombre Txt ya solucione gracias por tu respuesta me sirvió mucho