Macro para copiar y pegar según el color

Necesito de la colaboración de ustedes; requiero una forma automatizada de copiar y pegar en valores cada celda que tenga el color amarillo de la columna A, esto con el fin de no realizar celda por celda esta operación, no se puede pasar a valores toda la columna ya que hay formulas que no se deben borrar

1 Respuesta

Respuesta

Te anexo la macro para revisar las celdas de color amarillo (color estándar número 6)

Sub Pegar_Valores()
    For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
        If Cells(i, "A").Interior.ColorIndex = 6 Then
            Cells(i, "A").Value = Cells(i, "A").Value
        End If
    Next
    MsgBox "Fin"
End Sub


'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. 
'.[Avísame cualquier duda

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas