a subroutine to check entries

say, in column A to D, I want to check if the data entered in A1 is higher than D1 -
meaning: value at column A should not be higher than corresponding row in column D.
is it Workbook_Change or Workbook_SelectionChange that will manage the checking?
how do we write the code?
many many thanks

Hi LFKim2018,

That should be in the vba part of the sheet you want to check

Private Sub Worksheet_Change(ByVal Target As Range)
 
End Sub

Grtz

Mr. Joske920
thank you for your reply.
could you help me with the code for checking row in column A should not be higher than corresponding row in column D
many thanks..

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A:D")) is Nothing Then     '*** this syntax is wrong pls correct
         If Target.row("A") > Target.row("D") Then
             MsgBox "Cell A greater than Cell D Not allowed!", vbCritical
             Exit Sub
        End If 
    End If
End Sub

Mr, Joske920
if this not a violation of the forum policy..
can I request for one more check on the code?
if target is greater than the above row - not allowed.
ex: A3 > A2 or A10>A9 = not allowed
many many thanks..

I think I got it.
kindly confirm...
many thanks

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        If IsNumeric(Target.Value) And Target.Row > 1 Then
            If Target > Target.Offset(-1, 0) Then
                MsgBox "Cell A" & Target.Row & " greater than Cell A" & Target.Row - 1 & " Not allowed!", vbCritical
                Target.Value = vbNullString
                Target.Select
                Exit Sub
            End If
        End If
    End If
End Sub

Hi LFKim2018,

Did you want to check if the A cell to be checked against D or not ?
you have removed that and replaced by checking the previous row in the same column

also your change is not doing what you want Target should be NOT greater then previous row

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Range("A:A")) Is Nothing Then
      If IsNumeric(Target.Value) Then
         If Target > Target.Offset(0, 3) Target < Target.Offset(-1, 0) Then
            MsgBox "Cell A" & Target.Row & " greater than Cell D" & Target.Row & " Not allowed!", vbCritical
            Target.Value = vbNullString
            Target.Select
            Exit Sub
         End If
      End If
   End If
End Sub

Please try to completely explain your needs, of what you expect it to do.
That way we can make it do that from the first time we put time in it

Grtz

thank you for your reply.
the A to D check is in one sheet. It worked just fine. (thank you..)
the checking of A column only is in another (the latter code).
so two codes.
hope it is clear.
many thanks..

Mr. Joske920
it worked perfectly!
thank you very very much..