Iluminar Celda

hola, Albymar !

a) Tengo una Hoja con dos tablas iguales ...
b) Realizo... (Menu: Ventana > Dividir) y situo una tabla... arriba y otra... abajo, entonces ...
... hacer... que, cuando me situo en una celda de la tabla de... de arriba
la celda correspondiente de la tabla de... abajo se ilumine (cambie de color) y me sirva de referencia?

a) cual es el rango de cada tabla ?
b) quieres incluir [en la iluminacion] los encabezados o titulos [fila/columna] ? o... solo los rangos de datos ?

comentas ?
saludos,
hector.

hola [de nuevo], Albymar !

a) cual es el rango de cada tabla ?
b) quieres incluir [en la iluminacion] los encabezados o titulos [fila/columna] ? o... solo los rangos de datos ?

en tanto comentas cuales son los rangos y si deseas incluir [o no] los titulos...
podrias utilizar los formatos condicionales [y un poquitin de codigo] p.e. con los siguientes supuestos...
a) la tabla 1 [la de arriba Y SOLO el area de datos] en el rango 'B2:H10'
b) la tabla 2 [la de abajo Y SOLO el area de datos] en el rango 'B22:H30'
-> el ejemplo 'supone' que la distancia de una celda a 'su correspondiente' celda en la otra tabla es de 20 filas <= OJO

1) selecciona el rango de la tabla de 'abajo' [B22:H30]
2) ve a [menu] formato / formato condicional...
-> condicion -> formula [y usas la siguiente formula]...
=y(celda("fila")=fila()-20,celda("columna")=columna())
-> [boton] formato... -> aplicas los formatos de tu preferencia ;)
3) en el modulo de codigo de 'esa' hoja, copia/pega las siguientes lineas...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[a1].Calculate
End Sub
=> nota... si a tu modelo 'le afecta' que en cada cambio de seleccion de la celda activa se re/calcule 'A1'...
cambia la instruccion 'Calculate'...
de -> [a1].Calculate
a -> Application.ScreenUpdating = True

si necesitas que tambien se ilumine la 'correspondiente' celda de arriba, cuando tienes seleccionada una 'de abajo'...
-> selecciona el rango 'de arriba' [B2:H10] y cambia en la formula el -20 por -> +20 [p.e.]
=y(celda("fila")=fila()+20,celda("columna")=columna())

solo toma en cuenta que mi sistema usa como separador de argumentos a la coma ',' NO al punto y coma ';' :D
y... si hubiera 'diferencia' entre las columnas de las celdas 'correspondientes'... suma/resta en columna() ;)

saludos,
hector.

Gracias de antemano por tu respuesta:
Supongamos que los rangos son:
Tabla1: (A1:G20) y los titulos/encabezados estan en la Fila 1
Tabla2: (A31:G50) y los titulos/encabezados estan en la Fila 31

Si me situo en la cela B5 (Tabla1), su correspodiente en la Tabla2, que es
la celda B35, cambia de color y entonces me sirve de referencia. Y moviendome
por las celdas de la Tabla1, se van "iluminando" las celdas correspondientes
de la Tabla2.

Los encabezados/titulos no son necesarios ya que los tengo repetidos en
ambas tablas, y que se mantienen a la vista.

Voy a ponerme con tu aporte, a ver que me sale y te contesto ...

Otra vez muchas gracias.


"Héctor Miguel" wrote:

hola [de nuevo], Albymar !

> a) cual es el rango de cada tabla ?
> b) quieres incluir [en la iluminacion] los encabezados o titulos [fila/columna] ? o... solo los rangos de datos ?

en tanto comentas cuales son los rangos y si deseas incluir [o no] los titulos...
podrias utilizar los formatos condicionales [y un poquitin de codigo] p.e. con los siguientes supuestos...
a) la tabla 1 [la de arriba Y SOLO el area de datos] en el rango 'B2:H10'
b) la tabla 2 [la de abajo Y SOLO el area de datos] en el rango 'B22:H30'
-> el ejemplo 'supone' que la distancia de una celda a 'su correspondiente' celda en la otra tabla es de 20 filas <= OJO

1) selecciona el rango de la tabla de 'abajo' [B22:H30]
2) ve a [menu] formato / formato condicional...
-> condicion -> formula [y usas la siguiente formula]...
=y(celda("fila")=fila()-20,celda("columna")=columna())
-> [boton] formato... -> aplicas los formatos de tu preferencia ;)
3) en el modulo de codigo de 'esa' hoja, copia/pega las siguientes lineas...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[a1].Calculate
End Sub
=> nota... si a tu modelo 'le afecta' que en cada cambio de seleccion de la celda activa se re/calcule 'A1'...
cambia la instruccion 'Calculate'...
de -> [a1].Calculate
a -> Application.ScreenUpdating = True

si necesitas que tambien se ilumine la 'correspondiente' celda de arriba, cuando tienes seleccionada una 'de abajo'...
-> selecciona el rango 'de arriba' [B2:H10] y cambia en la formula el -20 por -> +20 [p.e.]
=y(celda("fila")=fila()+20,celda("columna")=columna())

solo toma en cuenta que mi sistema usa como separador de argumentos a la coma ',' NO al punto y coma ';' :D
y... si hubiera 'diferencia' entre las columnas de las celdas 'correspondientes'... suma/resta en columna() ;)

saludos,
hector.

Hola de nuevo Hector Miguel:

Una vez comprobado tu aporte, efectivamente, es lo que yo queria, y funciona
perfectamente, tanto con division horizontal (filas) como con division
vertical (columnas).

Gracias otra vez...

"Héctor Miguel" escribió:

hola [de nuevo], Albymar !

> a) cual es el rango de cada tabla ?
> b) quieres incluir [en la iluminacion] los encabezados o titulos [fila/columna] ? o... solo los rangos de datos ?

en tanto comentas cuales son los rangos y si deseas incluir [o no] los titulos...
podrias utilizar los formatos condicionales [y un poquitin de codigo] p.e. con los siguientes supuestos...
a) la tabla 1 [la de arriba Y SOLO el area de datos] en el rango 'B2:H10'
b) la tabla 2 [la de abajo Y SOLO el area de datos] en el rango 'B22:H30'
-> el ejemplo 'supone' que la distancia de una celda a 'su correspondiente' celda en la otra tabla es de 20 filas <= OJO

1) selecciona el rango de la tabla de 'abajo' [B22:H30]
2) ve a [menu] formato / formato condicional...
-> condicion -> formula [y usas la siguiente formula]...
=y(celda("fila")=fila()-20,celda("columna")=columna())
-> [boton] formato... -> aplicas los formatos de tu preferencia ;)
3) en el modulo de codigo de 'esa' hoja, copia/pega las siguientes lineas...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[a1].Calculate
End Sub
=> nota... si a tu modelo 'le afecta' que en cada cambio de seleccion de la celda activa se re/calcule 'A1'...
cambia la instruccion 'Calculate'...
de -> [a1].Calculate
a -> Application.ScreenUpdating = True

si necesitas que tambien se ilumine la 'correspondiente' celda de arriba, cuando tienes seleccionada una 'de abajo'...
-> selecciona el rango 'de arriba' [B2:H10] y cambia en la formula el -20 por -> +20 [p.e.]
=y(celda("fila")=fila()+20,celda("columna")=columna())

solo toma en cuenta que mi sistema usa como separador de argumentos a la coma ',' NO al punto y coma ';' :D
y... si hubiera 'diferencia' entre las columnas de las celdas 'correspondientes'... suma/resta en columna() ;)

saludos,
hector.

Hola, otra vez Hector,

Perdona por ser pesado, pero una vez aplicado tu metodo en mi aplicacion, he
visto que se puede mejorar...

a) ¿Se podria "iluminar" la celda de la tabla1 Y la celda de la tabla 2?

b) ¿Se podria realizar un scroll automatico en la division de consulta?

Gracias de antemano, y perdon por las molestias

"Héctor Miguel" escribió:

hola [de nuevo], Albymar !

> a) cual es el rango de cada tabla ?
> b) quieres incluir [en la iluminacion] los encabezados o titulos [fila/columna] ? o... solo los rangos de datos ?

en tanto comentas cuales son los rangos y si deseas incluir [o no] los titulos...
podrias utilizar los formatos condicionales [y un poquitin de codigo] p.e. con los siguientes supuestos...
a) la tabla 1 [la de arriba Y SOLO el area de datos] en el rango 'B2:H10'
b) la tabla 2 [la de abajo Y SOLO el area de datos] en el rango 'B22:H30'
-> el ejemplo 'supone' que la distancia de una celda a 'su correspondiente' celda en la otra tabla es de 20 filas <= OJO

1) selecciona el rango de la tabla de 'abajo' [B22:H30]
2) ve a [menu] formato / formato condicional...
-> condicion -> formula [y usas la siguiente formula]...
=y(celda("fila")=fila()-20,celda("columna")=columna())
-> [boton] formato... -> aplicas los formatos de tu preferencia ;)
3) en el modulo de codigo de 'esa' hoja, copia/pega las siguientes lineas...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[a1].Calculate
End Sub
=> nota... si a tu modelo 'le afecta' que en cada cambio de seleccion de la celda activa se re/calcule 'A1'...
cambia la instruccion 'Calculate'...
de -> [a1].Calculate
a -> Application.ScreenUpdating = True

si necesitas que tambien se ilumine la 'correspondiente' celda de arriba, cuando tienes seleccionada una 'de abajo'...
-> selecciona el rango 'de arriba' [B2:H10] y cambia en la formula el -20 por -> +20 [p.e.]
=y(celda("fila")=fila()+20,celda("columna")=columna())

solo toma en cuenta que mi sistema usa como separador de argumentos a la coma ',' NO al punto y coma ';' :D
y... si hubiera 'diferencia' entre las columnas de las celdas 'correspondientes'... suma/resta en columna() ;)

saludos,
hector.