Conditional Number Formatting

[Neda]

Hi,
I need to number format a group of cells based on the number contained in
another cell. In other words, if the value in A1 is 1 I need to format A2 to
D2 as percent, if the value in A1 is 0 I need to format A2 to D2 as a number.

From, trying to figure out how t odo it I gathered that conditional
formatting will not be able to do it, and I don't know how to write a macro
to do it so any help will be appreciate it.
Thanks in advance.
Neda

 

[JE McGimpsey]

one way:

Put this in your worksheet code module (right-click the worksheet tab an
choose View Code):

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then _
Range("A22").NumberFormat = _
IIf(Range("A1").Value = 1, "0%", "0.00")
End Sub


Adjust the formats as desired.

 

[neda5]

Works greatly.
Thanks.

one way:

Put this in your worksheet code module (right-click the worksheet tab an
choose View Code):

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then _
Range("A22").NumberFormat = _
IIf(Range("A1").Value = 1, "0%", "0.00")
End Sub


Adjust the formats as desired.