| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Add bold font to Totals row?
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 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Add bold font to Totals row?
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 --- Regards, Norman "CLR" wrote in message ... 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 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Add bold font to Totals row?
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" wrote in message ... 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 --- Regards, Norman "CLR" wrote in message ... 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 |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Add bold font to Totals row?
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. --- Regards, Norman "CLR" wrote in message ... 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" wrote in message ... 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 --- Regards, Norman "CLR" wrote in message ... 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 |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Add bold font to Totals row?
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 "Norman Jones" wrote in message ... 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. --- Regards, Norman "CLR" wrote in message ... 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" wrote in message ... 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 --- Regards, Norman "CLR" wrote in message ... Hi All............ Here's a piece of code someone on the group was kind enough to do fo r 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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| How can I make pivot table sub-totals bold? | Excel Discussion (Misc queries) | |||
| Bold font for Location Totals | Excel Discussion (Misc queries) | |||
| How do I bold just the totals when using Subtotals? | Excel Worksheet Functions | |||
| Bold the totals of a sub-total. | Setting up and Configuration of Excel | |||
| Are sub-totals able to be set to be bold automatically? | Excel Discussion (Misc queries) | |||
Hybrid Mode
