Vba code to loop A:A and change value in current row

Hi I am trying to make a macro to loop through Column A , which is a date field dd/mm/yyyy
when date changes put value in corresponding row to 100
column to change is L

any help will be appreciated
Graham'

Attach a sample workbook demonstrating what you have described and mock-up your results.

Go Advanced -> Manage Attachments -> Upload

here is a test sample
thank you in advance
Graham

Originally Posted by Grahamfeeley

here is a test sample
thank you in advance
Graham

What do you mean by the value needs to change when the date changes?

What does it need to change to? Mock-up the expected values.

EDIT - Unless Norie's solution works for you.

Norie this code didnt work
(1) it said variable not declared so i put in dim arrdata as range
then it said something regarding Array
sorry
Graham

Sub test()
    Dim x As String
    With Range("a2", Range("a" & Rows.Count).End(xlUp))
        x = .Columns(12).Address
        .Columns(12) = Evaluate("if(" & .Address & "<>" & .Offset(-1).Address & ",100,if(" & x & "<>""""," & x & ",""""))")
    End With
End Sub

Thanks Jindon works perfectly and it is fast as well
Much Appreciated
Regards
Graham