Para kl

Hola Tino,

"Tino" wrote in message...

la verdad es que me pareces un genio del Excel...

!nada mas lejos de la realidad!

Primero copio, una solución que tu distes, que creo que es una macro
"Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim rng As Range
Set rng = Intersect(Range("A1:A2"), Target)
If Not rng Is Nothing And Range("A1") < Range("A2") Then _
MsgBox "El valor de la celda A2 es mayor al de la A1",
vbInformation
End Sub"

si efectivamente es un macro asignado a un evento, en este caso
concretamente al evento de intoducir cambios en la hoja en cuyo modulo se
coloque el macro.

Mi pregunta es como se introduce todos estos datos?.
o mandame un link donde pueda aprender a introducir datos .

Paso a paso:

1) Visualiza la hoja a la q quires aplicar el macro.
2) Busca la pestana con el nombre de la hoja (en la parte inferior de la
ventana de Excel)
3) Apunta con el cursor de tu raton sobre la pestana y haz clic con el boton
derecho.
4) Del menu q aparecera a continuacion elige Ver Codigo. Se abrira el Editor
de Visual Basic con varias ventanas.
5) Pega el macro copiado en la ventana mas grande a mano derecha
6) Vuelve a visiulizar la hoja de calculo
7) Prueba introducir datos en las celdas A1 y A2
8) Si el macro no funciona, guarda los cambios, cierra el fichero y vuelve a
abrirlo. Al abrir el fichero debera aparecer una ventana preguntando si
deseas habilitar los macros. Asegurate de q los macros esten habilitados. Si
el fichero se abre sin q se te prugunte por los macros, ve al menu
Herramientas>Macro>Seguridad y elige el nivel Intermedio. Luego cierra el
fichero y vuelve a abrirlo.

Saludos,
KL

Pues estimado amigo, he seguido paso por paso todas tus indicaciones y no me
sale, quizas sea a partir del punto 5 que despues de pegar la macro en la
ventana no se muy bien como ir a visualizar otra vez la hoja. He podido
visualizar la hoja, introduzco valores en A1 y A2 y no ocurre nada. Tampoco
me pide que se va abrir una macro ni nada parecido, puse en nivel de
seguridad mediano como tu me indicabas pero no me sale.
Pienso que a lo mejor sería conveniente empezar por una macro mas sencilla?
Te parece?.

Gracias de nuevo Saludos




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

Hola Tino,

"Tino" wrote in message...

la verdad es que me pareces un genio del Excel...

!nada mas lejos de la realidad!

Primero copio, una solución que tu distes, que creo que es una macro
"Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim rng As Range
Set rng = Intersect(Range("A1:A2"), Target)
If Not rng Is Nothing And Range("A1") < Range("A2") Then _
MsgBox "El valor de la celda A2 es mayor al de la A1",
vbInformation
End Sub"

si efectivamente es un macro asignado a un evento, en este caso
concretamente al evento de intoducir cambios en la hoja en cuyo modulo se
coloque el macro.

Mi pregunta es como se introduce todos estos datos?.
o mandame un link donde pueda aprender a introducir datos .

Paso a paso:

1) Visualiza la hoja a la q quires aplicar el macro.
2) Busca la pestana con el nombre de la hoja (en la parte inferior de la
ventana de Excel)
3) Apunta con el cursor de tu raton sobre la pestana y haz clic con el
boton derecho.
4) Del menu q aparecera a continuacion elige Ver Codigo. Se abrira el
Editor de Visual Basic con varias ventanas.
5) Pega el macro copiado en la ventana mas grande a mano derecha
6) Vuelve a visiulizar la hoja de calculo
7) Prueba introducir datos en las celdas A1 y A2
8) Si el macro no funciona, guarda los cambios, cierra el fichero y vuelve
a abrirlo. Al abrir el fichero debera aparecer una ventana preguntando si
deseas habilitar los macros. Asegurate de q los macros esten habilitados.
Si el fichero se abre sin q se te prugunte por los macros, ve al menu
Herramientas>Macro>Seguridad y elige el nivel Intermedio. Luego cierra el
fichero y vuelve a abrirlo.

Saludos,
KL

Tino,

Pienso que a lo mejor sería conveniente empezar por una macro mas
sencilla? Te parece?.

La complejidad del macro no influye aqui. Vamos a ver q es lo q falla.

?Despues de cambiar el nivel de seguridad has cerrado el fichero? Si no,
hazlo y vuelve a abrir el fichero a ver si te pregunta si quieres habilitar
los macros (di q si).

Dime algo.

Saludos,
KL

Si guarde el fichero, pero cuando lo vuelvo abrir no me pregunta nada


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

Tino,

Pienso que a lo mejor sería conveniente empezar por una macro mas
sencilla? Te parece?.

La complejidad del macro no influye aqui. Vamos a ver q es lo q falla.

?Despues de cambiar el nivel de seguridad has cerrado el fichero? Si no,
hazlo y vuelve a abrir el fichero a ver si te pregunta si quieres
habilitar los macros (di q si).

Dime algo.

Saludos,
KL

Tino,

Creo q acabo de caer: ? no estaras pegando el macro junto con las comillas q
le habias anadido al principio y final? Si es asi, quitalas. El macro debe
leer exactamente asi:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim rng As Range
Set rng = Intersect(Range("A1:A2"), Target)
If Not rng Is Nothing And Range("A1") < Range("A2") Then _
MsgBox "El valor de la celda A2 es mayor al de la A1", vbInformation
End Sub

De todas formas es facil de saber si hay algun error en el macro: si al
pegarlo a la ventana q te habia indicado se pone rojo es q hay errores en el
codigo.

a ver que tal ahora.

KL
"Tino" wrote in message
news:cs4a9v$eva$

Pues estimado amigo, he seguido paso por paso todas tus indicaciones y no
me sale, quizas sea a partir del punto 5 que despues de pegar la macro en
la ventana no se muy bien como ir a visualizar otra vez la hoja. He podido
visualizar la hoja, introduzco valores en A1 y A2 y no ocurre nada.
Tampoco me pide que se va abrir una macro ni nada parecido, puse en nivel
de seguridad mediano como tu me indicabas pero no me sale.
Pienso que a lo mejor sería conveniente empezar por una macro mas
sencilla? Te parece?.

Gracias de nuevo Saludos




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

Hola Tino,

"Tino" wrote in message...

la verdad es que me pareces un genio del Excel...

!nada mas lejos de la realidad!

Primero copio, una solución que tu distes, que creo que es una macro
"Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim rng As Range
Set rng = Intersect(Range("A1:A2"), Target)
If Not rng Is Nothing And Range("A1") < Range("A2") Then _
MsgBox "El valor de la celda A2 es mayor al de la A1",
vbInformation
End Sub"

si efectivamente es un macro asignado a un evento, en este caso
concretamente al evento de intoducir cambios en la hoja en cuyo modulo se
coloque el macro.

Mi pregunta es como se introduce todos estos datos?.
o mandame un link donde pueda aprender a introducir datos .

Paso a paso:

1) Visualiza la hoja a la q quires aplicar el macro.
2) Busca la pestana con el nombre de la hoja (en la parte inferior de la
ventana de Excel)
3) Apunta con el cursor de tu raton sobre la pestana y haz clic con el
boton derecho.
4) Del menu q aparecera a continuacion elige Ver Codigo. Se abrira el
Editor de Visual Basic con varias ventanas.
5) Pega el macro copiado en la ventana mas grande a mano derecha
6) Vuelve a visiulizar la hoja de calculo
7) Prueba introducir datos en las celdas A1 y A2
8) Si el macro no funciona, guarda los cambios, cierra el fichero y
vuelve a abrirlo. Al abrir el fichero debera aparecer una ventana
preguntando si deseas habilitar los macros. Asegurate de q los macros
esten habilitados. Si el fichero se abre sin q se te prugunte por los
macros, ve al menu Herramientas>Macro>Seguridad y elige el nivel
Intermedio. Luego cierra el fichero y vuelve a abrirlo.

Saludos,
KL