Macro para Mensaje de Error

23/03/2005 - 21:39 por Mbaeijhapa | Informe spam

Hola amigos,

Tengo una hoja donde se deben ingresar datos en las celdas "B5" hasta "B8";
quisiera saber como hago para que si falta ingresar algún dato en esas celdas
("B5:B8"), salga un mensaje que diga "Falta ingresar dato" o algo similar.
Les comento comento que tengo una macro ("Cargar") asignada a un botón para
generar una base de datos con los datos ingresados.-

Gracias.
Mbaeijhapa

Siga el debate

4 respuestas

Tengo una respuesta

Preguntas similare

Leer las respuestas

#1 Anonimo

23/03/2005 - 22:50 | Informe spam

no es necesario aplicar una macro para esto simplemente
ubicate en la celda C5 y escribe lo siguiente:

=SI(O(B5=0,B6=0,B7=0,B8=0)=VERDADERO,"FALTA COMPLETAR
DATOS","")

Saludos

Luis Eduardo

Hola amigos,

Tengo una hoja donde se deben ingresar datos en las

celdas "B5" hasta "B8";

quisiera saber como hago para que si falta ingresar

algàºn dato en esas celdas

("B5:B8"), salga un mensaje que diga "Falta ingresar

dato" o algo similar.

Les comento comento que tengo una macro ("Cargar")

asignada a un botón para

generar una base de datos con los datos ingresados.-

Gracias.
Mbaeijhapa

.

Responder a este mensaje

#2 Mbaeijhapa

23/03/2005 - 23:03 | Informe spam

Hola Anonymous,

Gracias por tu respuesta, pero necesito que sea en macro dado que tendría
que incorporarlo en la macro "Cargar", como expliqué en mi primer nota.

Mbaeijhapa.

"" escribió:

no es necesario aplicar una macro para esto simplemente
ubicate en la celda C5 y escribe lo siguiente:

=SI(O(B5=0,B6=0,B7=0,B8=0)=VERDADERO,"FALTA COMPLETAR
DATOS","")

Saludos

Luis Eduardo

>Hola amigos,
>
>Tengo una hoja donde se deben ingresar datos en las
celdas "B5" hasta "B8";
>quisiera saber como hago para que si falta ingresar
algàºn dato en esas celdas
>("B5:B8"), salga un mensaje que diga "Falta ingresar
dato" o algo similar.
> Les comento comento que tengo una macro ("Cargar")
asignada a un botón para
>generar una base de datos con los datos ingresados.-
>
>Gracias.
>Mbaeijhapa
>
>.
>

Responder a este mensaje

#3 KL

23/03/2005 - 23:13 | Informe spam

Hola Mbaeijhapa,

Prueba lo siguiente:

Private Sub CommandButton1_Click()
With ActiveSheet
If Application.CountA(.Range("B5:B8")) <> _
.Range("B5:B8").Count Then
MsgBox "FALTA COMPLETAR DATOS"
Exit Sub
End If
End With
'Aqui va el resto de tu codigo
End Sub

Saludos,
KL

Responder a este mensaje

#4 Mbaeijhapa

24/03/2005 - 15:35 | Informe spam

Hola KL,
Muchas gracias, es lo que necesitaba.
Siempre estás con alguna solución en la mano.

Un abrazo.
Mbaeijhapa.

"KL" escribió:

Hola Mbaeijhapa,

Prueba lo siguiente:

Private Sub CommandButton1_Click()
With ActiveSheet
If Application.CountA(.Range("B5:B8")) <> _
.Range("B5:B8").Count Then
MsgBox "FALTA COMPLETAR DATOS"
Exit Sub
End If
End With
'Aqui va el resto de tu codigo
End Sub

Saludos,
KL

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida