Conditional value code

[Todd Huttenstine]

I have Range O2:O100 and P2100. The below code
looks in Range P2100 and if it finds a % in the value,
will offset into the corresponding cell in Range O2:O100
and will put the % character in the cell itself.

What I would also like is if the code does not find a % in
the value, will offset into the corresponding cell in
Range O2:O100 and will put the value "number" in the cell
itself.


Dim c As Range
Range("O2:O100").Value = ""
For Each c In Range("O2:O100")
With c
If InStr(1, .Offset(, 1).NumberFormat, "%")
Then .Value = "%"
End With
Next c

 

[J.E. McGimpsey]

One way:

Dim c As Range
For Each c In Range("O2:O100").Cells
With c
If InStr(1, .Offset(, 1).NumberFormat, "%") Then
.Value = "%"
Else
.Value = "number"
End If
End With
Next c

Note that since you're putting either "%" or "number" in each cell,
the Range("O2:O100").Value = "" line isn't necessary.

 

[Todd Huttenstine]

thanx

-----Original Message-----
One way:

Dim c As Range
For Each c In Range("O2:O100").Cells
With c
If InStr(1, .Offset(, 1).NumberFormat, "%") Then
.Value = "%"
Else
.Value = "number"
End If
End With
Next c

Note that since you're putting either "%" or "number" in each cell,
the Range("O2:O100").Value = "" line isn't necessary.



.