Excel Forum

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
        If Target.Address = Range("g3").Address Then
            If Range("g3").Value <> "" Then
                Application.WorksheetFunction.Round(Range("g3"), 2).Value
            End If
        End If
            
        If Not Intersect(Target, Me.Range("d13:d44")) Is Nothing Then
            If Target.Value <> "" Then
                Application.WorksheetFunction.Round(Target, 2).Value
            End If
        End If
End Sub

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
        If Target.Address = Range("g3").Address Then
            If Target.Value <> "" Then
                Target.Value = VBA.Round(Range("g3").Value, 4)
            End If
        End If
            
        If Not Intersect(Target, Me.Range("d13:d44")) Is Nothing Then
            If Target.Value <> "" Then
                Target.Value = VBA.Round(Target, 4).Value
            End If
        End If
    Application.EnableEvents = True
End Sub

Code: Select all

'Other code
Target.Value = Application.WorksheetFunction.RoundDown(Range("g3").Value, 4)
'Other code