Or maybe you could use VBA:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Long
r = ActiveCell.Row
If Target.Column = 4 And Target.Row > 1 Then
Select Case Cells(r, "D").Value
Case "Monday"
Cells(r, "E").Value = 100
Case "Tuesday"
Cells(r, "E").Value = 200
Case "Wednesday"
Cells(r, "E").Value = 300
Case "Thursday"
Cells(r, "E").Value = 400
Case "Friday"
Cells(r, "E").Value = 500
Case "Saturday"
Cells(r, "E").Value = 600
Case "Sunday"
Cells(r, "E").Value = 700
Case Else
Exit Sub
End Select
End If
End Sub
Ken(not an expert!)
|