Macro to Sum %'s

[xcelnovice]

Hi,

I have a long list of %'s & I need to ensure each section individually adds up to 100%. Can a macro do this faster then me highlighting all of them? Below is a sample

[TABLE="width: 48"]
<COLGROUP><COL style="WIDTH: 48pt" width=64><TBODY>[TR]
[TD="class: xl66, width: 64, bgcolor: transparent, align: right"]18.94%[/TD]
[/TR]
[TR]
[TD="class: xl66, width: 64, bgcolor: transparent, align: right"]27.49%[/TD]
[/TR]
[TR]
[TD="class: xl66, width: 64, bgcolor: transparent, align: right"]10.81%[/TD]
[/TR]
[TR]
[TD="class: xl66, width: 64, bgcolor: transparent, align: right"]25.43%[/TD]
[/TR]
[TR]
[TD="class: xl66, width: 64, bgcolor: transparent, align: right"]0.87%[/TD]
[/TR]
[TR]
[TD="class: xl66, width: 64, bgcolor: transparent, align: right"]0.39%[/TD]
[/TR]
[TR]
[TD="class: xl66, width: 64, bgcolor: transparent, align: right"]7.47%[/TD]
[/TR]
[TR]
[TD="class: xl66, width: 64, bgcolor: transparent, align: right"]8.60%[/TD]
[/TR]
[TR]
[TD="class: xl66, width: 64, bgcolor: transparent"][/TD]
[/TR]
[TR]
[TD="class: xl66, width: 64, bgcolor: transparent, align: right"]50.74%[/TD]
[/TR]
[TR]
[TD="class: xl66, width: 64, bgcolor: transparent, align: right"]46.94%[/TD]
[/TR]
[TR]
[TD="class: xl66, width: 64, bgcolor: transparent, align: right"]1.60%[/TD]
[/TR]
[TR]
[TD="class: xl66, width: 64, bgcolor: transparent, align: right"]0.73%[/TD]
[/TR]
[TR]
[TD="class: xl66, width: 64, bgcolor: transparent"][/TD]
[/TR]
[TR]
[TD="class: xl66, width: 64, bgcolor: transparent, align: right"]63.67%[/TD]
[/TR]
[TR]
[TD="class: xl66, width: 64, bgcolor: transparent, align: right"]36.33%[/TD]
[/TR]
[TR]
[TD="class: xl66, width: 64, bgcolor: transparent"][/TD]
[/TR]
[TR]
[TD="class: xl66, width: 64, bgcolor: transparent, align: right"]50.74%[/TD]
[/TR]
[TR]
[TD="class: xl66, width: 64, bgcolor: transparent, align: right"]46.94%[/TD]
[/TR]
[TR]
[TD="class: xl66, width: 64, bgcolor: transparent, align: right"]1.60%[/TD]
[/TR]
[TR]
[TD="class: xl66, width: 64, bgcolor: transparent, align: right"]0.73%[/TD]
[/TR]
</TBODY>[/TABLE]

 

[NeonRedSharpie]

Sub checkPercents()

    Dim sumchecks As Variant
    Dim rowStart As Long


    rowStart = 1


    For x = 1 To Cells(Rows.Count, "A").End(xlUp).Row + 1
        Select Case Cells(x, 1)
            Case ""
                If sumchecks <> 1 Then
                    Range(Cells(rowStart, 1), Cells(x - 1, 1)).Interior.Color = vbYellow
                End If
                sumchecks = 0
                rowStart = x + 1
            Case Else
                sumchecks = sumchecks + Cells(x, 1)
        End Select
                
    Next x


End Sub

This will highlight offending sections yellow. It does highlight 100.01% so you've been warned. I don't know if you want it that exact. It also assumes your data is in column A.

 

[xcelnovice]

That is absolutely perfect! Thanks so much!