Ventana de Avisto

03/04/2008 - 20:46 por Juan Español 2 | Informe spam
Éste es un mensaje de varias partes en formato MIME.
=_NextPart_000_003A_01C895CB.C3C73050

Hola Chic@s,

Cómo podría hacer para que si la celda tal por ejemplo A1, está vacía, me salga una ventanita que diga por ejemplo "Si no rellenas la celda tal, no debes seguir con el formulario" y tenga su botoncito de "Aceptar".

Gracias de antemano.
=_NextPart_000_003A_01C895CB.C3C73050

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content=text/html;charset=iso-8859-1>
<META content="MSHTML 6.00.6000.16609" name=GENERATOR></HEAD>
<BODY id=MailContainerBody
style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; PADDING-TOP: 15px"
bgColor=#ffffff leftMargin=0 topMargin=0 CanvasTabStop="true"
name="Compose message area">
<DIV><FONT face=Meiryo color=#0000ff>Hola <A
href="mailto:Chic@s">Chic@s</A>,</FONT></DIV>
<DIV><FONT face=Meiryo color=#0000ff></FONT>&nbsp;</DIV>
<DIV><FONT face=Meiryo color=#0000ff>Cómo podría hacer para que si la celda tal
por ejemplo A1, está vacía, me salga una ventanita que diga por ejemplo "Si no
rellenas la celda tal, no debes seguir con el formulario" y tenga su botoncito
de "Aceptar".</FONT></DIV>
<DIV><FONT face=Meiryo color=#0000ff></FONT>&nbsp;</DIV>
<DIV><FONT face=Meiryo color=#0000ff>Gracias de
antemano.</FONT></DIV></BODY></HTML>

=_NextPart_000_003A_01C895CB.C3C73050--
 

Leer las respuestas

#1 Héctor Miguel
04/04/2008 - 02:45 | Informe spam
hola, Juan !

Como podria hacer para que si la celda tal por ejemplo A1, esta vacia
me salga una ventanita que diga por ejemplo "Si no rellenas la celda tal, no debes seguir con el formulario"
y tenga su botoncito de "Aceptar"...



dependiendo de "que" sea "el formulario" (formulario vba?... hoja como pantalla de captura ?... ???)
dependiendo de donde/cuando/como/... deba ser ejecutada la instruccion (eventos de la hoja, codigo de formulario, ???)

If IsEmpty(Range("a1")) Then
MsgBox "Si no rellenas la celda tal, no debes seguir con el formulario"
Else
' aqui continuas con las acciones "normales" '
End If

si Range("a1") no se refiere a la hoja activa...
If IsEmpty(Worksheets("hoja x").Range("a1")) Then

saludos,
hector.

Preguntas similares