Forum Discussion

Excel's avatar
Excel
Iron Contributor
Jul 01, 2021
Solved

Sum of rows with the help of VBA

Hello Everyone,  I want to create a total column at the end that sums each row. so instead of summing each column for Jan, Feb and Mar vertically, I want to sum each row for Jan, Feb, and Mar horiz...
Macros and VBA
  • HansVogelaar's avatar
    HansVogelaar
    Jul 01, 2021

    Excel 

    Sub CreateRowSums()
    Dim wsh As Worksheet
    Dim lr As Long
    Dim lc As Long
    Application.ScreenUpdating = False
    For Each wsh In Worksheets
        lr = wsh.Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
        lc = wsh.Cells.Find(What:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
        wsh.Cells(2, lc).Resize(lr - 1).FormulaR1C1 = "=SUM(RC3:RC[-1])"
    Next wsh
    Application.ScreenUpdating = True
End Sub
  • Excel's avatar
    Excel
    Iron Contributor
    Jul 02, 2021

    PeterBartholomew1 

    Hello Sir,

    Thank you for the response😊

    This formula is Great😊

    Actually i practice Excel formula as well as VBA code.

Resources