hmltnangel
Active Member
- Joined
- Aug 25, 2010
- Messages
- 290
- Office Version
- 365
- Platform
- Windows
Hi all,
Hope you can figure out the last little bit (hopefully) that can combine these queries into one message box. Instead of three boxes, one after the other.
Hope you can figure out the last little bit (hopefully) that can combine these queries into one message box. Instead of three boxes, one after the other.
VBA Code:
Private Sub Worksheet_Change(ByVal Target As Range) 'WS change is whenever a value in target cell is changed
Dim cell As Range
If Target.Value > 0 Then
If Target.DisplayFormat.Interior.Color = 8696052 Then
MsgBox "DH Warning: Individuals Comp Ratio is in excess of 120%. Recommendation is that Merit Award does not exceed 1%", Title:=("Comp Ratio High")
End If
End If
If Intersect(Target, Range("AB4:AB2000")) Is Nothing Then Exit Sub
' Check value in column 22
If Cells(Target.Row, 22).Value = "0 - Too new to rate" Then
MsgBox "Too New To Rate: This employee has not had a formal Performance Appraisal for FY23. Please ensure that the performance is still factored into your merit decision.", Title:=("Performance Rating")
End If
For Each cell In Range("AC4:AC2000")
If cell.Value = "Individual Budget Exceeded" Then
MsgBox "You have exceeded the Individual Budget for this person. Please ensure this is correct before confirming", Title:=("Individual Budget Exceeded")
End If
Next cell
End Sub