Macro para seleccionar todas las filas que tengan un celda de un color especifico

Posted by Labels: at

 


Aquí tienes un macro en VBA para Excel que seleccionará todas las filas que tengan al menos una celda con color de fondo amarillo:



Sub SeleccionarFilasConColorAmarillo()

    Dim cel As Range

    Dim rng As Range

    Dim fila As Range

    

    ' Definir el rango de trabajo como todas las celdas de la hoja activa

    Set rng = ActiveSheet.UsedRange

    

    ' Inicializar el rango de celdas a seleccionar

    Set rngSeleccionado = Nothing

    

    ' Recorrer todas las celdas del rango

    For Each cel In rng

        ' Verificar si el color de fondo de la celda es amarillo (RGB(255, 255, 0))

        If cel.Interior.Color = RGB(255, 255, 0) Then

            ' Agregar la fila de la celda al rango a seleccionar

            If rngSeleccionado Is Nothing Then

                Set rngSeleccionado = cel.EntireRow

            Else

                Set rngSeleccionado = Union(rngSeleccionado, cel.EntireRow)

            End If

        End If

    Next cel

    

    ' Seleccionar el rango de filas con celdas amarillas

    If Not rngSeleccionado Is Nothing Then

        rngSeleccionado.Select

    Else

        MsgBox "No se encontraron filas con celdas de color amarillo.", vbInformation

    End If

End Sub



Este macro recorre todas las celdas de la hoja activa y selecciona las filas que contienen al menos una celda con color de fondo amarillo (RGB(255, 255, 0)). Después de ejecutar este macro, todas las filas con celdas amarillas estarán seleccionadas.

Back to Top