LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 1
Default Add value to cell...


Hello, I was wondering if someone could help me to add the code to d
the following in a worksheet:
Assume that the sheet has current data. The user clicks on a cell (fo
example that contained the number 500) and enters the number 5 and hit
enter or tabs to another field. I would like the number 5 that wa
entered to be added to 500. Again, this would be updated by eithe
hitting enter or moving to another field.

I have attempted this, but could not get it to work. Below is my cod
if it helps anyone to understand what i am trying to do. I woul
appreciate any help...


Code
-------------------
Dim intExistVal As Integer
Dim intCellCol As Integer
Dim intCellRow As Integer
Dim temp

Private Sub Worksheet_Change(ByVal Target As Range)
Sheet1.Range(intCellCol + intCellRow).Value = Sheet1.Range(intCellCol + intCellRow).Value + intExistVal
intExistVal = Empty
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
intExistVal = ActiveCell.Value
intCellCol = ActiveCell.Column
intCellRow = ActiveCell.Row
End Su
-------------------


also, I tried using Cell(intCellCol + intCellRow) and could not get th
Cell object members to pull down after entering a following period. No
sure why this doesn't work

--
ctroy
-----------------------------------------------------------------------
ctroyp's Profile: http://www.excelforum.com/member.php...fo&userid=3532
View this thread: http://www.excelforum.com/showthread.php?threadid=55097

 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Code to copy the formulae of one cell to all the cell in the rangewith the specific cell and columnnumber changing Options Yuvraj Excel Discussion (Misc queries) 0 June 29th 09 11:20 AM
Code to copy the formulae of one cell to all the cell in the rangewith the specific cell and columnnumber changing Yuvraj Excel Discussion (Misc queries) 0 June 26th 09 06:01 PM
Populate a cell if values in cell 1 and cell 2 match cell 3 and 4 [email protected] Excel Worksheet Functions 1 August 22nd 08 02:04 AM
How to create/run "cell A equals Cell B put Cell C info in Cell D abmb161 Excel Discussion (Misc queries) 5 January 26th 06 06:36 PM
Question: Cell formula or macro to write result of one cell to another cell Frederik Romanov Excel Programming 1 July 8th 03 03:03 PM


All times are GMT +1. The time now is 09:13 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"