If cell changes and is greater than

[tintin1012000]

Looking for help,

I have a whole number in A1 which has a whole number validation on it

I need a function that will monitor cell A10.
if A10 changes and then becomes a larger number than A1 then I need to change A1 to match A10

similarly if a user tries too input a figure into A1 which is lower than A10 then automatically change A1 to match A10

thanks all

 

[ManiacB]

Try

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A10")) Is Nothing Then
    If Range("A10").Value > Range("A1").Value Then
        Range("A1").Value = Range("A10").Value
    End If
End If
If Not Intersect(Target, Range("A1")) Is Nothing Then
    If Range("A10").Value > Range("A1").Value Then
        Range("A1").Value = Range("A10").Value
    End If
    
End If
End Sub

 

[tintin1012000]

Thanks so much for your help. it worked for me
T

Try

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Target.Worksheet.Range("A:O")) Is Nothing Then
  
    If Range("A10").Value > Range("A1").Value Then Range("A1").Value = Range("A10").Value
     End If
     
     If Not Intersect(Target, Range("A1")) Is Nothing Then
    If Range("A10").Value > Range("A1").Value Then Range("A1").Value = Range("A10").Value
    End If
     
End Sub