RED cell in ROW move to Sheet2

[RayD]

Hello everyone,

I had a tremendous amount of help with this macro in the last couple of days
from many experts here in this group, but as luck would have it, it does not
work with conditional formatting (CF). I did not state this in the
beginning... The question becomes is it possible to get this macro to work
with conditional formatting (CF), and.... how does one get there (if
possible)?? - ....Thanks

Sub Macro1()
Sheets("Sheet2").Range("2:2000").Clear
Sheets("Sheet2").Range("2:2000").RowHeight = 12.75
For Each c In [$H$5:$H$2000]
x = Sheets("sheet2").Cells(65536, 1).End(xlUp).Row + 1
If c.Interior.ColorIndex = 3 Then
c.EntireRow.Copy Sheets("sheet2").Cells(x, 1)
End If
Next
End Sub
...Ray

 

[Gord Dibben]

Ray

You have previously been directed to Chip Pearson's website.

Suggest you visit.

http://www.cpearson.com/excel/CFColors.htm

Gord Dibben XL2002

 

[RayD]

Gord,

You are incorrect in your statement that I have been directed to Chip
Persons website. but I have been there from other posts. This project is way
over my capabilities, so I will let it rest... I would like to thank to you
and everyone that chimed in. -Ray

Ray

You have previously been directed to Chip Pearson's website.

Suggest you visit.

http://www.cpearson.com/excel/CFColors.htm

Gord Dibben XL2002

Hello everyone,

I had a tremendous amount of help with this macro in the last couple of days
from many experts here in this group, but as luck would have it, it does not
work with conditional formatting (CF). I did not state this in the
beginning... The question becomes is it possible to get this macro to work
with conditional formatting (CF), and.... how does one get there (if
possible)?? - ....Thanks

Sub Macro1()
Sheets("Sheet2").Range("2:2000").Clear
Sheets("Sheet2").Range("2:2000").RowHeight = 12.75
For Each c In [$H$5:$H$2000]
x = Sheets("sheet2").Cells(65536, 1).End(xlUp).Row + 1
If c.Interior.ColorIndex = 3 Then
c.EntireRow.Copy Sheets("sheet2").Cells(x, 1)
End If
Next
End Sub
..Ray

...Ray

 

[Gord Dibben]

Ray

Please check out this message from November 7th. Posted in excel.misc

(e-mail address removed)

And your reply to that posting.

(e-mail address removed)

Gord

Gord,

You are incorrect in your statement that I have been directed to Chip
Persons website. but I have been there from other posts. This project is way
over my capabilities, so I will let it rest... I would like to thank to you
and everyone that chimed in. -Ray

Ray

You have previously been directed to Chip Pearson's website.

Suggest you visit.

http://www.cpearson.com/excel/CFColors.htm

Gord Dibben XL2002

Hello everyone,

I had a tremendous amount of help with this macro in the last couple of days
from many experts here in this group, but as luck would have it, it does not
work with conditional formatting (CF). I did not state this in the
beginning... The question becomes is it possible to get this macro to work
with conditional formatting (CF), and.... how does one get there (if
possible)?? - ....Thanks

Sub Macro1()
Sheets("Sheet2").Range("2:2000").Clear
Sheets("Sheet2").Range("2:2000").RowHeight = 12.75
For Each c In [$H$5:$H$2000]
x = Sheets("sheet2").Cells(65536, 1).End(xlUp).Row + 1
If c.Interior.ColorIndex = 3 Then
c.EntireRow.Copy Sheets("sheet2").Cells(x, 1)
End If
Next
End Sub
..Ray

..Ray

Gord Dibben XL2002