This should work as you ask
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim isect As Range
If Target.Cells.Count > 1 Then Exit Sub
Set isect = Intersect(Target, Range("G:G, M:M"))
If Not isect Is Nothing Then
If Target <> "" Then
Range("O" & Target.Row) = Cells(Target.Row, "G") * Cells(Target.Row, "M")
Else
Range("O" & Target.Row) = ""
End If
End If
Set isect = Intersect(Target, Range("O:O"))
If Not isect Is Nothing Then
If Target <> "" Then
Range("Q" & Target.Row) = Round(Cells(Target.Row, "O") / (540 * 60), 0)
Else
Range("Q" & Target.Row) = ""
End If
End If
End Sub
There seems to be nothing wrong with your additional code, just remember that the result in Column O has to be about 19440 to get a result of 1 in Column Q when you use round to zero decimal places.
What is the context of this?
What are you trying to do is it something to do with times?
Bookmarks