Resaltar celda

hola, Engel !

... una hoja con los encabezados de fila y columna desactivados... que estando el cursor en cualquier celda de una fila
quedara resaltada de alguna forma la celda de la columna B de la fila que esta el cursor.

1) selecciona la columna 'B' [p.e. selecciona cualquier celda en la columna 'B' y pulsa ctrl+espacio]
2) ve a [menu] formato / formato condicional...
3) en condicion1 selecciona -> formula
4) introduce la siguiente formula: =celda("Fila")=fila()
5) pulsa el boton 'formato...' y aplica fuente, trama, bordes, colores [segun tu preferencia]
6) copia/pega las siguientes lineas...
en el modulo de codigo de 'esa' hoja ==Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("a1").Calculate
End Sub

nota: SI a tu modelo 'le afecta' que se este re/calculando la celda 'A1' cada vez que se cambia la seleccion activa... -?-
puedes sustituir la instruccion ->Range("a1").Calculate<- por... ->Application.ScreenUpdating = True<-
[la diferencia es que veras un 'ligero' parpadeo cada vez que se cambia la celda activa] :-(

si cualquier duda... comentas?
saludos,
hector.

On Sun, 11 Sep 2005 03:18:42 -0500, "Héctor Miguel"
wrote:

hola, Engel !

... una hoja con los encabezados de fila y columna desactivados... que estando el cursor en cualquier celda de una fila
quedara resaltada de alguna forma la celda de la columna B de la fila que esta el cursor.

1) selecciona la columna 'B' [p.e. selecciona cualquier celda en la columna 'B' y pulsa ctrl+espacio]
2) ve a [menu] formato / formato condicional...
3) en condicion1 selecciona -> formula
4) introduce la siguiente formula: =celda("Fila")=fila()
5) pulsa el boton 'formato...' y aplica fuente, trama, bordes, colores [segun tu preferencia]
6) copia/pega las siguientes lineas...
en el modulo de codigo de 'esa' hoja ==>Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("a1").Calculate
End Sub

nota: SI a tu modelo 'le afecta' que se este re/calculando la celda 'A1' cada vez que se cambia la seleccion activa... -?-
puedes sustituir la instruccion ->Range("a1").Calculate<- por... ->Application.ScreenUpdating = True<-
[la diferencia es que veras un 'ligero' parpadeo cada vez que se cambia la celda activa] :-(

si cualquier duda... comentas?
saludos,
hector.

Muchas gracias Hector por tu interes, pero no, esto no hace lo que yo
pido, esto hace que cuando introduzco datos en cualquier celda de una
fila, la celda de la columna B quede resaltada hasta que introduzco
datos en o otra celda de otra fila

Yo lo que quiero es que cuando el cursor este situado en cualquier
celda de la fila por ejemplo C, sin necesidad de introducir datos,
solo por estar el cursor ahi, queda resaltada la celda de la fila 5 de
la columna B y asi con cuando el cursor este situado en cualquier
celda de cualquer fila, siempre qued realtada la celda B de la fila
donde este el cursor.

Saludos,
Engel

Hola chicos,

He vuelto a hacer pruebas con la solucion propuesta por Hector Miguel y
ahora tambien creo que no funciona como se esperaba. Igual que HM estaba
seguro de que funcionaria, pero va a ser que no :-( Creo que el fallo
empieza a producirse a partrir del momento de que se introduzca algun valor
en cualquier celda y es entonces cuando el comportamiento del color
condicional se vuelve impredecible. Sin embargo, sustituyendo
Range("a1").Calculate por Application.ScreenUpdating = True [tal como lo
propone HM en su nota adicional] no da problemas.

Saludos,
KL


"Héctor Miguel" wrote in message
news:

hola, Engel !

... una hoja con los encabezados de fila y columna desactivados... que
estando el cursor en cualquier celda de una fila
quedara resaltada de alguna forma la celda de la columna B de la fila que
esta el cursor.

1) selecciona la columna 'B' [p.e. selecciona cualquier celda en la
columna 'B' y pulsa ctrl+espacio]
2) ve a [menu] formato / formato condicional...
3) en condicion1 selecciona -> formula
4) introduce la siguiente formula: =celda("Fila")=fila()
5) pulsa el boton 'formato...' y aplica fuente, trama, bordes, colores
[segun tu preferencia]
6) copia/pega las siguientes lineas...
en el modulo de codigo de 'esa' hoja ==> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("a1").Calculate
End Sub

nota: SI a tu modelo 'le afecta' que se este re/calculando la celda 'A1'
cada vez que se cambia la seleccion activa... -?-
puedes sustituir la instruccion ->Range("a1").Calculate<-
por... ->Application.ScreenUpdating = True<-
[la diferencia es que veras un 'ligero' parpadeo cada vez que se cambia la
celda activa] :-(

si cualquier duda... comentas?
saludos,
hector.

hola, Engel !

... esto no hace lo que yo pido, esto hace que cuando introduzco datos en cualquier celda de una fila
... la celda de la columna B quede resaltada hasta que introduzco datos en o otra celda de otra fila
... lo que quiero es que cuando el cursor este situado en cualquier celda de la fila por ejemplo C
... sin necesidad de introducir datos, solo por estar el cursor ahi, queda resaltada la celda... de la columna B
... cuando el cursor este... en cualquier celda de cualquer fila, siempre... realtada la celda B de la fila donde este el cursor.

me da la impresion de que la parte final de la propuesta anterior [la del codigo en el evento ->_SelectionChange<-]...
[posiblemente] copiaste -solo- la instruccion ->Range("a1").Calculate<- PERO... al evento ->_Change<- -???-
la diferencia es que el evento propuesto se dispara al -solo- cambiar la seleccion 'activa' en la hoja del codigo ;)
y el evento '_change' sucede SOLO cuando se modifican los valores de la seleccion :-(

6) copia/pega las siguientes lineas...
en el modulo de codigo de 'esa' hoja ==>>Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("a1").Calculate
End Sub

comentas?
saludos,
hector.

hola [de nuevo[, chicos !

KL escribio en el mensaje ...
... el fallo empieza... de que se introduzca algun valor en cualquier celda
... el comportamiento del color condicional se vuelve impredecible
... sustituyendo Range("a1").Calculate por Application.ScreenUpdating = True ... no da problemas.

[tal parece que] 'combinar' la funcion celda(...) que SIN su segundo argumento es referencia a la celda 'activa'...
... con los formatos condicionales SIN 'forzar' a un 'refresco' de la pantalla [application.screenupdating]...
... deja 'campo abierto' para que el 'cabalistico 16' empieze a 'hacer de las suyas' :(
-> los formatos condicionales 'se pierden' por grupos de 16 filas y 're/comienzan' a partir de la siguiente fila 17 :-(

[creo que] solo queda 'vivir' con el ligero [aunque constante y quizas molesto] 'parpadeo' en cambios de seleccion de celdas :(

saludos,
hector.