vba adding across columns

[montecarlo2012]

Hi All.
working on:

Sub Add_acr_col()

      Dim Cl As Long
      
                  For Cl = 2 To Cells(Columns.Count, "B").End(xlUp).Columns
                                 Cells(2, "A").Value = Cells(2, "A").Value + Cells(2, Cl).Value
                  Next Cl


End Sub

simple and short for this post. I want to add across column, using just the for...next loop,
the three lines I have give me the wrong answer.
Is a dynamic line, reason I use End(xlup).
Thanks for reading.
Your input matters, Please.

 

[Marc L]

Hi, you are confusing columns & rows ! So you must read VBA help of Cells statement …​

​

Anyway :​

Sub DemoDumb()
    For C% = 2 To [B2].End(xlToRight).Column:  [A2].Value2 = [A2].Value2 + Cells(2, C).Value2:  Next
End Sub

​

As any good VBA coder does very not need any loop even with a so called 'dynamic line' !​

 

[montecarlo2012]

Marc L Thank you, you make simple and sharp. excellent.
Confuse, yes I am.
To find the right books, or the best teacher I think is difficult, I think you are lucky, you have everything figure out, right school, right connections, right books
would be nice if you let me know the path to learn like you. If you don't mind.or expensive courses I never believe there are dummies or smart people, is about lucky star. for me must be a 500 pages book about only for next loop, no just couple examples and by like most of the books. thanks Marc L
I really like your comments.

 

[Marc L]

As I never read a book : just comparing code generated by the Macro Recorder and the VBA help …​

Later with the rising of some Excel forums just reading some threads …​

​

So without useless looping :​

​

• [A2].Value2 = Application.Sum([B2].Resize(, [A2].CurrentRegion.Columns.Count - 1))​

​

• [A2].Value2 = Application.Sum(Range("B2", [B2].End(xlToRight)))​

​

• [A2] = [SUM(2:2)-A2]​

 

[montecarlo2012]

Thanks Marc L my respect for you.