Forum Discussion
Assign current cell based on value next to it
Give 2 adjacent cells i.e. A1 and A2.
How do I make a formula in A1 based off A2.
Goal: I'd like a user to be able to enter their initials in A2 and then auto date it in A1
Thanks.
Right-click the sheet tab.
Select 'View Code' from the context menu.
Copy the code listed below into the worksheet module.
Switch back to Excel.
Save the workbook as a macro-enabled workbook (*.xlsm).
Make sure that you allow macros when you open the workbook.
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Range("A2"), Target) Is Nothing Then Application.ScreenUpdating = False Application.EnableEvents = False If Range("A2").Value = "" Then Range("A1").ClearContents Else Range("A1").Value = Date ' or Now to include the time End If Application.EnableEvents = True Application.ScreenUpdating = True End If End Sub
3 Replies
Do you want A1 to record the date when A2 is first filled, or whenever the value of A2 is edited?
- whenever A2 is edited.
Thanks.
Right-click the sheet tab.
Select 'View Code' from the context menu.
Copy the code listed below into the worksheet module.
Switch back to Excel.
Save the workbook as a macro-enabled workbook (*.xlsm).
Make sure that you allow macros when you open the workbook.
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Range("A2"), Target) Is Nothing Then Application.ScreenUpdating = False Application.EnableEvents = False If Range("A2").Value = "" Then Range("A1").ClearContents Else Range("A1").Value = Date ' or Now to include the time End If Application.EnableEvents = True Application.ScreenUpdating = True End If End Sub
