Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, Range("E:F")) Is Nothing Then Exit Sub
Application.EnableEvents = False 'Prevent infinite looping
If Target.Column = 5 Then
'User has changed something in column A:
Target.Offset(0, 1).Value = Round(Target / Range("H1").Value, 5)
Else
'User has changed something in column B:
Target.Offset(0, -1).Value = Round(Target * Range("H1").Value, 5)
End If
Application.EnableEvents = True
End Sub
and
Private Sub Worksheet_change(ByVal Target As Range)
Dim A As Range, B As Range, Inte As Range, RR As Range
Set A = Range("A3:A1002")
Set Inte = Intersect(A, Target)
If Inte Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each RR In Inte
If RR.Value > 0 Then
RR.Offset(0, 1).Value = Date
Else
RR.Offset(0, 1).Value = ""
End If
Next RR
Application.EnableEvents = True
End Sub
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, Range("E:F")) Is Nothing Then Exit Sub
Application.EnableEvents = False 'Prevent infinite looping
If Target.Column = 5 Then
'User has changed something in column A:
Target.Offset(0, 1).Value = Round(Target / Range("H1").Value, 5)
Else
'User has changed something in column B:
Target.Offset(0, -1).Value = Round(Target * Range("H1").Value, 5)
End If
Application.EnableEvents = True
End Sub
and
Private Sub Worksheet_change(ByVal Target As Range)
Dim A As Range, B As Range, Inte As Range, RR As Range
Set A = Range("A3:A1002")
Set Inte = Intersect(A, Target)
If Inte Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each RR In Inte
If RR.Value > 0 Then
RR.Offset(0, 1).Value = Date
Else
RR.Offset(0, 1).Value = ""
End If
Next RR
Application.EnableEvents = True
End Sub