COLOR EN FILA Y COLUMNA PARA VER MEJOR LA CELDA ACTIVA

Gracias Héctor.

No habia visto tus respuestas anteriores. He comprobado que en el O.E.
pierdo mensajes :-(( , por ejemplo el mio en esta consulta no lo veo y he
tenido que entrar por www.microsoft.com/... para verlo completo. No se que
puede ser.

Me apunto tu solución. ;-)

Un saludo desde Tenerife (España).


"Héctor Miguel" escribió:

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?

hola (de nuevo), 'anonimo/a' ! (creo que no has visto la solucion... verdad ?)

para la opcion que quieres manejar (en cruz excluyendo la celda activa)...
- conserva en uso el primer codigo (a menos que sea necesario usar el segundo) -?-
- y cambia las formulas propuestas:

=> EXCLUYENDO a la celda activa <>> 1) en cruz:

de:

cond1: =y(fila()=celda("fila"),columna()<>celda("columna"))
cond2: =y(columna()=celda("columna"),fila()<>celda("fila"))

a:
cond1: =and(row()=cell("row"),column()<>cell("col"))
cond2: =and(column()=cell("col"),row()<>cell("row"))

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

__ OP __

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?