Mensaje en celda al pasar por otra

Hola,

Puedes emplear el evento de la hoja SelectionChange

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1") = Target.Address
End Sub

Escribe en la celda A1 la dirección de la celda seleccionada.

Para lo que tiene que escribir, hacer en función es necesario disponer de
más detalles.

Ten en cuenta que perderás el deshacer los cambios.

Un saludo,
Juan

"Oszkar M^" escribió

Hola amigos del foro.

La pregunta es la siguiente:

Necesito que cada vez que pase por una celda (la señale o la deje activa)
me
aparezca un mensaje en otra celda; este mensaje lo toma de una tabla que
está
en otra hoja.

Muchas gracias
Saludos,

Oszkar M^
Sevilla - España

Hola Juan,

Muchas gracias por tu interés.

Te envío un ejemplo sobre el problema en cuestión a tu correo
().

La idea es que cada vez que selecciones las celdas que están en verde en la
hoja1, en la celda que está en amarillo me aparezca la información
correspondiente, de la hoja2.

De nuevo, muchas gracias.
Saludos,

Oszkar M^
Sevilla - España


"Juan M" escribió:

Hola,

Puedes emplear el evento de la hoja SelectionChange

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1") = Target.Address
End Sub

Escribe en la celda A1 la dirección de la celda seleccionada.

Para lo que tiene que escribir, hacer en función es necesario disponer de
más detalles.

Ten en cuenta que perderás el deshacer los cambios.

Un saludo,
Juan

"Oszkar M^" escribió
> Hola amigos del foro.
>
> La pregunta es la siguiente:
>
> Necesito que cada vez que pase por una celda (la señale o la deje activa)
> me
> aparezca un mensaje en otra celda; este mensaje lo toma de una tabla que
> está
> en otra hoja.
>
> Muchas gracias
> Saludos,
>
> Oszkar M^
> Sevilla - España

Hola Oscar,

Podrías haber subido el archivo a un lugar público para que más gente
pudiera ver si te puede ayudar a solucionar el problema.

Coloca el siguiente código en módulo de hojas (Worksheets)

Lo que hace es comprobar que la celda seleccionada está dentro del rango
C3:E5 de la hoja1.
Si está toma el valor que existe en el rango C5:E7 de la hoja 2 y lo escribe
en la celda C7 de la hoja 1.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim inter As Range

Set inter = Application.Intersect(Target,
Worksheets("Hoja1").Range("C3:E5"))

If Not (inter Is Nothing) Then
Worksheets("Hoja1").Range("C7") = _
Worksheets("Hoja2").Range("C5:E7")(Target.Row - 2, Target.Column -
2)
End If

End Sub

Un saludo,
Juan

"Oszkar M^" escribió

Hola Juan,

Muchas gracias por tu interés.

Te envío un ejemplo sobre el problema en cuestión a tu correo

La idea es que cada vez que selecciones las celdas que están en verde en
la
hoja1, en la celda que está en amarillo me aparezca la información
correspondiente, de la hoja2.

De nuevo, muchas gracias.
Saludos,

Oszkar M^
Sevilla - España


"Juan M" escribió:

Hola,

Puedes emplear el evento de la hoja SelectionChange

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1") = Target.Address
End Sub

Escribe en la celda A1 la dirección de la celda seleccionada.

Para lo que tiene que escribir, hacer en función es necesario disponer de
más detalles.

Ten en cuenta que perderás el deshacer los cambios.

Un saludo,
Juan

"Oszkar M^" escribió
> Hola amigos del foro.
>
> La pregunta es la siguiente:
>
> Necesito que cada vez que pase por una celda (la señale o la deje
> activa)
> me
> aparezca un mensaje en otra celda; este mensaje lo toma de una tabla
> que
> está
> en otra hoja.
>
> Muchas gracias
> Saludos,
>
> Oszkar M^
> Sevilla - España

Hola Juan,

Muchas gracias por tu ayuda. Funciona de lujo.

Tendré en cuenta lo de subir el ejemplo a una página pública.


Saludos,

Oszkar M^
Sevilla - España


"Juan M" escribió:

Hola Oscar,

Podrías haber subido el archivo a un lugar público para que más gente
pudiera ver si te puede ayudar a solucionar el problema.

Coloca el siguiente código en módulo de hojas (Worksheets)

Lo que hace es comprobar que la celda seleccionada está dentro del rango
C3:E5 de la hoja1.
Si está toma el valor que existe en el rango C5:E7 de la hoja 2 y lo escribe
en la celda C7 de la hoja 1.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim inter As Range

Set inter = Application.Intersect(Target,
Worksheets("Hoja1").Range("C3:E5"))

If Not (inter Is Nothing) Then
Worksheets("Hoja1").Range("C7") = _
Worksheets("Hoja2").Range("C5:E7")(Target.Row - 2, Target.Column -
2)
End If

End Sub

Un saludo,
Juan

"Oszkar M^" escribió
> Hola Juan,
>
> Muchas gracias por tu interés.
>
> Te envío un ejemplo sobre el problema en cuestión a tu correo

> La idea es que cada vez que selecciones las celdas que están en verde en
> la
> hoja1, en la celda que está en amarillo me aparezca la información
> correspondiente, de la hoja2.
>
> De nuevo, muchas gracias.
> Saludos,
>
> Oszkar M^
> Sevilla - España
>
>
> "Juan M" escribió:
>
>> Hola,
>>
>> Puedes emplear el evento de la hoja SelectionChange
>>
>> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>> Range("A1") = Target.Address
>> End Sub
>>
>> Escribe en la celda A1 la dirección de la celda seleccionada.
>>
>> Para lo que tiene que escribir, hacer en función es necesario disponer de
>> más detalles.
>>
>> Ten en cuenta que perderás el deshacer los cambios.
>>
>> Un saludo,
>> Juan
>>
>> "Oszkar M^" escribió
>> > Hola amigos del foro.
>> >
>> > La pregunta es la siguiente:
>> >
>> > Necesito que cada vez que pase por una celda (la señale o la deje
>> > activa)
>> > me
>> > aparezca un mensaje en otra celda; este mensaje lo toma de una tabla
>> > que
>> > está
>> > en otra hoja.
>> >
>> > Muchas gracias
>> > Saludos,
>> >
>> > Oszkar M^
>> > Sevilla - España
>>
>>
>>

hola, chicos !

Muchas gracias por tu ayuda. Funciona de lujo...

observa "como funciona" una accion de "des-hacer / undo / ctrl+Z"
cuando el codigo es ejecutado y se actualiza la celda C7 de la hoja1
(solo por si pudieras llegar a notar "comportamientos inesperados") ;)

saludos,
hector.