Quicky: vba IF cell.offset.month = Then...

[ClimoC]

Hello

Just having a little trouble with syntax. Just need to do this:

"If the month in date cell in col G is the same month as shown in cell M1, Then (proceed)"

It's got an OFFSET because it is running through rows in a table and checking two conditions. Here's the For and If statement which I need corrected:

For Each zp In Range("A6:A500")
    If zp.Offset(0, 8).Font.Strikethrough = False And zp.Offset(0, 6).Month = Range("Schedule!R5C45").Month Then
        zp.Value = True
        zp.Font.ColorIndex = 10
        Else
        zp.Value = False
    End If
Next

Here though it is looking at cell AS5, which is the first of the month which is set by cell M1. So It can either look at AS5 or at M1, the answer (the month) will be the same in both those cells.

Anyone help?

Cheers

 

[RoryA]

Month is a function, not a property of a Range object:

    If zp.Offset(0, 8).Font.Strikethrough = False And Month(zp.Offset(0, 6).Value) = Month(Range("Schedule!R5C45").Value) Then

 

[ClimoC]

Thanks Rory - that looks better, but it still didn't work.

Method 'Range' of Object '_Global' failed

 

[RoryA]

Try:

    If zp.Offset(0, 8).Font.Strikethrough = False And Month(zp.Offset(0, 6).Value) = Month(Sheets("Schedule").Cells(5, 45).Value) Then