Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
![]()
Hi
I am using the follwoing code, For rwIndex 4 to 100 If Month(Worksheets("Sheet1").Cells(rwIndex, 12).Value) _ Month(Mydate) Then .Interior.Color = RGB(255, 0, 0) ElseIf Month(Worksheets("Sheet1").Cells(rwIndex, 12).Value) = "" Then Worksheets("Sheet1").Cells(rwIndex, 12).Interior.Color = 2 Else Worksheets("Sheet1").Cells(rwIndex, 12).Interior.Color = 2 End If System gives me 'Complie Error' Else without if. Please advise, what is wrong with my code |
#2
![]()
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
![]()
Probably giving you an arbitrary error. Looks like the real problem
is in you For syntax. For rwIndex 4 to 100 shoudl be For rwIndex = 4 to 100 ub wrote: Hi I am using the follwoing code, For rwIndex 4 to 100 If Month(Worksheets("Sheet1").Cells(rwIndex, 12).Value) _ Month(Mydate) Then .Interior.Color = RGB(255, 0, 0) ElseIf Month(Worksheets("Sheet1").Cells(rwIndex, 12).Value) = "" Then Worksheets("Sheet1").Cells(rwIndex, 12).Interior.Color = 2 Else Worksheets("Sheet1").Cells(rwIndex, 12).Interior.Color = 2 End If System gives me 'Complie Error' Else without if. Please advise, what is wrong with my code |
#3
![]()
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
![]()
Hi ub.
If Month(Worksheets("Sheet1").Cells(rwIndex, 12).Value) _ Month(Mydate) Then .Interior.Color = RGB(255, 0, 0) If and Then on the same row, end the IF instruction. For rwindex = 4 To 100 If Month(Cells(rwindex, 12).Value) Month(Mydate) Then Cells(rwindex, 12).Interior.Color = RGB(255, 0, 0) ElseIf Month(Cells(rwindex, 12).Value) = "" Then Cells(rwindex, 12).Interior.ColorIndex = 6 Else Cells(rwindex, 12).Interior.ColorIndex = 6 End If Next Regards Eliano "ub" wrote: Hi I am using the follwoing code, For rwIndex 4 to 100 If Month(Worksheets("Sheet1").Cells(rwIndex, 12).Value) _ Month(Mydate) Then .Interior.Color = RGB(255, 0, 0) ElseIf Month(Worksheets("Sheet1").Cells(rwIndex, 12).Value) = "" Then Worksheets("Sheet1").Cells(rwIndex, 12).Interior.Color = 2 Else Worksheets("Sheet1").Cells(rwIndex, 12).Interior.Color = 2 End If System gives me 'Complie Error' Else without if. Please advise, what is wrong with my code |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Wild Cards with IF stmt | Excel Worksheet Functions | |||
Rounding down from .9 in an IF stmt | Excel Worksheet Functions | |||
if stmt trouble | Excel Discussion (Misc queries) | |||
URGENT need help with if/then stmt. | Excel Worksheet Functions | |||
IF Stmt. for cumulative commissions. | Excel Discussion (Misc queries) |