Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Sub AddGroupAndTotalsAndUnderlines() ' ' Run after SeparateGroups ' Put BM's name on bolded line, and add bolded totals for each group. ' Also underline totals. It doesn't work correctly. Just 1 cell is underlined. ' ' Dim rng As Range Application.ScreenUpdating = False For Each rng In Range("A:A").SpecialCells(xlCellTypeConstants, 2).Areas If rng.Cells(1).Row <> 1 Then rng.Cells(1).Copy rng.Cells(1).Offset(-1, 2) With rng.Cells(1).Offset(-1, 2).Font .Bold = True .Size = 14 .Name = "Calibri" End With rng.Cells(rng.Rows.Count + 1).Offset(0, 5).Resize(, 8).FormulaR1C1 = "=SUM(R[-" & rng.Rows.Count & "]C:R[-1]C)" rng.Cells(rng.Rows.Count + 1).Offset(0, 5).Resize(, 8).Font.Bold = True With rng.Cells(rng.Rows.Count + 1).Offset(0, 5).Borders(xlEdgeBottom) .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlThin End With End If Next rng Application.ScreenUpdating = True End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Reference between list of ingredients and mixtures in Excel||4||30|
|Need Help ASAP - Access Module VBA Run Time Error 3141||5||35|
|Adjusting a Button Control to register a different number||12||41|
|Excel file size grew while there isn't any data in it.||3||21|
Join the community of 500,000 technology professionals and ask your questions.