hacer una celda iluminada

Discussion:

(demasiado antiguo para responder)

auntent

2005-06-04 14:44:54 UTC

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

2005-06-04 16:17:18 UTC

Permalink

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

Post by auntent
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

Héctor Miguel

2005-06-04 23:46:54 UTC

Permalink

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"))
=====

Mauro Jesús

2005-06-21 17:01:50 UTC

Permalink

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.

Mauro Jesús

2005-06-21 17:04:31 UTC

Permalink

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.

2005-06-21 19:28:08 UTC

Permalink

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

Post by Mauro JesÃºs
se me olvidaba, desde el editor de vb, seleccionas la hoja y el evento
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.

Post by auntent
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

Post by auntent
que sea válido para cualquier hoja dentro de mi libro EXCEL...
agradecere una ayuda...
Gracias
Augusto

Mauro Jesús

2005-06-22 18:13:59 UTC

Permalink

si, ya lo estuve revisando y me parece mucho mejor, lo q escribi
anteriormente lo utilizé hace mucho tiempo y como no habia vuelto a utilizar
algo similar no me habia actualizado, pero eso es lo grandioso de este foro,
te puedes ancontras muchas cosas mas practicas que lo que uno sabe.

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.

Post by KL
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

Post by auntent
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

Post by auntent
que sea válido para cualquier hoja dentro de mi libro EXCEL...
agradecere una ayuda...
Gracias
Augusto