Rounding

[jamie.gill]

how to automaticly round a cell to the nearest 100 upon input.

Is there a macro code for this??

 

[VoG]

Try this: right click the sheet tab, select View Code and paste in

Private Sub Worksheet_Change(ByVal Target As Range)
If IsNumeric(Target.Value) Then
    Application.EnableEvents = False
    Target.Value = WorksheetFunction.Round(Target.Value, -2)
    Application.EnableEvents = True
End If
End Sub

 

[jamie.gill]

am i able to do this so that it is only relevant to a few cells??

 

[VoG]

Yes - which cells?

 

[jamie.gill]

say A1 to A7

 

[VoG]

Try

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A7")) Is Nothing Then Exit Sub
If IsNumeric(Target.Value) Then
    Application.EnableEvents = False
    Target.Value = WorksheetFunction.Round(Target.Value, -2)
    Application.EnableEvents = True
End If
End Sub

 

[jamie.gill]

Try

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A7")) Is Nothing Then Exit Sub
If IsNumeric(Target.Value) Then
    Application.EnableEvents = False
    Target.Value = WorksheetFunction.Round(Target.Value, -2)
    Application.EnableEvents = True
End If
End Sub

Thank you this was a great help