Macro to copy Yellow cells to another sheet

[tonywatsonhelp]

Hi Everyone,
OK soi'm looking for a macro that can copy the cells i highlight in yellow into another sheet.

I have a shhet called raw data, it holds a lot of data

to make it quick and simple i want to go down the list an fill the cells i want yellow
so there are a few rules that make this simpler

The columns are coulmn B to F
every row is coloured yellow b to f if i want it so you can just look down column B for example,

there will be more than one lot of yellow rows I need to copy over all of them

Once copied it needs to go into sheet "Lists" column A and last row+1

thats it

please help if you can

thanks

Tony

 

[Fluff]

Do you just want to copy columns B:F?

 

[tonywatsonhelp]

Hi Fluff,
yes

 

[Fluff]

Ok, how about

   With ActiveSheet
      .Range("B1:F1").AutoFilter 1, RGB(255, 255, 0), xlFilterCellColor
      .AutoFilter.Range.Offset(1).Copy Sheets("Lists").Range("A" & Rows.Count).End(xlUp).Offset(1)
      .AutoFilterMode = False
   End With

 

[tonywatsonhelp]

Excellent,
Didn't know we could filter by cell colour
Thanks
Tony

 

[Fluff]

You're welcome & thanks for the feedback.