Changing Cell number format Automatically

[Einstein2000]

Hi

I have a need to be able to change the number of decimal places on a cell when I change a value in another cell.

For example, in cell A1, I will have a drop down box showing 0.0, 0.00, 0.000 or 0.0000.

Depending on which drop down the user selects, I would like cell A2 to change its cell resolution.

Any help would be greatly appreciated.

Simon

 

[Rick Rothstein]

Right click the name tab at the bottom of the worksheet you want to have this functionality and select "View Code" from the popup menu that appears, then copy/past the following into the code window that opened up...

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("A1")) Is Nothing Then
    Target.Offset(1).NumberFormat = Target.Value
  End If
End Sub

Make sure your cell (A1 in this case) is formatted as Text so that it will retain the trailing zeroes.

 

[Einstein2000]

Excellent. Thats exactly what I wanted.

Thanks for the help