Eliminar el color de todas las celdas pares de una columna

Posted by Labels: at

 Aquí tienes un macro en VBA para Excel que eliminará el color de fondo de todas las celdas pares de una columna específica:



Sub QuitarColorCeldasPares()

    Dim rng As Range

    Dim columna As Long

    Dim ultimaFila As Long

    Dim fila As Long

    

    ' Especifica la columna de la que deseas eliminar el color de las celdas pares

    columna = 1 ' Cambia el número de columna según sea necesario (por ejemplo, 1 para la columna A, 2 para la B, etc.)

    

    ' Encuentra la última fila de la columna especificada

    ultimaFila = Cells(Rows.Count, columna).End(xlUp).Row

    

    ' Recorre las filas de la columna y elimina el color de fondo de las celdas pares

    For fila = 1 To ultimaFila Step 2

        Cells(fila, columna).Interior.ColorIndex = xlNone

    Next fila

End Sub

Este macro eliminará el color de fondo de todas las celdas pares en la columna especificada. Asegúrate de ajustar la variable "columna" al número de la columna en la que deseas eliminar el color (por ejemplo, "1" para la columna A, "2" para la columna B, etc.). Una vez que hayas ajustado la columna según tus necesidades, ejecuta el macro y las celdas pares en esa columna perderán su color de fondo.



____
NOTA

En realidad elimina el color a las impares, el siguiente codigo a las pares, sigo trabajando en eso 

Sub QuitarColorCeldasImpares()

    Dim rng As Range

    Dim columna As Long

    Dim ultimaFila As Long

    Dim fila As Long

    

    ' Especifica la columna de la que deseas eliminar el color de las celdas impares

    columna = 1 ' Cambia el número de columna según sea necesario (por ejemplo, 1 para la columna A, 2 para la B, etc.)

    

    ' Encuentra la última fila de la columna especificada

    ultimaFila = Cells(Rows.Count, columna).End(xlUp).Row

    

    ' Recorre las filas de la columna y elimina el color de fondo de las celdas impares

    For fila = 2 To ultimaFila Step 2

        Cells(fila, columna).Interior.ColorIndex = xlNone

    Next fila

End Sub

Back to Top