Format
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" |
Format
Add:
Or _ InStr(1, .Offset(, -1).NumberFormat, "%") to your code. -- Vasant "Todd Huttenstine" wrote in message ... 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" |
Format
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. -----Original Message----- Add: Or _ InStr(1, .Offset(, -1).NumberFormat, "%") to your code. -- Vasant "Todd Huttenstine" wrote in message ... 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" . |
Format
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" -----Original Message----- Add: Or _ InStr(1, .Offset(, -1).NumberFormat, "%") to your code. -- Vasant "Todd Huttenstine" wrote in message ... 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" . |
Format
That was pretty much what I suggested ... ;-)
-- Vasant wrote in message ... 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" -----Original Message----- Add: Or _ InStr(1, .Offset(, -1).NumberFormat, "%") to your code. -- Vasant "Todd Huttenstine" wrote in message ... 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" . |
All times are GMT +1. The time now is 05:23 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com