how to make each cell with subtotal in it to be bold with vba

[rharri1972]

I have recorded a macro to subtotal my sheet of data.
I am using this as each change in Column E and adding subtotal to Column H.

this macro is the ending part in a larger script of code to complete a modified report.

is there anyway when using vba to make the subtotal BOLD so that it stands out?

 

[PeteWright]

To make the whole column H bold use this code:

Range("H:H").Font.Bold = True

Otherwise you need to be more specific.

 

[rharri1972]

I did ask for the subtotal to be bold that happens to be in Column H at each change in Colum E

 

[rharri1972]

maybe I can repost this way for it to make more since.... I have a macro to subtotal my sheet. This happens for every change in Column E and adds Subtotal to Column H.
The line that shows Column E's value total (PRODUCT ID TOTAL)(Whatever the PRODUCT ID is) is BOLD but the subtotal in Column H is not.

is there a vba code to look through Column E looking for partial "TOTAL"(not case sensitive) when found go to the right 3 columns (Column H) and make that value BOLD. Loop through or continue until column has completely been looked through?

 

[Marc L]

As when using the Excel feature SubTotal - whatever manually or via a VBA procedure - each total is automatically set to bold …​

 

[Peter_SSs]

​

As when using the Excel feature SubTotal - whatever manually or via a VBA procedure - each total is automatically set to bold …​

That is not the case for me:

@rharri1972
If your original data in column H does not consist of formulas, try

Columns("H").SpecialCells(xlFormulas).Font.Bold = True

 

[Peter_SSs]

.. and if column H did already have formulas, try this instead

With Range("E1", Range("E" & Rows.Count).End(xlUp))
  .AutoFilter Field:=1, Criteria1:="*Total"
  .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlVisible).EntireRow.Font.Bold = True
  .AutoFilter
End With

 

[Marc L]

​

I was confusing the word in column E and the numbers in column H …​

 

[rharri1972]

That is not the case for me:

View attachment 51260

@rharri1972
If your original data in column H does not consist of formulas, try

Columns("H").SpecialCells(xlFormulas).Font.Bold = True

Hey Peter...This worked exactly the way i needed it to. I also used this for Column L which gives me my surplus/deficit which is what tells me the qty to order. I have also used the following code in an attempt to highlight the cell in Column L ....

Columns("L").SpecialCells(xlFormulas).Color = vbYellow

However...this does not work. Again this will be in the same row as the "total" line.
Any help with making the cell Highlighted with yellow?

 

[Peter_SSs]

I don't know what is in your column L but if the only cells with formulas are on the Sub Total rows then

Columns("L").SpecialCells(xlFormulas).Interior.Color = vbYellow

Otherwise

Intersect(Columns("H").SpecialCells(xlFormulas).EntireRow, Columns("L")).Interior.Color = vbYellow