Tiny macro won't write cell value based on comparing dates

Hi,

This is a tiny macro but I can't get it to work.

It's trying to compare if the months in columns C & D are the same. If TRUE then if column F > 0 then write 1 into column G on the relevant row. If FALSE do nothing.

I've attached a sample file with the code and some data to help you to see what I am doing.

Appreciate if anyone can find the problem with my newbie macro.

thanks

Hi Poulan

Try this

Sub Test()
Dim y As Long, LastRow As Long
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    For y = LastRow To 2 Step -1
        Select Case Month(Cells(y, "C").Value)
            Case Is = Month(Cells(y, "D").Value)
                If Cells(y, "F").Value > 0 Then
                    Cells(y, "AG").Value = 1
                End If
        End Select
    Next y
End Sub

John

Hi Poulan

Yes it worked for me. You have one record that meets the criteria. See attached.

Let me know of issues.

John

How about this formula in all of the rows of column F?

=IF(MONTH(C1)=MONTH(D1),1,"")