I have a spreadsheet and certain cells are coloured to represent certain
criterier, I would like to display all of one coloured cells to show status
of that colour, say I want all the red cells locations to be displayed so
that i can check the status.
Alan

if the cells are colored with conditional formats you can use the same
condtions to countif or sumif...if you have coloured manually you will have
to wait till somone posts a link to the solution....
--
paul

remove nospam for email addy!



"fomula problems" wrote:

I have a spreadsheet and certain cells are coloured to represent certain
criterier, I would like to display all of one coloured cells to show status
of that colour, say I want all the red cells locations to be displayed so
that i can check the status.
Alan

What do you mean exactly by displayed?

--
HTH

Bob Phillips

(replace somewhere in email address with googlemail if mailing direct)

"fomula problems" wrote in
message ...
I have a spreadsheet and certain cells are coloured to represent certain
criterier, I would like to display all of one coloured cells to show
status
of that colour, say I want all the red cells locations to be displayed so
that i can check the status.
Alan

The spread sheet has so many cells and takes ages to go through and then make
a note of the ones that are coloured is it possible to getthe different
coloured displayed on a seperate spreadsheet with the location that they come
from or is that too complicated.

"Bob Phillips" wrote:

What do you mean exactly by displayed?

--
HTH

Bob Phillips

(replace somewhere in email address with googlemail if mailing direct)

"fomula problems" wrote in
message ...
I have a spreadsheet and certain cells are coloured to represent certain
criterier, I would like to display all of one coloured cells to show
status
of that colour, say I want all the red cells locations to be displayed so
that i can check the status.
Alan

No, it is relatively simple

Sub GetColouredCells()
Dim i As Long
Dim cell As Range

With Worksheets("Sheet1")
For Each cell In .UsedRange
If cell.Interior.ColorIndex = 3 Then
i = i + 1
Worksheets("Sheet2").Cells(i, "A").Value = cell.Address
Worksheets("Sheet2").Cells(i, "B").Value = cell.Value
End If
Next cell
End With

End Sub

--
HTH

Bob Phillips

(replace somewhere in email address with googlemail if mailing direct)

"fomula problems" wrote in
message ...
The spread sheet has so many cells and takes ages to go through and then
make
a note of the ones that are coloured is it possible to getthe different
coloured displayed on a seperate spreadsheet with the location that they
come
from or is that too complicated.

"Bob Phillips" wrote:

What do you mean exactly by displayed?

--
HTH

Bob Phillips

(replace somewhere in email address with googlemail if mailing direct)

"fomula problems" wrote in
message ...
I have a spreadsheet and certain cells are coloured to represent
certain
criterier, I would like to display all of one coloured cells to show
status
of that colour, say I want all the red cells locations to be displayed
so
that i can check the status.
Alan

Cheers Bob for the help I'm sure that it is the formula, have enclosed a
sample of my spreadsheet, would you put the formula in and have it display
results in sheet 2.
Thanks for help.

"Bob Phillips" wrote:

No, it is relatively simple

Sub GetColouredCells()
Dim i As Long
Dim cell As Range

With Worksheets("Sheet1")
For Each cell In .UsedRange
If cell.Interior.ColorIndex = 3 Then
i = i + 1
Worksheets("Sheet2").Cells(i, "A").Value = cell.Address
Worksheets("Sheet2").Cells(i, "B").Value = cell.Value
End If
Next cell
End With

End Sub

--
HTH

Bob Phillips

(replace somewhere in email address with googlemail if mailing direct)

"fomula problems" wrote in
message ...
The spread sheet has so many cells and takes ages to go through and then
make
a note of the ones that are coloured is it possible to getthe different
coloured displayed on a seperate spreadsheet with the location that they
come
from or is that too complicated.

"Bob Phillips" wrote:

What do you mean exactly by displayed?

--
HTH

Bob Phillips

(replace somewhere in email address with googlemail if mailing direct)

"fomula problems" wrote in
message ...
I have a spreadsheet and certain cells are coloured to represent
certain
criterier, I would like to display all of one coloured cells to show
status
of that colour, say I want all the red cells locations to be displayed
so
that i can check the status.
Alan

where?

--
HTH

Bob Phillips

(replace somewhere in email address with googlemail if mailing direct)

"fomula problems" wrote in
message ...
Cheers Bob for the help I'm sure that it is the formula, have enclosed a
sample of my spreadsheet, would you put the formula in and have it display
results in sheet 2.
Thanks for help.

"Bob Phillips" wrote:

No, it is relatively simple

Sub GetColouredCells()
Dim i As Long
Dim cell As Range

With Worksheets("Sheet1")
For Each cell In .UsedRange
If cell.Interior.ColorIndex = 3 Then
i = i + 1
Worksheets("Sheet2").Cells(i, "A").Value = cell.Address
Worksheets("Sheet2").Cells(i, "B").Value = cell.Value
End If
Next cell
End With

End Sub

--
HTH

Bob Phillips

(replace somewhere in email address with googlemail if mailing direct)

"fomula problems" wrote in
message ...
The spread sheet has so many cells and takes ages to go through and
then
make
a note of the ones that are coloured is it possible to getthe
different
coloured displayed on a seperate spreadsheet with the location that
they
come
from or is that too complicated.

"Bob Phillips" wrote:

What do you mean exactly by displayed?

--
HTH

Bob Phillips

(replace somewhere in email address with googlemail if mailing
direct)

"fomula problems" wrote
in
message ...
I have a spreadsheet and certain cells are coloured to represent
certain
criterier, I would like to display all of one coloured cells to
show
status
of that colour, say I want all the red cells locations to be
displayed
so
that i can check the status.
Alan