Thanks, It is Great!




On Jun 22, 6:48*am, "Don Guillett" wrote:
I sent this
Sub ColorTotalRow()
Application.ScreenUpdating = False
With Worksheets("sheet26")

With Cells.SpecialCells(xlCellTypeLastCell)
lc = .Column
lr = .Row
End With

With .Rows("2:" & lr)
.Font.Bold = False
.Borders.LineStyle = xlNone
.Interior.ColorIndex = xlNone
End With

With .Range("c2:c" & lr)
* * Set c = .Find("Total", LookIn:=xlValues)
* * If Not c Is Nothing Then
* * * * firstAddress = c.Address
* * * Do
* * * * With Range(Cells(c.Row, 1), Cells(c.Row, lc))
* * * * * .Font.Bold = True
* * * * * .Interior.ColorIndex = 6
* * * * * .BorderAround , Weight:=xlMedium

* * * * End With

* * * For Each cc In Range(Cells(c.Row, 1), Cells(c.Row, lc))
* * * *If Len(Application.Trim(cc)) 0 Then
* * * * cc.Borders.LineStyle = xlContinuous
* * * * cc.Borders.Weight = xlMedium
* * * *End If
* * * Next cc

* * * Set c = .FindNext(c)
* * * Loop While Not c Is Nothing _
* * * And c.Address < firstAddress
* * End If
End With

End With
Application.ScreenUpdating = True
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"Don Guillett" wrote in message

...



What you want can be done. Let's see now
we have an empty cell
to the right we have a full cell
to the right we have an empty cell
so now all cells have a right and leftborderalso.
Tell us how to NOT have aborderon the empty cell in the middle.

You did not mention your layout or how many cells per row may be involved.
If desired, send me a workbook to my address below and I'll have a look..

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

wrote in message
....
Hi,
Thanks, Now I got the Top Post!
How about if any cell in that ROW that we colored that is not empty
place a OUTLINEBorder, not only the top and bottom but the sides too
for those cells that are not empty.
Thanks.

On Jun 21, 11:38 am, "Don Guillett" wrote:
Did you NOT see my last post with the change and the request to TOP POST

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
wrote in message

....
On Jun 21, 10:19 am, wrote:

On Jun 21, 6:45 am, "Don Guillett" wrote:

try this. change sheet25 to suit the name of your sheet and 500 to
suit
your
last row

Sub colortotalrow()
With Worksheets("sheet25").Range("c1:c500")
Set c = .Find("Total", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Rows(c.Row).Interior.ColorIndex = 6
Set c = .FindNext(c)
Loop While Not c Is Nothing _
And c.Address < firstAddress
End If
End With

End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
wrote in message

...

Hi,
Is there any way to use a macro to find a word example "Total" in a
column example "C:C" and when it finds the word it will color that
row
say "Blue" and then find next and if find more do the same all the
way
to the end of the column.

Hi,
Thanks it works great. Can I make another macro or add to this one,
I need the macro to first find the "Total" in "C:C" then clear the
Borders in that ROW and then place aborderon top and bottom of that
ROW and if any cell in that ROW is not empty place a OUTLINEBorder.
Thanks- Hide quoted text -

- Show quoted text -- Hide quoted text -

- Show quoted text -