Format

[Todd Huttenstine]

Below is a code that looks in columns P,Q, and R and if it
finds the character "%" will put the value "percent" in
the cell in columnO. I would also like the code to also
look for another condition. That is I want it to look in
the cell in ColumnN and if it finds the value "percent"
anywhere in that cell, will also put the value "percent"
in the cell in columnO.


Dim c As Range
For Each c In Range("O2:O100").Cells
With c

If InStr(1, .Offset(,
1).NumberFormat, "%") Or _
InStr(1, .Offset(, 2).NumberFormat, "%")
Or _
InStr(1, .Offset(, 3).NumberFormat, "%")
Then
.Value = "percent"

 

[Vasant Nanavati]

Add:

Or _
InStr(1, .Offset(, -1).NumberFormat, "%")

to your code.

 

[Todd]

That didnt have any affect.
I need for it to search the values in column N which is
offset -1 for "percent". And if it finds this string, to
make the value in cell O say "percent". The values in
columnN can say "Percentage" or "Percentile". Whatever
the case, because the value contains the string "percent"
I need for the code to work.

 

[Guest]

I had to use the code...


If InStr(1, .Offset(, -
1).Value, "Percent") Or _
InStr(1, .Offset(, 1).NumberFormat, "%")
Or _
InStr(1, .Offset(, 2).NumberFormat, "%")
Or _
InStr(1, .Offset(, 3).NumberFormat, "%")
Then
.Value = "percent"

 

[Vasant Nanavati]

That was pretty much what I suggested ... ;-)