Adding two cells together
Hi, I have two columns next to each other, i wish to add cells and their neighbours together, save it as an integer and paste it in an external workbook. Obviously i could copy both colums into my destination workbook and have the calculation in there. I was just wondering if it was possible to do such a thing in vba? I was thinking something along the following would work, this just brings up an overflow error which i have not come across before! Am i along the right tracks Set rng = osheet.Range("D62") Do i = rng.Text + rng.Offset(0, 1).Text MsgBox i Set rng = rng.Offset(1, 0) Loop Until rng.row = sRow -- cereldine ------------------------------------------------------------------------ cereldine's Profile: http://www.excelforum.com/member.php...o&userid=32069 View this thread: http://www.excelforum.com/showthread...hreadid=552266 |
Adding two cells together
Set rng = osheet.Range("D62")
For i = rng.row to sRow tmp = Cells(i,4).Value + Cells(i,5).Value MsgBox tmp Next i -- HTH Bob Phillips (replace xxxx in the email address with gmail if mailing direct) "cereldine" wrote in message ... Hi, I have two columns next to each other, i wish to add cells and their neighbours together, save it as an integer and paste it in an external workbook. Obviously i could copy both colums into my destination workbook and have the calculation in there. I was just wondering if it was possible to do such a thing in vba? I was thinking something along the following would work, this just brings up an overflow error which i have not come across before! Am i along the right tracks Set rng = osheet.Range("D62") Do i = rng.Text + rng.Offset(0, 1).Text MsgBox i Set rng = rng.Offset(1, 0) Loop Until rng.row = sRow -- cereldine ------------------------------------------------------------------------ cereldine's Profile: http://www.excelforum.com/member.php...o&userid=32069 View this thread: http://www.excelforum.com/showthread...hreadid=552266 |
All times are GMT +1. The time now is 12:52 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com