
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then
If Target.Value > 3 Then
Cells(3, 2) = Cells(2, 2) * 20
Cells(4, 2) = Cells(1, 2) - Cells(3, 2)
End If
End If
End Sub |
