Hi Guys... I have a requirement like this... I have values like this in excel sheet
1
2
3
4
5
6
7
I need to create a vba code to add every 3rd row. for eg) 1+4+7+ ... until EOF in the current range.. Can you suggest me how to do a vba coding for that... Thanks in advance
Re: Adding Alternate Values In Vba
You don't need a macro.
Try
Quote=SUMPRODUCT((MOD(ROW(INDIRECT("1:"&ROWS(A1:A7))),3)=1)*A1:A7)
VBA Noob[hr]*[/hr] Auto Merged Post Until 24 Hrs Passes;[dl]*[/dl]If you must have code you could try
Dim LastRow As Long, i As Long, X as long
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To LastRow Step 3
X = X + Cells(i, "A").Value
Next i
MsgBox XVBA Noob
Re: Adding Alternate Values In Vba
raggyryan, who is ragha81?
Re: Adding Alternate Values In Vba
Hello VBA noob.. thanks a lot. ur solution worked just as expected.. i used the vba code because I need that part inside an already existing code..
Hi Dave.. I am not sure who ragha81 is..
Re: Adding Alternate Values In Vba
You SHOULD know as they are using the same computer and IP address as you.
Re: Sum Every 3rd Cell In Column
IS IT dAVE.. THIS IS MY OFFICE COMPUTER.. MAYBE IT IS SOMEONE ELSE IN MY NETWORK.. I WILL BE CAUTIOUS..
Re: Sum Every 3rd Cell In Column
Yes, be cautious as the other user has had posting rights revoked.
Don’t have an account yet? Register yourself now and be a part of our community!