FullRow en Excel Resaltar columna y fila en Tablas

[123]

Hola por favor ayudadme con 2 preguntillas sobre Excel, son cosas muy utiles de uso diario, pero parece q no hayan pensado en ellas :'( especialmente la P1)

P1) Hay alguna manera de conseguir algo tipo FullRow en Excel, q remarque toda la fila y columna para poder estar seguro d leer los datos correctos si desviarse de filas. Cuando te mueves p una tabla tienes indicadores de posición en la celda, y el cabezal d la columna y fila en q te encuentras, pero todas las celdas intermedias no. Si hace falta alto tipo un plugin o lo q sea, también me vale

P2) Se puede desactivar permanentemente la opción automática d "Ajuste de texto"? q hace q al insertar salto de línea dentro d una celda se extienda verticalmente para mostrar todo el contenido?
Se encuentra en Formato de celdas\Alineación\Ajuste texto

Muchas gracias :-)

[mrocf]

Hola! 123. Vamos tema a tema:

P1) Deberás incorporar una pequeña macro como la que sigue:
a) Selecciona la hoja donde requieres el efecto con el botón derecho de tu ratón y elige la opción "Ver código";

b) Te aparecerá un texto como:

Código:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

End Sub

que reemplazarás TOTALMENTE por este otro:

Código:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    Cells.Interior.ColorIndex = xlNone
    Target.EntireRow.Interior.ColorIndex = 38
    Target.EntireColumn.Interior.ColorIndex = 38
End Sub

c) Cierra todas las ventanas del Visual Basic donde te encuentras y retorna al Excel

d) A partir de ese momento, conseguirás el efecto pedido.


P2) No entiendo tu pregunta pero vayan un par de comentarios sobre la base de un ejemplo: a lo mejor te sirven como idea.

a) En una celda cualquiera escribe: Hola<Alt><Enter>Amigos<Enter>
Al presionar simultáneamente las teclas Alt y Enter el cursor se dispone a escribir en la línea siguiente el texto Amigos.
El último Enter te mostrará en una sola celda un texto así:

Hola
Amigos

b) Selecciona esta misma celda y yendo a Formato de celdas\Alineación\Ajuste texto quita el tilde a la casilla de verificación.

c) A consecuencia de lo anterior visualizarás en la celda que entre la palabra Hola y la palabra Amigo aparece un "caracter especial".

Ese caracter es el ascii 10, o sea: el caracter de salto de línea.

En resumen: la duplicación (ó triplicación, etc.) de líneas en una sola celda opera ante la aplicación concurrente de dos efectos:

> la existencia del ascii 10; y
> la indicación de "Ajuste de Texto" a esa celda.

Espero que esto te ayude.

Saludos

[123]

Muchas gracias Mrocf por tu rapidez y claridad ;)

Pero era demasiado bonito para ser verdad , tu código es exactamente lo q busco, pero hay efectos secundarios... :P

1- Se borran todos los colores de relleno de celda no condicionales de la tabla, auque los vuelvas a aplicar, se vuelven a borrar, es una tabla con muchos campos y los colores ayudan mucho a comprender y agilizar el uso de los datos :(

2- La funciones Copia y Pagar se inutilizan :( Esto es fatal, ya q limita muchísimo la capacidad d trabajo

Buscando información de cara a cambiar el color de relleno en tu código, he encontrado algo similar q indican q tiene los mismos efectos secundarios... :( http://office.microsoft.com/es-es/ex...CL100570553082

La verdad es q no entiendo q Microsoft no halla detectado la necesidad del FullRow y haya puesto remedio... :P

Respecto a la P2), gracias p tu respuesta, pero as descrito me problema ;). Yo busco la forma d pedir a Excel q no Ajuste texto automáticamente (en un libro, hoja o en si hace falta Celda p celda pero q baste con deshabilitarlo 1 vez) ya q se reedito la celda vuelve a aplicarlo....

Muchas gracias :)

[123]

Hola de nuevo

He estado haciendo pruebas, ya q el código anterior suprime todos los fondos d celda y me destroza un código d colores.
Pero ya q por ejemplo no uso los Borders d Celda para nada, quería probar a cambiar el código, haciendo q p ejemplo subraye por arriba la fila y p la izquierda la columna d la posición actual. El problema es q no domino suficiente, y nada de lo q encuentro buscando me funciona

Podéis echarme una mano?

Muchas gracias

[mrocf]

Entonces el código que debes incorporar a tu hoja es un poco más elaborado. Algo así como:

Código:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim MiRango As Range
Application.ScreenUpdating = False

With Application.Cells
   .Borders(xlInsideVertical).LineStyle = xlNone
   .Borders(xlInsideHorizontal).LineStyle = xlNone
End With
Set MiRango = Application.Union(Range(Cells(Target.Row, 1), Target), _
   Range(Cells(1, Target.Column), Target))
   
With MiRango.Borders(xlEdgeLeft)
   .LineStyle = xlContinuous
   .Weight = xlMedium
   .ColorIndex = 7
End With
With MiRango.Borders(xlEdgeTop)
   .LineStyle = xlContinuous
   .Weight = xlMedium
   .ColorIndex = 7
End With
With MiRango.Borders(xlEdgeBottom)
   .LineStyle = xlContinuous
   .Weight = xlMedium
   .ColorIndex = 7
End With
With MiRango.Borders(xlEdgeRight)
   .LineStyle = xlContinuous
   .Weight = xlMedium
   .ColorIndex = 7
End With

Application.ScreenUpdating = True
Set MiRango = Nothing
End Sub 

Espero que éste te sea más útil.

Saludos.

[yasave]

me gusto y a mi me sirve pero al momento de la imprsion salen los fondos resaltados
no se si se puede evitar eso porfavor echame una mano

[yasave]

Iniciado por yasave

me gusto y a mi me sirve pero al momento de la imprsion salen los fondos resaltados
no se si se puede evitar eso porfavor echame una mano

por favor respondeme lo mas pronto posible gracias

[mrocf]

Hola! Yasave. Como hablas de "fondo resaltado" imagino que estás utilizando el primero de los códigos propuestos.

A falta de más detalles, la primera idea (la más "barata") que se me ocurre para que no te salgan en la impresión los colores de fondo de las celdas, es que -antes de mandar a imprimir- selecciones una celda "por fuera" del rango de impresión.

Comenta, por favor, si ésto te ha sido útil.
Saludos, Cacho.

[lordraydem]

Buen día brother, el segundo código me funcionó a la perfección.
Tengo dos consultas:
1) En lugar de que los bordes de la celda cambien de color, ¿puede ser que se rellenen de un determinado color ejemplo amarillo?
2) Puedes hacer alguna modificación al código que hiciste, para que se active la función copiar y pegar? Esa función es muy importante. Si no se puede, yo podría poner y quitar el código cuando se realiza una presentación. Ni modo! pero eso sería algo tedioso.

Desde ya muchas gracias.


LR.

[Kasanec]

Maestro, mil gracias