Conditional Data formats

  • Thread starter Thread starter Todd Huttenstine
  • Start date Start date
T

Todd Huttenstine

I have 2 ranges of data. I have range O2:O100 which will
contain values based on data in Range P2:P100.

I need a code that will look through every value in range
P2:P100 and if it finds a % in any of the values, I need
the value of the corresponding cell in Range O2:O100 to
be "%".

If it finds just a raw number (such as 45, 140, 25,
etc...) in any of the values, I need the value of the
corresponding cell in Range O2:O100 to be "General".

Thanks in advance.

Todd
 
Something like (not exactly clear on your requirements):

Sub ConformFormats()
Dim c As Range
For Each c In Range("O2:O100")
If InStr(1, c.Offset(, 1).NumberFormat, "%") Then
c.NumberFormat = c.Offset(, 1).NumberFormat
Else
c.NumberFormat = ""
End If
Next
End Sub
 
Hey instead of formatting it with %, I would like it to
put an actual % in the cell in Rango O2:O100.
 
Also a bit unclear as to what O contains.

Does this help?

Dim i As Long

For i = 1 To 100
If Not IsEmpty(Cells(i, 15)) Then
If Right(Cells(i, 15).NumberFormat, 1) = "%" Then
Cells(i, 16).Value = "%"
ElseIf IsNumeric(Cells(i, 15).Value) Then
Cells(i, 16).Value = "General"
End If
End If
Next


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
Back
Top