Foros del Web - FullRow en Excel Resaltar columna y fila en Tablas

Foros del Web (http://www.forosdelweb.com/)

- Ofimática (http://www.forosdelweb.com/f90/)

- - FullRow en Excel Resaltar columna y fila en Tablas (http://www.forosdelweb.com/f90/fullrow-excel-resaltar-columna-fila-tablas-547553/)

FullRow en Excel Resaltar columna y fila en Tablas

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 :-)

FullRow en Excel Resaltar columna y fila en Tablas

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í:

Cita:

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

Re: FullRow en Excel Resaltar columna y fila en Tablas

Muchas gracias Mrocf por tu rapidez y claridad ;)

Pero era demasiado bonito para ser verdad :borracho:, 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.... :molesto:

Muchas gracias :)

Re: FullRow en Excel Resaltar columna y fila en Tablas

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 :borracho:

Podéis echarme una mano?

Muchas gracias :-)

Re: FullRow en Excel Resaltar columna y fila en Tablas

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. :si: