Conditional Data formats
 

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

Conditional Data formats
 

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

--

Vasant




"Todd Huttenstine" wrote in message
...
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

Conditional Data formats
 

Hey instead of formatting it with %, I would like it to
put an actual % in the cell in Rango O2:O100.


-----Original Message-----
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

--

Vasant




"Todd Huttenstine"
wrote in message
...
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


.

Conditional Data formats
 

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)

wrote in message
...
Hey instead of formatting it with %, I would like it to
put an actual % in the cell in Rango O2:O100.


-----Original Message-----
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

--

Vasant




"Todd Huttenstine"
wrote in message
...
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


.