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

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