vba. looping in a triangle

[montecarlo2012]

Hello People.

Sub pr_1()
Dim Row As Integer
Dim Column As Integer
      For Row = 2 To 7
            For Column = 2 To 7
                  Cells(Row, 9).Value = Cells(Row, 9).Value + Cells(Row, Column).Value
            Next
      Next
End Sub

With this code I got this:

Adding row by row and results on "I".
I am looking for adding just the triangle, here just for illustration and simplicity is the number 5 but could be any value, so the expecting results would be

so. what I have to change in order to get it.
I appreciate you reading this,
would be nice if someone give me a hand here.
Please.

 

[Fluff]

How about

   With Range("I2:i7")
      .Formula = "=sumif(b2:g2,max(b2:g2))"
      .Value = .Value
   End With

 

[montecarlo2012]

Thanks Fluff, something is not working with this formula inside with---end with.
Sir, with all respect, any possibility to tell me how, just to modify the line:

Cells(Row, 9).Value = Cells(Row, 9).Value + Cells(Row, Column).Value

Please.
my concern is the logic behind, I am experimenting with the for loop
I would like to learn how manipulate this line in order to get the results.
The statement With____end with, still is a confusing concept or idea, because if you can Repeat anything inside, then any loop becoming useless, and of course, I am not sure about this either.
"Thank you "

 

[Fluff]

You will need to use an If statement to see if the cell is equal to the value you want & if so add it.

 

[montecarlo2012]

Fluff thank you for your tutorial, I did it.

Sub pr_1()
Dim Row As Integer
Dim Column As Integer
      For Row = 2 To 7
            For Column = 2 To 7
                  If Row = Row + colum Then
                          Cells(Row, 9).Value = Cells(Row, 9).Value + Cells(Row, Column).Value
                  End If
            Next Column
      Next Row      
End Sub

 

[Fluff]

That is doing exactly the same as your original code.

 

[vw412]

Try this code:

Option Explicit

Sub pr_1()
Dim Row As Integer
Dim Column As Integer
Dim ItemCounter As Integer, ColumnCount As Integer
Dim StartRow As Integer, StartColumn As Integer, RowCount As Integer
StartRow = 11
StartColumn = 2
RowCount = 6
ItemCounter = 0
  For Row = StartRow To StartRow + RowCount - 1
    ItemCounter = ItemCounter + 1
    For Column = StartColumn To StartColumn + ItemCounter - 1
      Cells(Row, 9).Value = Cells(Row, 9).Value + Cells(Row, Column).Value
    Next
  Next
End Sub

 

[aRandomHelper]

Amended your original code:

Sub pr_1()
    Dim Row As Integer
    Dim Column As Integer, c As Integer
    For Row = 2 To 7
        c = c + 1
        For Column = 2 To 1 + c
            Cells(Row, 9).Value = Cells(Row, 9).Value + Cells(Row, Column).Value
        Next
    Next
End Sub

 

[montecarlo2012]

vw412 and aRandomHelper, I like both and I click as solution, thank you both are a good lesson, I am answering only now because I work second shift so, I just turn on my pc, and yoohoo, nice people like always in this forum, "Great lesson", thank you thank you.
Now I will start to enjoy a new pattern and check how much I am able to accomplish. I love VBA. specially loops.

 

[mikerickson]

It looks like the goal is either the sequence 5, 5+5, 5+5+5 , ....5*n
or that a loop like

For Row = 1 to 6
   For Column = 1 to i
        Sum = Sum + Cells(Row+1, Column+1).Value
   Next
Next