RED cell in ROW move to Sheet2

  • Thread starter Thread starter RayD
  • Start date Start date
R

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,

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
Click to expand...
Click to expand...

...Ray
 
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
Click to expand...
Click to expand...

..Ray
Click to expand...

Gord Dibben XL2002
 
Back
Top