Changing cell colours with macro/formula

[bartoni]

In column B I have some cells with the letter N inside. How would i write a formula/macro to change all cells with the lettter N inside to go red.

Many Thanks

 

[~Zodiac~]

try this code

Sub MakeNRed()
'
' MakeNRed Macro

Cells.Find(What:="n", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
stophere = ActiveCell.Address
Restart:
i = 0
For i = 1 To 9999

Cells.FindNext(After:=ActiveCell).Activate
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With

If ActiveCell.Address = stophere Then GoTo TheEnd:
Next i
If i > 9999 Then GoTo Restart:

TheEnd:
End Sub


It should work fine

 

[martinee]

In conditional formatting, try formula is:

=Search("n",B1,1)>0

Set the format to red.

HTH.

 

[Seti]

Another tack. If the cell only contains an "N", then try conditional formatting.

Also works for an occurrence of "N" within the cell. Use Formula Is and the following formula (probably not the shortest, ):

=NOT(ISERROR(SEARCH("n",B3)))=TRUE