1000 to 1 and 1 to 1000

O

Olle

When I type 1000 in one cell and then push enter, I would like that only 1 is
shown.

Vice versa, typing 1 – I would like the cell to show 1000.
 
C

CLR

This Change-event code might be what you're looking for.....

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target = 1 Then
Target.Value = 1000
Else
If Target = 1000 Then
Target.Value = 1
Else
End If
End If
End Sub

Vaya con Dios,
Chuck, CABGx3
 
D

David Biddulph

Olle said:
When I type 1000 in one cell and then push enter, I would like that only 1
is
shown.

Vice versa, typing 1 - I would like the cell to show 1000.
Click to expand...

You could use Tools/ AutoCorrect Options, but it sounds a dangerous way of
asking your sheet to behave.
 
V

vezerid

Chuck,
you speak of the Change event but you are giving a SelectionChange
routine. With this one 1 and 1000 will be toggled whenever one clicks
on a cell containing either value.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = 1 Or Target.Value = 1000 Then
Application.EnableEvents = False
If Target.Value = 1 Then
Target.Value = 1000
Else
Target.Value = 1
End If
Application.EnableEvents = True
End If
End Sub

HTH
Kostis Vezerides
 
O

Olle

I found the answer my self:

Tools – options – Edit and look for fixed decimal places.

Thanks anyhow // Olle
 
D

David Biddulph

Yes, but that would only work in one direction or the other, but not both.
 
Top