Automatically divide by 1000 all numbers entered in a range?

[Fabulist]

Hello everyone,

Would it be possible to automatically divide by 1000 all numbers entered in a range, for example all numbers entered from cell A1 to G25 will be transformed to =Number/1000?

Thank you in advance.

 

[footoo]

Well your macro divides everything typed in by 1000 and pastes the result. If you type 500 it will return 0.5 and if you highlight the cell it will report 0.5.

Is it possible that the cells report =500/1000 instead of 0.5?

See my post #8.

 

[Fabulist]

Am I missing something? Is this not about display only and not what the cell actually have?

 

[footoo]

The cell value will be whatever was input divided by 1000 (done by the macro).
The cell display will show based on (say) 1600 input : 1.600/1000 (the cell value will be 1.6)

 

[Fabulist]

Your macro transforms numbers to this:

I want it to show, if able, this:

 

[footoo]

Format the cells per post #8

 

[Fabulist]

This changes how the cell appears to me, not what I see when I click on it, I want the inside of the cell to change not just its appearance - am I not understanding something?

 

[footoo]

Sorry, cannot understand what you want.

 

[Fabulist]

It's OK, it works perfectly well as it is. Thank you for your time people!

 

[footoo]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, cel As Range
Set rng = Intersect(Target, [A1:G25])
If Not rng Is Nothing Then
    Application.EnableEvents = False
    For Each cel In rng
        If cel <> "" Then cel.Formula = "=" & cel & "/1000"
    Next
    Application.EnableEvents = True
End If
End Sub

 

[Fabulist]

Thank you for giving it another go, but unfortunately it does not work.