C
Chris
I have the following Module programmed in Excel and it
does exactly what I need it to do except run when ever a
cell is updated.
I need it to run whenever B9 -> B60 is changed or E-> E60
is changed. What do I need to do?
-Chris
Sub CheckStatus()
Dim H33, H34, Status1, Status2
H33 = Cells(33, 8).Value
H34 = Cells(34, 8).Value
Select Case H33
Case 7
Status1 = "Verbal"
Case 8
Status1 = "Written"
Case 9
Status1 = "Termination"
Case Else
Status1 = ""
End Select
Select Case H34
Case 7
Status2 = "Verbal"
Case 8 To 11
Status2 = "Written"
Case 12
Status2 = "Termination"
Case Else
Status2 = ""
End Select
If H33 > H34 Then
Range("H36").Value = Status1
Else
Range("H36").Value = Status2
End If
End Sub
does exactly what I need it to do except run when ever a
cell is updated.
I need it to run whenever B9 -> B60 is changed or E-> E60
is changed. What do I need to do?
-Chris
Sub CheckStatus()
Dim H33, H34, Status1, Status2
H33 = Cells(33, 8).Value
H34 = Cells(34, 8).Value
Select Case H33
Case 7
Status1 = "Verbal"
Case 8
Status1 = "Written"
Case 9
Status1 = "Termination"
Case Else
Status1 = ""
End Select
Select Case H34
Case 7
Status2 = "Verbal"
Case 8 To 11
Status2 = "Written"
Case 12
Status2 = "Termination"
Case Else
Status2 = ""
End Select
If H33 > H34 Then
Range("H36").Value = Status1
Else
Range("H36").Value = Status2
End If
End Sub