Últimos mensajes - Powered by IBM

Palabras claves

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> </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> </DIV>
<DIV><FONT face=Meiryo color=#0000ff>Gracias de
antemano.</FONT></DIV></BODY></HTML>

=_NextPart_000_003A_01C895CB.C3C73050--

Siga el debate

6 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

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.

Responder a este mensaje

#2 Juan Español 2

05/04/2008 - 13:50 | Informe spam

Estimado Héctor, no logro hacer funcionar el código que me mandas y mira que
debe ser sencillo. Dentro del editor de VB dónde debo copiarlo en un módulo
en Hoja activa? En fin, mi torpeza es importante.

Saludos

"Héctor Miguel" escribió en el mensaje de
noticias:

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.

Responder a este mensaje

#3 Héctor Miguel

05/04/2008 - 21:41 | Informe spam

hola, Juan !

... no logro hacer funcionar el codigo... Dentro del editor de VB donde debo copiarlo en un modulo en Hoja activa?..

pues... como te decia en el mensaje anterior...

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, ???)

- si supunemos que se trata de un formulario de usuario -?-...
lo recomendable seria en el evento que se encargue de hacer algun trabajo con los datos del "formulario"

- si es una hoja de calculo "simulando" alguna pantalla/formulario para consulta/captura de datos -?-...
probablemente querrias ponerlo en el evento '_selectionchange' en el modulo de codigo de "esa" hoja
(y estarias recibiendo el mensaje cada vez que cambies de celda mientras no pongas algo en la celda) :-((

- tambien podrias "obligar" al usuario a que no "abandone" la celda (A1 ?) mientras pretenda dejarla vacia

(en fin)... podria haber suficientes variantes o alternativas, todo depende de... ??? (los detalles que no se han "visto") ;)

saludos,
hector.

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

Responder a este mensaje

#4 Juan Español 2

05/04/2008 - 23:25 | Informe spam

Veamos, por lo que dices creo que se trata de una hoja de cálculo de la que
yo pretendo hacer un formulario para meter datos e imprimir posteriormente,
ej. es una plantilla para que un tercero dé de alta a un cliente en el
sistema. Debe de aparecer una sola vez la ventanita indicando el mensaje,
una vez se le de Aceptar ya no debe salir más. En fingracias por tu
paciencia.

Saludos

"Héctor Miguel" escribió en el mensaje de
noticias:

hola, Juan !

... no logro hacer funcionar el codigo... Dentro del editor de VB donde
debo copiarlo en un modulo en Hoja activa?..

pues... como te decia en el mensaje anterior...

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, ???)

- si supunemos que se trata de un formulario de usuario -?-...
lo recomendable seria en el evento que se encargue de hacer algun trabajo
con los datos del "formulario"

- si es una hoja de calculo "simulando" alguna pantalla/formulario para
consulta/captura de datos -?-...
probablemente querrias ponerlo en el evento '_selectionchange' en el
modulo de codigo de "esa" hoja
(y estarias recibiendo el mensaje cada vez que cambies de celda mientras
no pongas algo en la celda) :-((

- tambien podrias "obligar" al usuario a que no "abandone" la celda (A1 ?)
mientras pretenda dejarla vacia

(en fin)... podria haber suficientes variantes o alternativas, todo
depende de... ??? (los detalles que no se han "visto") ;)

saludos,
hector.

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

Responder a este mensaje

#5 Héctor Miguel

05/04/2008 - 23:58 | Informe spam

hola, Juan !

... por lo que dices creo que se trata de una hoja de calculo de la que yo pretendo hacer un formulario
... es una plantilla para que un tercero de de alta a un cliente en el sistema.
Debe de aparecer una sola vez la ventanita indicando el mensaje, una vez se le de Aceptar ya no debe salir mas.

retomando el punto inicial de tu consulta...

" ... por ejemplo A1, esta vacia... ventanita que diga..."
"Si no rellenas la celda tal, no debes seguir con el formulario"
" y tenga su botoncito de "Aceptar"."

copia/pega las siguientes lineas en el modulo de codigo de "esa" hoja (la que servira de formulario)...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If IsEmpty([a1]) Then MsgBox "A1 no debe quedar vacia !!!": [a1].Select
End Sub

mientras la celda A1 este vacia, el usuario no podra seleccionar ninguna otra celda
(siempre y cuando las macros esten en uso y NO esten deshabilitados los eventos)

es solo una alternativa de unas cuantas variables mas, haz una prueba y si no te convence... comentas ?

saludos,
hector.

Responder a este mensaje

Ads by Google

Hacer una preguntaSiguiente

Tengo una respuesta

Busqueda sugerida