Button adding cells

[fibonacci1101]

Hello Everyone!

I'm new here and I hope you will help me solve my problem

First of all I think I should probably post this thread Excel Programming / VBA / Macros section but I'm not sure so I post it here

Here is my problem. I have data in column A and some functions in column B. For exapmle:

	A	B
1	96	=A1*2+13
2	84	=A2*2+13
3	63	=A3*2+13
4	47	=A4*2+13
5	35	=A5*2+13

Using functions Excel calculates results which are de facto numbers.

Now I would like to create a button under the table that after clicking on it once would add all results from column B to resluts in column A (like A1+B1, A2+B2 and so on) so that new results of adding will be in column A.

I supose I have to use macros and iterations to do this but I have no idea how to start. I have been searching on the Internet but I haven't been able to find the solution.

Can someone help me here?

EDIT: Thanks to administration for moving my thread to the correct section

[NeedForExcel]

Try this -

Please Login or Register  to view this content.

I am assuming, you dont further need the Column B after its work is done.

Thank You,

Deep

[NeedForExcel]

Actually you dont really need to copy and paste the entire column here. However since the Macro isnt too complex and heavy Ive taken that approach.

Try this -

Please Login or Register  to view this content.

Deep

[HaHoBe]

Hi, fibonacci1101,

maybe like this

Please Login or Register  to view this content.

Ciao,
Holger

[fibonacci1101]

@msexcelathome, when I'm using your macro I'm getting error: Object required

@HaHoBe, yours works fine
But I have one more question. What if I would like to add different cells, let's say I would like to add cell G8 to C2, H8 to C3 and C11 to C4. How should I modified macro so I could change the cells however I want?

[HaHoBe]

Hi, fibonacci1101,

use 2 arrays holding the addresses for the cells:

Please Login or Register  to view this content.

Ciao,
Holger

[fibonacci1101]

@HaHoBe, super! that's exactly what I needed! Is there anyway I can thank you? Any "Thanks" button on the forum? Cause I can't see it anywhere.

[HaHoBe]

Hi, fibonacci1101,

glad if I was of any help.

You could mark the thread as solved (either look at the Forum Rules for help on this or find the link in my signature) - and if any answer really has helped you might consider to click the star in that posting to add to the reputation of the person who posted that hint.

Ciao,
Holger

[fibonacci1101]

One more question. If I would like to add cells from, let's say, D6:D12 to C6:C12 (after clicking the button C6=C6+D6, C7=C7+D7 and so on). How should I modify this macro?

[HaHoBe]

Hi, fibonacci1101,

the first code was for Column A to be added (giving 1 for the column number) so this could be altered to read:

Please Login or Register  to view this content.

Ciao,
Holger

[fibonacci1101]

Ok, thank you very much for explanation One last (I suppose) question If I would like to add cells from E13:E16 to cells from C5:C8 (like C5=C5+E13, C6=C6+E14 and so on) so that the spread between columns is bigger than one and I'm NOT adding neighbouring columns like before (A=A+B or C=C+D) but there is one or more columns between the cells I would like to add (C=C+E, but I'm leaving column D intact). And also I'm not adding the same rows like before (row 3 plus row 3, row 4 plus row 4 and so on) but different rows this time (row 5 plus row 13, row 6 plus row 14 and so on). How should I alter the macro?

[HaHoBe]

Hi, fibonacci1101,

maybe you should have a read in the VBE Help about Offset which may be used for this request.

Please Login or Register  to view this content.

One last (I suppose) question

The original question has long been answered, hasnīt it?

Ciao,
Holger

[fibonacci1101]

Ok, I've analysed your macro and I get it

For lngCounter = 5 To 8; because I'm adding to rows from 5 to 8
With Cells(lngCounter, 3); because I'm interested in cells in coulmn C which is 3rd column
.Value = .Value + .Offset(8, 2).Value; because 13 = 5 + 8 (I'm adding rows starting from 13th row) and 5 = 3 + 2 (E is 5th coulmn)

Now I understand As I said before it was my last question Original question has long been answered but I think there was no point in creating new thread Once again big thanks for helping me out, HaHoBe I'm marking this thread as "solved"