hacer una celda iluminada

Hola auntent,

Poder - se puede, usando macros, pero antes de ponerte aqui el macro te
pregunto: ?estas preparado a perder la funcionalidad de Deshacer en tu
libro?, que es lo que ocurrira si usas macros para cambiar el formato de
celda? Es decir cada vez que selecciones una celda se borrara la accion
anterior de la memoria.

Saludos,
KL

"auntent" wrote in message
news:

Amigos... ¿cómo están?... tengo una inquietud.. ¿Cómo puedo hacer para que
donde yo ponga el cursor la celda se resalte digamos con un color amarillo
y
que sea válido para cualquier hoja dentro de mi libro EXCEL...

agradecere una ayuda...

Gracias

Augusto

hola, chicos !

auntent escribio en el mensaje ...
... que donde yo ponga el cursor la celda se resalte digamos con un color amarillo [...]

KL escribio en el mensaje ...
... usando macros, pero... estas preparado a perder la funcionalidad de Deshacer en tu libro?
... es lo que ocurrira si usas macros para cambiar el formato de celda? [...]

puedes usar un complemento que descargas al final de la siguiente direccion...
-> http://www.cpearson.com/excel/RowLiner.htm
[toma nota de que 'se pierde' el beneficio del 'des-hacer' -undo, ctrl+z-]

o... 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 pestaña 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)
Application.ScreenUpdating = True
End Sub

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... p'atras']
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... pa'lante']
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"))
==

pon esto en cada hoja del libro (es una sola linea)
ActiveSheet.Range(Cells(Target.Row, Target.Column), Cells(Target.Row,
Target.Column)).Interior.Color = vbYellow

Espero te sirva.
Saludos
Cuando se quiere saber una cosa, lo mejor que se puede hacer después de
investigar, es preguntarla a los que saben,
porque aquel que no sabe nada, no duda de nada.
"auntent" escribió en el mensaje
news:

Amigos... ¿cómo están?... tengo una inquietud.. ¿Cómo puedo hacer para que
donde yo ponga el cursor la celda se resalte digamos con un color amarillo

y

que sea válido para cualquier hoja dentro de mi libro EXCEL...

agradecere una ayuda...

Gracias

Augusto

se me olvidaba, desde el editor de vb, seleccionas la hoja y el evento
selectionChange la linea va asi:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Range(Cells(Target.Row, Target.Column), Cells(Target.Row,
Target.Column)).Interior.Color = vbYellow
End Sub


Cuando se quiere saber una cosa, lo mejor que se puede hacer después de
investigar, es preguntarla a los que saben,
porque aquel que no sabe nada, no duda de nada.
"auntent" escribió en el mensaje
news:

Amigos... ¿cómo están?... tengo una inquietud.. ¿Cómo puedo hacer para que
donde yo ponga el cursor la celda se resalte digamos con un color amarillo

y

que sea válido para cualquier hoja dentro de mi libro EXCEL...

agradecere una ayuda...

Gracias

Augusto

Hola Mauro,

La solucion que propones tiene un gran inconviniente - se pierde la
posibilidad de deshacer todas las acciones anteriores, no creo que mucha
gente este preparada a pagar este precio simplemente por desplazar el
cursor, ?no crees? En cambio la belleza de la solucion de Hector Miguel esta
justo en que se evita este efecto secundario.

Saludos,
KL

"Mauro Jesús" wrote in message
news:

se me olvidaba, desde el editor de vb, seleccionas la hoja y el evento
selectionChange la linea va asi:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Range(Cells(Target.Row, Target.Column), Cells(Target.Row,
Target.Column)).Interior.Color = vbYellow
End Sub


Cuando se quiere saber una cosa, lo mejor que se puede hacer después de
investigar, es preguntarla a los que saben,
porque aquel que no sabe nada, no duda de nada.
"auntent" escribió en el mensaje
news:

Amigos... ¿cómo están?... tengo una inquietud.. ¿Cómo puedo hacer para
que
donde yo ponga el cursor la celda se resalte digamos con un color
amarillo

y

que sea válido para cualquier hoja dentro de mi libro EXCEL...

agradecere una ayuda...

Gracias

Augusto