A few words of thanks would be greatly appreciated.

Cell input to call macro in adjacent cell

Latest update on November 18, 2009 at 09:16 AM by aakai1056 .

Issue
Solution
Note

Issue

I have a scenario that i'd like automated. The scenario is as follows

If i enter a value in any cell in a particular column, i want the system time to be entered in the adjacent cell. Currently i have used this command in a macro to do it, but it is a manual process (ActiveCell.Value = Time) and i have to click on the adjacent cell and then press the shortcut buttons to do it every time.

Example:

If i enter 123 in cell A2, then i want the system time (eg. 6:59:33 PM) to be captured in cell B2. I want to continue entering values in the column 'A' one below the other with system time being automatically entered down to the second in the corresponding adjacent cell in column 'B'. Is this possible, it would be awesome if someone could help me.

Solution

Implement this code on the worksheet you want it to work on (right click on the worksheet tab, click on view code):

Private Sub Worksheet_Change(ByVal Target As Range) 
ActiveCell.Offset(-1, 1) = Time 
End Sub

Whenever you put something in a cell and hit ENTER, the current system time is being put in the adjacent cell to the right.

Note

NOTE that you have to confirm your entry by hitting ENTER and not use the arrows or TAB.

Thanks to Trowa for this tip on the forum.

Cell input to call macro in adjacent cell
Find Serial Number and input Average Value into Adjacent cell ✓ - Forum - Office Software
Run macro when cell changes to specific value - How-To - Excel
Blinking cell in excel without macro ✓ - Forum - Excel
Excel macro insert picture based on cell value - Forum - Excel
Macro copy and paste in next blank cell ✓ - Forum - Excel

This document, titled « Cell input to call macro in adjacent cell », is available under the Creative Commons license. Any copy, reuse, or modification of the content should be sufficiently credited to CCM (ccm.net).

Excel - Using IF statement to add 1 to total

How to Compare Two Excel Sheets and Combine Unique Data

Issue

Solution

Note

Subscribe To Our Newsletter!