If cell data entered changes value of another cell then run macro

[NathanStadig]

Thank-you for any assistance...

I have an excel spreadsheet where time is calculated.
If time out is entered in cell AA* then cell AC* in that row changes. What I want to do is if cell AC* is > than another cell (AQ1) then msg box appears. I want this to happen once data is entered in cell AA, not if cell AC is directly selected.

All I can figure out now is if cell AC* is selected.

Code I have so far which works great:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 29 And Target.Count = 1 Then Exit Sub
If Target > Range("$AQ$1") Then
    UserForm1.Show
Else:
    Exit Sub
End If
End Sub

 

[VoG]

Try

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 26 Or Target.Count > 1 Then Exit Sub
If Target > Range("$AQ$1") Then UserForm1.Show
End Sub

 

[NathanStadig]

Perfect! Thank-you for the help.

 

[NathanStadig]

Changed it to this code to reflect column AC being the data compared to "AQ1"

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 27 Or Target.Count > 1 Then Exit Sub
If Target.Offset(0, 2) > Range("$AQ$1") Then UserForm1.Show
End Sub

 

[NathanStadig]

Multiple Arguments: If cell data entered changes value of another cell then run macro

Now I'm trying to meet multiple criteria to show error messages.
Tried multiple If/ElseIf but couldn't get it to work.

Private Sub Worksheet_Change(ByVal Target As Range)
  'Is Column 18 Selected?
If Target.Column <> 18 Or Target.Count > 1 Then Exit Sub
  'Once Data is inputted in Column 18 is it less than Column 17?
If Target.Offset(0, -1) > Target Then UserForm2.Show
  'Is Column 27 Selected?
If Target.Column <> 27 Or Target.Count > 1 Then Exit Sub
  'Once Data is inputted in Column 27 is Column 29 greater than 24 Hours?
If Target.Offset(0, 2) > Range("$AQ$1") Then UserForm1.Show
   
End Sub

 

[VoG]

Try

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Select Case Target.Column
    Case 18: If Target.Offset(0, -1) > Target Then UserForm2.Show
    Case 27: If Target.Offset(0, 2) > Range("$AQ$1") Then UserForm1.Show
End Select
End Sub

 

[NathanStadig]

Great! Thank-you