Auto Sum using VBA

[leviackerman13]

Hi. I would like to add the grades of every student and output it in the next row. What I want to to is in the red font. Please note that the record of student name varies.

 

[Legacy 143009]

Hi,

This should do the job:

Sub test()
  Dim i As Long
  Application.ScreenUpdating = False
  For i = 1 To Cells(Rows.Count, "B").End(xlUp).Row
    If Cells(i, "B").Value <> "" And Cells(i, "B").Value <> "Name" Then
      Cells(i, "B").End(xlDown).Offset(1, 1) = Application.Sum(Cells(i, "B").Offset(, 1).Resize(Cells(i, "B").End(xlDown).Row - i + 1))
      Cells(i, "B").End(xlDown).Offset(1, 2) = Application.Sum(Cells(i, "B").Offset(, 2).Resize(Cells(i, "B").End(xlDown).Row - i + 1))
      i = Cells(i, "B").End(xlDown).Row
    End If
  Next
  Application.ScreenUpdating = True
End Sub

 

[leviackerman13]

Hi,

This should do the job:

Sub test()
  Dim i As Long
  Application.ScreenUpdating = False
  For i = 1 To Cells(Rows.Count, "B").End(xlUp).Row
    If Cells(i, "B").Value <> "" And Cells(i, "B").Value <> "Name" Then
      Cells(i, "B").End(xlDown).Offset(1, 1) = Application.Sum(Cells(i, "B").Offset(, 1).Resize(Cells(i, "B").End(xlDown).Row - i + 1))
      Cells(i, "B").End(xlDown).Offset(1, 2) = Application.Sum(Cells(i, "B").Offset(, 2).Resize(Cells(i, "B").End(xlDown).Row - i + 1))
      i = Cells(i, "B").End(xlDown).Row
    End If
  Next
  Application.ScreenUpdating = True
End Sub

Hi. Thank you very much. This works.

 

[Legacy 143009]

You are welcome