If row is green copy all date to another row

[Adam_98]

I'm quite new to Excel and I'm trying to create a document to help me for work. I have a main sheet where all my data is inputted into. The rows in this data will be Green, Amber or red depending on the status. What my goal is, when a row is green, it copies the data from one sheet to another. Is there any way to do this and is any further information needed?

 

[faraz502]

What are your criteria for green and red colors?
I Mean what is you enter to change color.

 

[Adam_98]

What are your criteria for green and red colors?
I Mean what is you enter to change color.

The business is a collection service so if customer has agreed for a pickup it will be green. If we're waiting on a response from the customer it will be amber and if the customer doesn't want the pickup we will fill this red. A record of lost pickup is needed on the main sheet.

 

[faraz502]

please share your data sheet so I will better understand and give some help to you.

 

[Adam_98]

quotes and float sheets.xlsx

1drv.ms

Thank you I appreciate it

 

[faraz502]

Dear,

Please check the attached sheet.
1st select quotes sheet then press Ctrl+M for the result

 

[Adam_98]

Dear,

Please check the attached sheet.
1st select quotes sheet then press Ctrl+M for the result

There hasn't been a sheet attached to the response.

 

[faraz502]

unable to attached file........

 

[Fluff]

Please post you solution to the board, so that everyone can see, as per forum rules.

 

[faraz502]

1st step; insert a new tab in your workbook give Name (Spread Data)

2nd Step; Press Alt+F11
3rd Step; select insert and Add a module

4th Step; Duble click on Module
5th Step; Copy B/M Code and past in module

Sub Macro3()
'
' Macro3 Macro
'

'
Application.ScreenUpdating = False
Sheets("quotes").Select
Range("A4:AA4").Select
Selection.AutoFilter
Selection.AutoFilter
Range("A4").Select
ActiveSheet.Range("$A$4:$AA$500").AutoFilter Field:=1, Criteria1:=RGB(255, 0 _
, 0), Operator:=xlFilterCellColor
Range("A4").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("Spread Data").Select
Range("A1").Select
ActiveSheet.Paste
Selection.Columns.AutoFit
Sheets("quotes").Select
Range("A4:AA4").Select
Selection.AutoFilter
Sheets("Spread Data").Select
Range("A1").Select
End Sub
6th Step; Go to developer tab and click on macros and next click on Options.

and in Last Create Shortcut key