Multiple sheets sharing variable data

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 C
(Green, Green, Green)

Any ideas?


---
Message posted from http://www.ExcelForum.com/

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" or
whatever. Copy visible cells. Paste them into the relevant column.

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

Alf


---
Message posted from http://www.ExcelForum.com/

Thanks AlfD!!! Works like a charm!


---
Message posted from http://www.ExcelForum.com/