Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
ra = ActiveCell.Row
rp = Range("personnel").Row
rc = Range("contractual").Row
Select Case ra
Case Is <= rp
MsgBox "Above personnel"
Case Is >= rc
MsgBox "below contracutal"
Case Else
MsgBox "between"
End Select
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > Range("personnel").Row _
And Target.Row < Range("contractual").Row _
And Target.Column = 2 Then
MsgBox "Without Intersect:" & vbCrLf & _
"Seletion is below ""personnel"" and above ""contractual"""
End If
'OR
If Target.Row > Range("personnel").Row _
And Target.Row < Range("contractual").Row _
And Not Intersect(Target, Columns(2)) Is Nothing Then
MsgBox "With Intersect:" & vbCrLf & _
"Seletion is below ""personnel"" and above ""contractual"""
End If
If Target.Offset(-1, 0).Address = Range("personnel").Address Then
MsgBox "Selection is directly below ""personnel"""
End If
End Sub