ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Making Cells Automatically Add #'s Instead of being written over (https://www.excelbanter.com/excel-programming/332175-making-cells-automatically-add-s-instead-being-written-over.html)

UBER_GEEK

Making Cells Automatically Add #'s Instead of being written over
 
So, some people i work with use a Tally Sheet, They constantly are
adding numbers upon numbers over and over all day long, it would be
nice if there were a way that if in say cell a1, there was the value 35
, and if you typed the value 5 in that cell, the value would then
change to 40.

Ive thought of ways around this, but i think on the scale im needing it
will bog down the spreadsheet, memory wise that is.

Thanks in advance.


UBER_GEEK

Making Cells Automatically Add #'s Instead of being written over
 
This is the only way i have found, but how to change it to work with a
range, not just one cell.

Public A


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.EnableEvents = False
[a1] = [a1] + A
Application.EnableEvents = True
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
A = [a1]
End Sub


bhofsetz[_47_]

Making Cells Automatically Add #'s Instead of being written over
 

Do you want the value typed in added to an entire range? How would th
range be specified

--
bhofset
-----------------------------------------------------------------------
bhofsetz's Profile: http://www.excelforum.com/member.php...fo&userid=1880
View this thread: http://www.excelforum.com/showthread.php?threadid=38023


Ivan F Moala[_56_]

Making Cells Automatically Add #'s Instead of being written over
 

UBER_GEEK Wrote:
This is the only way i have found, but how to change it to work with a
range, not just one cell.

Public A


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.EnableEvents = False
[a1] = [a1] + A
Application.EnableEvents = True
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
A = [a1]
End Sub



Perhaps this may help you out ??

http://www.xcelfiles.com/VBA_02.htm

--
Ivan F Moal

-----------------------------------------------------------------------
Ivan F Moala's Profile: http://www.excelforum.com/member.php...nfo&userid=195
View this thread: http://www.excelforum.com/showthread.php?threadid=38023



All times are GMT +1. The time now is 11:39 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com