Extracting colored cells from one spreadsheet into another

NoSparks · #7 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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Can I autofill cells using percentages from another spreadsheet?	Baldeagle	Excel Programming	25	03-24-2016 03:05 AM
autofill cells using percentages from another spreadsheet	Baldeagle	Excel Programming	1	01-15-2015 01:28 PM
predefine thick border colored lines for highlighted cells	dylansmith	Excel	0	09-05-2014 07:49 AM
Extracting data from ppt graphs without linked spreadsheet	Abol	PowerPoint	2	06-27-2013 07:42 AM