Hi,
A simple Sheet Change event macro could do this.
Name the K8 cell "selection". In M8 enter the formula
Formula:
=MATCH(K8,P:P,FALSE)
Then replace the current sheet change event macro with this.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lRow As Long
If Target.Column = 5 Then
If UCase(Target.Value) = "FULL-TIME" Then
Target.Offset(0, 1).Value = 2080
Target.Offset(0, 2).Value = 260
Target.Offset(0, 3).Value = 52
End If
End If
If Not Intersect(Target, Range("Selection")) Is Nothing Then
lRow = Sheet1.Range("selection").Cells(1, 3)
Application.EnableEvents = False
Sheet1.Range("Q" & lRow & ":R" & lRow) = Sheet1.Range("Q" & lRow & ":R" & lRow).Value
Application.EnableEvents = True
End If
End Sub
Bookmarks