Microsoft Office Forums - View Single Post - [Solved] Extracting colored cells from one spreadsheet into another

NoSparks · 09-15-2016, 08:41 AM

Maybe something like this... you'll need to deal with the things you're not telling us.

Code:

Sub CopyRedValues()

    Dim cel As Range
    Dim writerow As Long

writerow = 2    

For Each cel In Sheets("source sheet name").UsedRange
    If cel.Interior.Color = vbRed Then
        cel.Copy
        destinationworkbook.Sheets("ANOTHER").Range("A" & writerow).PasteSpecial xlValues
        writerow = writerow + 1
    End If
Next cel

Application.ScreenUpdating = True

End Sub