Find cells with a specific character in them and conditionally format cell
 

Hi

I want to format all rows in which the first cell in the row has a
comma in it somewhere.
Part of code only below:
A compile eror occurs at Find?

For Each cell In RefNoRange 'loops through
each cell in the reference number range

If IsError(Find(",", cell)) Then Else 'looks
for a comma in the ref number,
With cell.EntireRow
.RowHeight = 32
.VerticalAlignment = xlCenter
'.Font.ColorIndex = 1 'black
.Font.ColorIndex = 5 'blue
.Font.Size = 14
.Font.Name = "comic"
.Font.Bold = True
.Font.Italic = True


Any help would be gratefully received

Ritchi

Find cells with a specific character in them and conditionally for
 

If InStr(cell.Value, ",") 0 Then
--
Gary's Student
gsnu200705


"RITCHI" wrote:

Hi

I want to format all rows in which the first cell in the row has a
comma in it somewhere.
Part of code only below:
A compile eror occurs at Find?

For Each cell In RefNoRange 'loops through
each cell in the reference number range

If IsError(Find(",", cell)) Then Else 'looks
for a comma in the ref number,
With cell.EntireRow
.RowHeight = 32
.VerticalAlignment = xlCenter
'.Font.ColorIndex = 1 'black
.Font.ColorIndex = 5 'blue
.Font.Size = 14
.Font.Name = "comic"
.Font.Bold = True
.Font.Italic = True


Any help would be gratefully received

Ritchi

Find cells with a specific character in them and conditionally format cell
 

You have lots of errors. Try this
Sub formatif1()
For Each c In RefNoRange 'Selection
If InStr(c, ",") 0 Then
MsgBox c.Address
With c.EntireRow
.RowHeight = 32
.VerticalAlignment = xlCenter
.Font.ColorIndex = 5 'blue
.Font.Size = 14
.Font.Name = "comic"
.Font.Bold = True
.Font.Italic = True
End With
End If
Next c
End Sub


--
Don Guillett
SalesAid Software

"RITCHI" wrote in message
oups.com...
Hi

I want to format all rows in which the first cell in the row has a
comma in it somewhere.
Part of code only below:
A compile eror occurs at Find?

For Each cell In RefNoRange 'loops through
each cell in the reference number range

If IsError(Find(",", cell)) Then Else 'looks
for a comma in the ref number,
With cell.EntireRow
.RowHeight = 32
.VerticalAlignment = xlCenter
'.Font.ColorIndex = 1 'black
.Font.ColorIndex = 5 'blue
.Font.Size = 14
.Font.Name = "comic"
.Font.Bold = True
.Font.Italic = True


Any help would be gratefully received

Ritchi