Add bold font to Totals row?

[CLR]

Hi All............

Here's a piece of code someone on the group was kind enough to do for me and
it works fine. What I would like to know now, is , can it be modified to
also change the Font in that entire row that it finds the string "total" in,
to BOLD? Reason being that the Subtotal titles come out bold by virtue of
the "subtotal function", but the subtotals themselves do not and I would
like them to be bold also.....everything in that row.


Sub AddRowSubTotalsBoth()
'Adds blank rows to the Sub-totaled sheet for easier reading

lastrow = Range("A" & Rows.Count).End(xlUp).Row
For r = lastrow To 8 Step -1
If InStr(1, Cells(r, 3).Value, "Total") > 0 Or _
InStr(1, Cells(r, 8).Value, "Total") > 0 Then
ActiveSheet.Rows(r + 1).EntireRow.Insert

End If
Next
End Sub


TIA,
Vaya con Dios,
Chuck, CABGx3

 

[Norman Jones]

Hi Chuck,

Try:

Sub AddRowSubTotalsBoth()
'Adds blank rows to the Sub-totaled sheet for easier reading
Dim lastrow As Long
Dim r As Long

lastrow = Range("A" & Rows.Count).End(xlUp).Row
For r = lastrow To 2 Step -1
If InStr(1, Cells(r, 3).Value, "Total") > 0 Or _
InStr(1, Cells(r, 8).Value, "Total") > 0 Then
Range(Cells(r, 1), Cells(r, 10)).Font.Bold = True
ActiveSheet.Rows(r + 1).EntireRow.Insert

End If
Next
End Sub

 

[CLR]

Thanks Norman, but it would not change the entire row, only the first 10
columns, until I changed the Cells(r, 10) to Cells(r,30).........now it
covers the range of columns I need...........

Thanks again...........

Vaya con Dios,
Chuck, CABGx3

 

[Norman Jones]

Hi Chuck,

I changed the Cells(r, 10) to Cells(r,30).........

Thats fine. In using Cells(r,10) I made a guess at your data layout adding
two columns to the largest value shown in your code snippet.
I should, of course, have identified my guess.

 

[CLR]

Not a problem Norman...........

Your code got me to where I needed to be, and I do appreciate it. I could
not have done it without your kind assistance.

Thanks again,
Vaya con Dios,
Chuck, CABGx3