Test for value then format!

A

AirgasRob

Thanks to Don Guillett I found the below code and it works great. But I need
it to select more than one cell to format. Is it possible to modify the code
to select several cells in the same row?

Sub insertline()
For Each c In Range("a2:a100")
If UCase(c) = "TOTAL" Then
With c.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End If
Next c
End Sub
 
G

Gary''s Student

Don's code examines the contents of each cell in the range from A2 thru A100
and formats according to contents. Change:

For Each c In Range("a2:a100")
to:
For Each c In Selection

Then you first select any group of cells and then run the macro.
 
A

AirgasRob

For example!

Your code does exactly what I want except... I would like to select more
than one cell in the same row. For example;

The search finds the value "total" in A2.
I then want it to select from A2:A10 and format the entire selection. Is
that possible or is this an entirelly different beast?
 
A

AirgasRob

Thank you, I didn't know I could do that. I have some other worksheets where
this will come in very handy.
 
G

Gary Keramidas

i'll chime in here and modify don's code, since you said it's what you want

Sub insertline()
For Each c In Range("a2:a100")
If UCase(c) = "TOTAL" Then

With c.Resize(9).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End If
Next c
End Sub
 
Top