Macro to leave a formula in Total?

[Tpmola99]

I need to sum the row across the "Total" column, but I can't get any code. The range of Hour1... It can vary and sometimes be more or less (That's why you have to look for the Total columns (Automatically) in row 1 and put in all the rows of the column to go adding the values that you insert by hand in the cells of Hour1, Hour2...

Does anyone know how to do it?

 

[shinigamilight]

Sub herewegoagain()
        Dim k, i, j As Integer
        Dim lr, lc As Long
        Dim wk As Worksheet
        Set wk = ActiveSheet
       
        lr = wk.Cells(Rows.Count, 1).End(xlUp).Row
        lc = wk.Cells(1, Columns.Count).End(xlToLeft).Column
            For k = 2 To lr
                j = 3
                For i = 3 To lc
                        If Cells(1, i) = "Total" Then
                            Cells(k, i) = WorksheetFunction.Sum(Range(Cells(k, j), Cells(k, i - 1)))
                               j = i + 1
                        End If
                Next i
            Next k
End Sub

 

[Tpmola99]

Sub herewegoagain()
        Dim k, i, j As Integer
        Dim lr, lc As Long
        Dim wk As Worksheet
        Set wk = ActiveSheet
      
        lr = wk.Cells(Rows.Count, 1).End(xlUp).Row
        lc = wk.Cells(1, Columns.Count).End(xlToLeft).Column
            For k = 2 To lr
                j = 3
                For i = 3 To lc
                        If Cells(1, i) = "Total" Then
                            Cells(k, i) = WorksheetFunction.Sum(Range(Cells(k, j), Cells(k, i - 1)))
                               j = i + 1
                        End If
                Next i
            Next k
End Sub

This is the case if the data is already entered, but if I enter it by hand, it does not add up automatically, how would the formula be left so that the total is updated as I modify it?

Thank you!

 

[shinigamilight]

This is the case if the data is already entered, but if I enter it by hand, it does not add up automatically, how would the formula be left so that the total is updated as I modify it?

Thank you!

Do you know how to create a private sub routine?

 

[Tpmola99]

Do you know how to create a private sub routine?

No, no I dont know. What's that?

 

[shinigamilight]

Select the sheet from the left side which is circled and double click it
do exactly what i have done

 

[RoryA]

This appears to be the same as the thread you have going here: Using VBA, how can I SUM all the values from columns until I find column "Total"? Then do the same from next cell to next "total"
This thread is closed.