formulario

Saludos,
KL
(XL 97, 2000, 2002)

Ojo - mi separador de argumentos en las formulas es la coma ",".
Puede q necesites cambiarla por punto y coma ";".

Para usar mi direccion de correo electronico privada
borra "NOSPAM" y "PLEASE" antes de usarla.

"Dorian" <flacopadoARROBA(ESTONOVA)yahoo.fr> wrote in message
news:%

hola a todos !!

alguien me podria decir qué codigo debería utilizar para que al introducir
determinado valor ("?", por ej.) en cualquier celda de determinada columna
(por ejemplo en cualquier celda de la columna "D" ) se hiciera visible un
formulario que ya tengo creado ?

muchas gracias por la ayuda

espero que terminen y empiecen bien el año

dorian+

Hola Dorian,

Prueba copiar este codigo en el modulo de la hoja. Acuerdate de cambiar el
nombre del Formulario en el macro.

Saludos,
KL

'--Inicio Codigo-
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D:D")) Is Nothing Then
For Each c In Intersect(Target, Range("D:D"))
If c.Value = "?" Then
UserForm1.Show
Exit For
End If
Next
End If
End Sub
'--Fin Codigo-

"Dorian" <flacopadoARROBA(ESTONOVA)yahoo.fr> wrote in message
news:%

hola a todos !!

alguien me podria decir qué codigo debería utilizar para que al introducir
determinado valor ("?", por ej.) en cualquier celda de determinada columna
(por ejemplo en cualquier celda de la columna "D" ) se hiciera visible un
formulario que ya tengo creado ?

muchas gracias por la ayuda

espero que terminen y empiecen bien el año

dorian+

KL muchas gracias por tu tiempo y respuesta !!!

el nombre del formulario es "Cuentas" (así lo tengo en la propiedad name),
pero al ejecutar el código se detiene y me dice que hace falta un objeto,
precisamente en la linea que contiene la instrucción Cuentas.Show

que estoy haciendo mal ?

gracias otra vez por tu ayuda

dorian+





"KL" escribió en el mensaje
news:OEIAA%

Hola Dorian,

Prueba copiar este codigo en el modulo de la hoja. Acuerdate de cambiar el
nombre del Formulario en el macro.

Saludos,
KL

'--Inicio Codigo-
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D:D")) Is Nothing Then
For Each c In Intersect(Target, Range("D:D"))
If c.Value = "?" Then
UserForm1.Show
Exit For
End If
Next
End If
End Sub
'--Fin Codigo-

"Dorian" <flacopadoARROBA(ESTONOVA)yahoo.fr> wrote in message
news:%
> hola a todos !!
>
> alguien me podria decir qué codigo debería utilizar para que al

introducir

> determinado valor ("?", por ej.) en cualquier celda de determinada

columna

> (por ejemplo en cualquier celda de la columna "D" ) se hiciera visible

un

> formulario que ya tengo creado ?
>
> muchas gracias por la ayuda
>
> espero que terminen y empiecen bien el año
>
> dorian+
>
>

alguien me podrá ayuar con esto ?

muchas gracias !


"Dorian" <flacopadoARROBA(ESTONOVA)yahoo.fr> escribió en el mensaje
news:ewGQU%

KL muchas gracias por tu tiempo y respuesta !!!

el nombre del formulario es "Cuentas" (así lo tengo en la propiedad

name),

pero al ejecutar el código se detiene y me dice que hace falta un objeto,
precisamente en la linea que contiene la instrucción Cuentas.Show

que estoy haciendo mal ?

gracias otra vez por tu ayuda

dorian+





"KL" escribió en el mensaje
news:OEIAA%
> Hola Dorian,
>
> Prueba copiar este codigo en el modulo de la hoja. Acuerdate de cambiar

el

> nombre del Formulario en el macro.
>
> Saludos,
> KL
>
> '--Inicio Codigo-
> Private Sub Worksheet_Change(ByVal Target As Range)
> If Not Intersect(Target, Range("D:D")) Is Nothing Then
> For Each c In Intersect(Target, Range("D:D"))
> If c.Value = "?" Then
> UserForm1.Show
> Exit For
> End If
> Next
> End If
> End Sub
> '--Fin Codigo-
>
> "Dorian" <flacopadoARROBA(ESTONOVA)yahoo.fr> wrote in message
> news:%
> > hola a todos !!
> >
> > alguien me podria decir qué codigo debería utilizar para que al
introducir
> > determinado valor ("?", por ej.) en cualquier celda de determinada
columna
> > (por ejemplo en cualquier celda de la columna "D" ) se hiciera visible
un
> > formulario que ya tengo creado ?
> >
> > muchas gracias por la ayuda
> >
> > espero que terminen y empiecen bien el año
> >
> > dorian+
> >
> >
>
>

Dorian,

Enviame la hoja al quitando previamente
el texto en mayusculas (NOSPAM y PLEASE)


Saludos,
KL

"Dorian" <flacopadoARROBA(ESTONOVA)yahoo.fr> wrote in message
news:

alguien me podrá ayuar con esto ?

muchas gracias !


"Dorian" <flacopadoARROBA(ESTONOVA)yahoo.fr> escribió en el mensaje
news:ewGQU%

KL muchas gracias por tu tiempo y respuesta !!!

el nombre del formulario es "Cuentas" (así lo tengo en la propiedad

name),

pero al ejecutar el código se detiene y me dice que hace falta un objeto,
precisamente en la linea que contiene la instrucción Cuentas.Show

que estoy haciendo mal ?

gracias otra vez por tu ayuda

dorian+





"KL" escribió en el mensaje
news:OEIAA%
> Hola Dorian,
>
> Prueba copiar este codigo en el modulo de la hoja. Acuerdate de cambiar

el

> nombre del Formulario en el macro.
>
> Saludos,
> KL
>
> '--Inicio Codigo-
> Private Sub Worksheet_Change(ByVal Target As Range)
> If Not Intersect(Target, Range("D:D")) Is Nothing Then
> For Each c In Intersect(Target, Range("D:D"))
> If c.Value = "?" Then
> UserForm1.Show
> Exit For
> End If
> Next
> End If
> End Sub
> '--Fin Codigo-
>
> "Dorian" <flacopadoARROBA(ESTONOVA)yahoo.fr> wrote in message
> news:%
> > hola a todos !!
> >
> > alguien me podria decir qué codigo debería utilizar para que al
introducir
> > determinado valor ("?", por ej.) en cualquier celda de determinada
columna
> > (por ejemplo en cualquier celda de la columna "D" ) se hiciera
> > visible
un
> > formulario que ya tengo creado ?
> >
> > muchas gracias por la ayuda
> >
> > espero que terminen y empiecen bien el año
> >
> > dorian+
> >
> >
>
>