Excel Column Change

[jammmie999]

Hello,

Could someone please write me a quick macro that when I edit a cell in Column A it checks the value I inputted and displays a message if it is lower than the last value. E.G.
A1 - 0
A2 - 1
A3 - 2
A4 - 0 - Display a message when this value is entered.

All I have at the moment is this, and I cant seem to get it to work properly with my requirements.

Private Sub Worksheet_Change(ByVal Target As Range)


If Target.Address = "$A$1" Then


        MsgBox "You just changed " & Target.Address
        
End If
        

End Sub

Thanks

[Richard Buttrey]

Hi,

One way

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        If Target < Target.Offset(-1, 0) Then
            MsgBox "your message"
        End If
    End If
End Sub

Rgds

[teylyn]

Richard, I came up with something similar, but I added a check to see if Target is in Row 1, otherwise the offset will bomb.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
    If Target.Address = "$A$1" Then Exit Sub
    If Target.Value < Target.Offset(-1, 0).Value Then
        MsgBox "Value is less than previous cell"
    End If
End If
End Sub

Then again, Data Validation could be used with a similar result, VBA-free.

[Richard Buttrey]

Hi Teylyn,

Yes agreed and a good point

Rgds

[martindwilson]

you can do it with data validation
in a2 validate as allow/custom
=A2>=A1
drag down

[jammmie999]

Thanks for the great response guys. Thanks especially to teylyn and Richard.