Desplegar MsgBox con información de celdas vacías
Hola buen dia, mi duda es la siguiente:
como hago para desplegar en un MsgBox, un pequeño mensaje a mandera información y pregunta, que este MsgBox aparezca bajo los siguientes criterios.
ejemplo:
..........A..................B.............C................D
1.NOMBRE:.. ...RAMON......................................
2.....................................APELLIDO:...................
3.EDAD:...........30...............................................
4.DOMICILIO.......................................................
5.NUMERO:......500 PTE.....................................
Como se puede ver en este ejemplo de tabla de excel se ve que en la celda D2, falta la información del apellido, y en la celda B4 falta la información del domicilio, entonces en esta misma hoja yo tengo un botón que me guarda estos datos en otra hoja, lo que quiero es que esta misma macro antes de guardar la información en la otra hoja, me desplique un MsgBox que me diga, algo asi como "Estas seguro de guardar la información", "Aun no has capturado los siguientes datos: APELLIDO, DOMICILIO (osease los títulos de aquellas celdas que estén vacías", ahora bien, para esto ocupo que el MsgBox se de cuenta que celdas están vacías y que me traiga el encabezado de esas celdas vacías, en este ejemplo fue apellido y domicilio, y en caso de que no falte ningún dato solo que pregunte "Estas seguro de guardar la información", y que tuviera dos botones ACEPTAR , CANCELAR, si es aceptar pues que se termine de ejecutar la macro y si no pues que no haga nada mas que quedarse en la hoja inicial
1 respuesta
Te adjunto una macro siguiendo tu ejemplo. Dejé líneas con explicaciones para que puedas continuar agregando otros controles.
Sub GUARDADO()
'x Elsamatilde
'revisa celdas vacias
Dim cadena As String
If Range("B1") = "" Then cadena = cadena & Range("A1") & ","
If Range("D2") = "" Then cadena = cadena & Range("C2") & ","
If Range("B3") = "" Then cadena = cadena & Range("A3") & ","
If Range("B4") = "" Then cadena = cadena & Range("A4") & ","
'agregar lo que falte
If cadena > "" Then
sino = MsgBox("¿Estas seguro de guardar la información?, aun no has capturado los siguientes datos: " & cadena & ".", vbCritical + vbOKCancel, "ATENCIÓN")
Else
'si no hay celdas vacías
sino = MsgBox("¿Estas seguro de guardar la información?", vbQuestion + vbOKCancel, "ATENCIÓN")
End If
'si optó x cancelar finaliza el proceso
If sino <> vbOK Then Exit Sub
'AQUÍ LAS LÍNEAS DE GUARDADO
MsgBox "se guardarán los datos" 'opcional
End Sub
Sdos y no olvides finalizar la consulta
Excelente Respuesta Elsa, muchas gracias me ha servido de mucho, en este momento agregare una pregunta nueva a ver si tu me puedes ayudar, el Titulo de la pregunta sera:Dar color a celda (no bloqueada) activa, dentro de una hoja protegida
