Anónimo
Resaltar filas
Estimado txolovinsky, mi pregunta es referida a excel:
Tengo una base de datos en excel que tiene aproximadamente 300 filas y 60 columnas de diferente información, en una ocasión vi un trabajo en una oficina en la cual se pincha una celda y se resalta toda la fila en la cual se encuentra la celda.
La pregunta es ¿Me podrías enseñar o guiar para lograr hacer que la fila se reasalte al pinchar una celda? (Estimo yo que debe ser una macro o algo parecido).
La página que vi tenia un color amarillo pálido y cuando pinchabas la celda. La fila completa se ponía de un color amarillo fuerte.
De antemano muchas Gracias.
Pablo
Tengo una base de datos en excel que tiene aproximadamente 300 filas y 60 columnas de diferente información, en una ocasión vi un trabajo en una oficina en la cual se pincha una celda y se resalta toda la fila en la cual se encuentra la celda.
La pregunta es ¿Me podrías enseñar o guiar para lograr hacer que la fila se reasalte al pinchar una celda? (Estimo yo que debe ser una macro o algo parecido).
La página que vi tenia un color amarillo pálido y cuando pinchabas la celda. La fila completa se ponía de un color amarillo fuerte.
De antemano muchas Gracias.
Pablo
Respuesta de Pablo Díaz
1
Paso 1: Abrir el Editor de VBA
Abre tu archivo de Excel.
Presiona Alt + F11 para abrir el Editor de VBA.
Paso 2: Insertar el código VBA
En el Editor de VBA, busca ThisWorkbook en el Explorador de Proyectos.
Haz doble clic en ThisWorkbook.
Copia y pega el siguiente código en la ventana de código de ThisWorkbook:
vba
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim lastRow As Long, lastColumn As Long
' Remover el color de todas las celdas
Sh.Cells.Interior.ColorIndex = xlNone
' Obtener la última fila y columna utilizadas
lastRow = Sh.Cells(Sh.Rows.Count, "A").End(xlUp).Row
lastColumn = Sh.Cells(1, Sh.Columns.Count).End(xlToLeft).Column
' Aplicar color a la fila seleccionada
If Not Intersect(Target, Sh.Range("A1", Sh.Cells(lastRow, lastColumn))) Is Nothing Then
Sh.Rows(Target.Row).Interior.Color = RGB(255, 255, 0) ' Amarillo fuerte
End If
End Sub
Paso 3: Ajustar los colores
En el código, RGB(255, 255, 0) establece el color amarillo fuerte para la fila seleccionada. Puedes ajustar estos valores para cambiar el color si lo deseas.
Paso 4: Guardar y cerrar
Guarda el proyecto (Ctrl + S).
Cierra el Editor de VBA (Alt + Q).
Paso 5: Probar la funcionalidad
Vuelve a tu hoja de Excel y selecciona cualquier celda. Deberías ver que la fila se resalta con el color amarillo fuerte.
Este código hará que cada vez que selecciones una celda, la fila correspondiente se resalte.