What's Wrong?
I'm trying to color the background of a row if a certain
set of conditions exists. I don't know what's wrong with this: For i = rng.Row To 1 Step -1 If Cells(i, 9).Value = Cells(i - 1, 10).Value _ And Cells(i, 10).Value = Cells(i - 1, 9).Value _ And Cells(i, 1).Value = Cells(i - 1, 1).Value _ And Cells(i, 2).Value = Cells(i - 1, 2).Value _ Then Cells(i, 1).EntireRow.Interior.ColorIndex = 35 end if Next I've tried taking out the "end if", including just "end", but nothing works??? I get a 1004 error. |
What's Wrong?
Hi
just remove the 'End if' statement -- Regards Frank Kabel Frankfurt, Germany "Pam" schrieb im Newsbeitrag ... I'm trying to color the background of a row if a certain set of conditions exists. I don't know what's wrong with this: For i = rng.Row To 1 Step -1 If Cells(i, 9).Value = Cells(i - 1, 10).Value _ And Cells(i, 10).Value = Cells(i - 1, 9).Value _ And Cells(i, 1).Value = Cells(i - 1, 1).Value _ And Cells(i, 2).Value = Cells(i - 1, 2).Value _ Then Cells(i, 1).EntireRow.Interior.ColorIndex = 35 end if Next I've tried taking out the "end if", including just "end", but nothing works??? I get a 1004 error. |
What's Wrong?
For i = rng.Row To 1 Step -1
If Cells(i, 9).Value = Cells(i - 1, 10).Value _ And Cells(i, 10).Value = Cells(i - 1, 9).Value _ And Cells(i, 1).Value = Cells(i - 1, 1).Value _ And Cells(i, 2).Value = Cells(i - 1, 2).Value _ Then Cells(i, 1).EntireRow.Interior.ColorIndex = 35 end if Next or For i = rng.Row To 1 Step -1 If Cells(i, 9).Value = Cells(i - 1, 10).Value _ And Cells(i, 10).Value = Cells(i - 1, 9).Value _ And Cells(i, 1).Value = Cells(i - 1, 1).Value _ And Cells(i, 2).Value = Cells(i - 1, 2).Value _ Then Cells(i, 1).EntireRow.Interior.ColorIndex = 35 Next Both compile fine for me. However, I assume this is part of a larger procedure, so it could be affected by code I can not see. -- Regards, Tom Ogilvy "Pam" wrote in message ... I'm trying to color the background of a row if a certain set of conditions exists. I don't know what's wrong with this: For i = rng.Row To 1 Step -1 If Cells(i, 9).Value = Cells(i - 1, 10).Value _ And Cells(i, 10).Value = Cells(i - 1, 9).Value _ And Cells(i, 1).Value = Cells(i - 1, 1).Value _ And Cells(i, 2).Value = Cells(i - 1, 2).Value _ Then Cells(i, 1).EntireRow.Interior.ColorIndex = 35 end if Next I've tried taking out the "end if", including just "end", but nothing works??? I get a 1004 error. |
All times are GMT +1. The time now is 03:00 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com