Multiple sheets sharing variable data

[x65140]

Sheet1, Column A contains variable data entered. (Red, Blue, Green
Blue, Green, Red, Green Red, Blue)

When the data is entered into Sheet1, I want it to appear in Sheet2 as
Column A (Red, Red, Red), Column B (Blue, Blue, Blue), Column
(Green, Green, Green)

Any ideas

 

[AlfD]

Hi!

I recorded this simple macro:

Sub SplitColours()
'
' SplitColours Macro
' Macro recorded 29/06/2004
' Keyboard Shortcut: Ctrl+Shift+S
'
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="Blue"
Range("A2:A100").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("Sheet2").Select
Range("A2").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Selection.AutoFilter Field:=1, Criteria1:="Red"
Range("A2:A100").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Range("B2").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Selection.AutoFilter Field:=1, Criteria1:="Green"
Range("A2:A100").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Range("C2").Select
ActiveSheet.Paste
End Sub

All it does is us Data > Filter > AutoFilter to select the "Red" o
whatever. Copy visible cells. Paste them into the relevant column.

Not the most elegant thing, but a quick fix which works?

Al

 

[x65140]

Thanks AlfD!!! Works like a charm