Resaltar filas

Paso 1: Abrir el Editor de VBA

1. Abre tu archivo de Excel.

2. Presiona Alt + F11 para abrir el Editor de VBA.

Paso 2: Insertar el código VBA

1. En el Editor de VBA, busca ThisWorkbook en el Explorador de Proyectos.

2. Haz doble clic en ThisWorkbook.

3. 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

1. Guarda el proyecto (Ctrl + S).

2. 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.