Automatically change value of a cell after data input

[BrianM]

Can anyone suggest a way to automatically divide a cells value by 60 after data is enter into the cell. The range in question is F9:F39. Data will be entered in sequential order F9,F10,F11,F12...

Thanks,
Brian

 

[Gettingbetter]

Right hand click on your sheet tab and choose view code

then stick the below in

Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range

Set KeyCells = Range("F9:F39")

If Target.Count > 1 Then Exit Sub

If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
Application.EnableEvents = False
Target = Target.Value / 60
Application.EnableEvents = True

End If
End Sub

 

[BrianM]

Worked great!!!

Thanks,
Brian