COLOR EN FILA Y COLUMNA PARA VER MEJOR LA CELDA ACTIVA

On 14 jun, 16:10, "Héctor Miguel"
wrote:

hola, !

> Como hago para que... pueda colocar de color... la fila... y la columna... para identificar mejor la celda activa.

puedes usar codigo (vba/macros) y/o instalar un complemento de terceros desde la siguiente pagina:
->http://www.cpearson.com/excel/RowLiner.htm
    (solo toma en cuenta que se pierde el beneficio del des-hacer -undo, ctrl+z-)    :-(

alternativas: por formatos condicionales (menu) formato / formato condicional...
     y (un poco de) apoyo con macros en el modulo de eventos de la hoja
     -> click-derecho sobre la pestana con el nombre de la hoja y -> ver codigo...

1) selecciona todas las celdas de la hoja
    (puedes usar el recuadro superior-izquierdo de los encabezados de fila/columna)
    (o las combinaciones de teclado: mayusc+espacio seguidas de ctrl+espacio)

2) (menu) formato / formato condicional...
    cond 1: formula: =y(fila()=celda("fila"),columna()=celda("columna"))
    formato: (selecciona el color, trama, bordes, ... de tu preferencia)

3) copia las siguientes lineas (en el modulo de codigo de esa hoja):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Range("a1").Calculate
End Sub

o... si a tu modelo le afecta un re/calculo en cada (re)seleccion de la celda activa, cambia a...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Application.ScreenUpdating = True
End Sub

la diferencia entre un codigo y otro es un ligero/consante parpadeo si utlizas el ScreenUpdating
(o el efecto de los re/calculos del modelo completo ?)

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

existen mas combinaciones de formulas y formatos (bordes sobre todo) segun necesidades
(p.e. cuando quieres que se coloree TODA la fila/columna donde esta la celda activa)...
-> los formatos sugeridos en los bordes para...
    las filas: SOLO superior e inferior
    las columnas: SOLO izquierdo y derecho
-> formulas para los formatos condicionales:
1) en cruz:
    cond1: =fila()=celda("fila")
    cond2: =columna()=celda("columna")
2) L en espejo (o lo que es lo mismo, de aqui... patras)
    cond1: =y(fila()=celda("fila"),columna()<=celda("columna"))
    cond2: =y(columna()=celda("columna"),fila()<=celda("fila"))
3) L en espejo de cabeza (o lo que es lo mismo, de aqui... palante)
    cond1: =y(fila()=celda("fila"),columna()>=celda("columna"))
    cond2: =y(columna()=celda("columna"),fila()>=celda("fila"))
=> EXCLUYENDO a la celda activa <> 1) en cruz:
    cond1: =y(fila()=celda("fila"),columna()<>celda("columna"))
    cond2: =y(columna()=celda("columna"),fila()<>celda("fila"))
2 y 3.- (L y L invertida)
(cambiar) <= a < (cambiar tambien) >= a >
=> SIN bordes y en cruz (utilizando SOLO UNA -de las tres- condiciones de formato)
    cond1: =o(fila()=celda("fila"),columna()=celda("columna"))
=

No logro que me funcione, tendras algun ejemplo?

hola, 'anonimo/a' !

No logro que me funcione, tendras algun ejemplo?

- necesitas aplicar a toda una hoja ? (o solo en un determinado rango)
- de cual de todos quisieras un ejemplo ?
- que y como (exactamente) es lo que intentaste ?

saludos,
hector.

__ OP __

Como hago para que... pueda colocar de color... la fila... y la columna... para identificar mejor la celda activa.

puedes usar codigo (vba/macros) y/o instalar un complemento de terceros desde la siguiente pagina:
-> http://www.cpearson.com/excel/RowLiner.htm
(solo toma en cuenta que se pierde el beneficio del des-hacer -undo, ctrl+z-) :-(

alternativas: por formatos condicionales (menu) formato / formato condicional...
y (un poco de) apoyo con macros en el modulo de eventos de la hoja
-> click-derecho sobre la pestana con el nombre de la hoja y -> ver codigo...

1) selecciona todas las celdas de la hoja
(puedes usar el recuadro superior-izquierdo de los encabezados de fila/columna)
(o las combinaciones de teclado: mayusc+espacio seguidas de ctrl+espacio)

2) (menu) formato / formato condicional...
cond 1: formula: =y(fila()=celda("fila"),columna()=celda("columna"))
formato: (selecciona el color, trama, bordes, ... de tu preferencia)

3) copia las siguientes lineas (en el modulo de codigo de esa hoja):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("a1").Calculate
End Sub

o... si a tu modelo le afecta un re/calculo en cada (re)seleccion de la celda activa, cambia a...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = True
End Sub

la diferencia entre un codigo y otro es un ligero/consante parpadeo si utlizas el ScreenUpdating
(o el efecto de los re/calculos del modelo completo ?)

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

existen mas combinaciones de formulas y formatos (bordes sobre todo) segun necesidades
(p.e. cuando quieres que se coloree TODA la fila/columna donde esta la celda activa)...
-> los formatos sugeridos en los bordes para...
las filas: SOLO superior e inferior
las columnas: SOLO izquierdo y derecho
-> formulas para los formatos condicionales:
1) en cruz:
cond1: =fila()=celda("fila")
cond2: =columna()=celda("columna")
2) L en espejo (o lo que es lo mismo, de aqui... patras)
cond1: =y(fila()=celda("fila"),columna()<=celda("columna"))
cond2: =y(columna()=celda("columna"),fila()<=celda("fila"))
3) L en espejo de cabeza (o lo que es lo mismo, de aqui... palante)
cond1: =y(fila()=celda("fila"),columna()>=celda("columna"))
cond2: =y(columna()=celda("columna"),fila()>=celda("fila"))
=> EXCLUYENDO a la celda activa <> 1) en cruz:
cond1: =y(fila()=celda("fila"),columna()<>celda("columna"))
cond2: =y(columna()=celda("columna"),fila()<>celda("fila"))
2 y 3.- (L y L invertida)
(cambiar) <= a < (cambiar tambien) >= a >
=> SIN bordes y en cruz (utilizando SOLO UNA -de las tres- condiciones de formato)
cond1: =o(fila()=celda("fila"),columna()=celda("columna"))
==

On 2 jul, 20:49, "Héctor Miguel"
wrote:

hola, 'anonimo/a' !

> No logro que me funcione, tendras algun ejemplo?

- necesitas aplicar a toda una hoja ? (o solo en un determinado rango)
- de cual de todos quisieras un ejemplo ?
- que y como (exactamente) es lo que intentaste ?

saludos,
hector.

__ OP __



>> Como hago para que... pueda colocar de color... la fila... y la columna... para identificar mejor la celda activa.

> puedes usar codigo (vba/macros) y/o instalar un complemento de terceros desde la siguiente pagina:
> ->http://www.cpearson.com/excel/RowLiner.htm
> (solo toma en cuenta que se pierde el beneficio del des-hacer -undo, ctrl+z-) :-(

> alternativas: por formatos condicionales (menu) formato / formato condicional...
> y (un poco de) apoyo con macros en el modulo de eventos de la hoja
> -> click-derecho sobre la pestana con el nombre de la hoja y -> ver codigo...

> 1) selecciona todas las celdas de la hoja
> (puedes usar el recuadro superior-izquierdo de los encabezados de fila/columna)
> (o las combinaciones de teclado: mayusc+espacio seguidas de ctrl+espacio)

> 2) (menu) formato / formato condicional...
> cond 1: formula: =y(fila()=celda("fila"),columna()=celda("columna"))
> formato: (selecciona el color, trama, bordes, ... de tu preferencia)

> 3) copia las siguientes lineas (en el modulo de codigo de esa hoja):
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> Range("a1").Calculate
> End Sub

> o... si a tu modelo le afecta un re/calculo en cada (re)seleccion de la celda activa, cambia a...
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> Application.ScreenUpdating = True
> End Sub

> la diferencia entre un codigo y otro es un ligero/consante parpadeo si utlizas el ScreenUpdating
> (o el efecto de los re/calculos del modelo completo ?)

> si cualquier duda (o informacion adicional)... comentas ?
> saludos,
> hector.

> existen mas combinaciones de formulas y formatos (bordes sobre todo) segun necesidades
> (p.e. cuando quieres que se coloree TODA la fila/columna donde esta la celda activa)...
> -> los formatos sugeridos en los bordes para...
> las filas: SOLO superior e inferior
> las columnas: SOLO izquierdo y derecho
> -> formulas para los formatos condicionales:
> 1) en cruz:
> cond1: =fila()=celda("fila")
> cond2: =columna()=celda("columna")
> 2) L en espejo (o lo que es lo mismo, de aqui... patras)
> cond1: =y(fila()=celda("fila"),columna()<=celda("columna"))
> cond2: =y(columna()=celda("columna"),fila()<=celda("fila"))
> 3) L en espejo de cabeza (o lo que es lo mismo, de aqui... palante)
> cond1: =y(fila()=celda("fila"),columna()>=celda("columna"))
> cond2: =y(columna()=celda("columna"),fila()>=celda("fila"))
> => EXCLUYENDO a la celda activa <> > 1) en cruz:
> cond1: =y(fila()=celda("fila"),columna()<>celda("columna"))
> cond2: =y(columna()=celda("columna"),fila()<>celda("fila"))
> 2 y 3.- (L y L invertida)
> (cambiar) <= a < (cambiar tambien) >= a >
> => > SIN bordes y en cruz (utilizando SOLO UNA -de las tres- condiciones de formato)
> cond1: =o(fila()=celda("fila"),columna()=celda("columna"))
> ==- Ocultar texto de la cita -

- Mostrar texto de la cita -

Quiero usarlo en toda una hoja, quiero usar En Cruz excluyendo la
celda activa
Lo que hice fue:
Seleccione toda la hoja, luego en Format-Conditional formatting (mi
excel está en inglés)
Cond 1: =and(row()=cell(1:1),column()<>cell(A:A))
Cond 2: =and(coumn()=cell(A:A),row()<>cell(1:1))

También copié al código de la hoja lo siguiente:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("a1").Calculate
End Sub

Y como no me funcionó intenté sustituyéndolo con el otro código:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = True
End Sub

¿Qué hice mal?

Gracias

Creo que te podria servir el ejemplo número 9 de la página de Emilio.

http://www.mvp-access.es/emilio/Exc...cargas.asp

Saludos: Antonio.
********************
"crx73" escribió en el mensaje
news:
On 2 jul, 20:49, "Héctor Miguel"
wrote:

hola, 'anonimo/a' !

> No logro que me funcione, tendras algun ejemplo?

- necesitas aplicar a toda una hoja ? (o solo en un determinado rango)
- de cual de todos quisieras un ejemplo ?
- que y como (exactamente) es lo que intentaste ?

saludos,
hector.

__ OP __



>> Como hago para que... pueda colocar de color... la fila... y la columna... para identificar mejor la celda activa.

> puedes usar codigo (vba/macros) y/o instalar un complemento de terceros desde la siguiente pagina:
> ->http://www.cpearson.com/excel/RowLiner.htm
> (solo toma en cuenta que se pierde el beneficio del des-hacer -undo, ctrl+z-) :-(

> alternativas: por formatos condicionales (menu) formato / formato condicional...
> y (un poco de) apoyo con macros en el modulo de eventos de la hoja
> -> click-derecho sobre la pestana con el nombre de la hoja y -> ver codigo...

> 1) selecciona todas las celdas de la hoja
> (puedes usar el recuadro superior-izquierdo de los encabezados de fila/columna)
> (o las combinaciones de teclado: mayusc+espacio seguidas de ctrl+espacio)

> 2) (menu) formato / formato condicional...
> cond 1: formula: =y(fila()=celda("fila"),columna()=celda("columna"))
> formato: (selecciona el color, trama, bordes, ... de tu preferencia)

> 3) copia las siguientes lineas (en el modulo de codigo de esa hoja):
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> Range("a1").Calculate
> End Sub

> o... si a tu modelo le afecta un re/calculo en cada (re)seleccion de la celda activa, cambia a...
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> Application.ScreenUpdating = True
> End Sub

> la diferencia entre un codigo y otro es un ligero/consante parpadeo si utlizas el ScreenUpdating
> (o el efecto de los re/calculos del modelo completo ?)

> si cualquier duda (o informacion adicional)... comentas ?
> saludos,
> hector.

> existen mas combinaciones de formulas y formatos (bordes sobre todo) segun necesidades
> (p.e. cuando quieres que se coloree TODA la fila/columna donde esta la celda activa)...
> -> los formatos sugeridos en los bordes para...
> las filas: SOLO superior e inferior
> las columnas: SOLO izquierdo y derecho
> -> formulas para los formatos condicionales:
> 1) en cruz:
> cond1: =fila()=celda("fila")
> cond2: =columna()=celda("columna")
> 2) L en espejo (o lo que es lo mismo, de aqui... patras)
> cond1: =y(fila()=celda("fila"),columna()<=celda("columna"))
> cond2: =y(columna()=celda("columna"),fila()<=celda("fila"))
> 3) L en espejo de cabeza (o lo que es lo mismo, de aqui... palante)
> cond1: =y(fila()=celda("fila"),columna()>=celda("columna"))
> cond2: =y(columna()=celda("columna"),fila()>=celda("fila"))
> => EXCLUYENDO a la celda activa <> > 1) en cruz:
> cond1: =y(fila()=celda("fila"),columna()<>celda("columna"))
> cond2: =y(columna()=celda("columna"),fila()<>celda("fila"))
> 2 y 3.- (L y L invertida)
> (cambiar) <= a < (cambiar tambien) >= a >
> => > SIN bordes y en cruz (utilizando SOLO UNA -de las tres- condiciones de formato)
> cond1: =o(fila()=celda("fila"),columna()=celda("columna"))
> ==- Ocultar texto de la cita -

- Mostrar texto de la cita -

Quiero usarlo en toda una hoja, quiero usar En Cruz excluyendo la
celda activa
Lo que hice fue:
Seleccione toda la hoja, luego en Format-Conditional formatting (mi
excel está en inglés)
Cond 1: =and(row()=cell(1:1),column()<>cell(A:A))
Cond 2: =and(coumn()=cell(A:A),row()<>cell(1:1))

También copié al código de la hoja lo siguiente:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("a1").Calculate
End Sub

Y como no me funcionó intenté sustituyéndolo con el otro código:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = True
End Sub

¿Qué hice mal?

Gracias

hola, chicos !

AnSanVal escribio en el mensaje ..
Creo que te podria servir el ejemplo numero 9 de la pagina de Emilio.
http://www.mvp-access.es/emilio/Exc...cargas.asp

el ejemplo de Emilio esta bien, solo que sigue los pasos del complemento de Chip Pearson
o sea, no perder de vista que se pierde la pila de niveles para el des-hacer, undo, ctrl+Z

la otra alternativa es que revises tu correo (te envie un ejemplo con todas las opciones descritas)

y/o (si tu excel es en ingles) que cambies las referencias a la funcion =celda( <-> por =cell(
y los argumentos tambien al ingles <= OJO: NO CONFUNDIR la funcion =cell("row") con la funcion =row()

saludos,
hector.

__ OP __

crx73 escribio en el mensaje ...
> No logro que me funcione, tendras algun ejemplo?

- necesitas aplicar a toda una hoja ? (o solo en un determinado rango)
- de cual de todos quisieras un ejemplo ?
- que y como (exactamente) es lo que intentaste ?

Quiero usarlo en toda una hoja, quiero usar En Cruz excluyendo la celda activa
Lo que hice fue:
Seleccione toda la hoja, luego en Format-Conditional formatting (mi excel esta en ingles)
Cond 1: =and(row()=cell(1:1),column()<>cell(A:A))
Cond 2: =and(coumn()=cell(A:A),row()<>cell(1:1))

Tambien copie al codigo de la hoja lo siguiente:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("a1").Calculate
End Sub

Y como no me funciono intente sustituyendolo con el otro codigo:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = True
End Sub

Que hice mal?