Mar 15 2022 12:37 PM
Mar 15 2022 12:40 PM
Mar 15 2022 01:05 PM
Mar 15 2022 01:18 PM
If you really want to do this:
Right-click the sheet tab.
Select 'View Code' from the context menu.
Copy the following code into the worksheet module:
Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range If Not Intersect(Range("B2:B100"), Target) Is Nothing Then Application.ScreenUpdating = False Application.EnableEvents = False For Each rng In Intersect(Range("B2:B100"), Target) If rng.Value <> "" Then If IsNumeric(rng.Value) Then rng.Value = 12 * rng.Value End If End If Next rng Application.EnableEvents = True Application.ScreenUpdating = True End If End Sub
Change both instances of B2:B100 to the range where you want to multiply numbers with 12.
Switch back to Excel.
Save the workbook as a macro-enabled workbook (*.xlsm).
Make sure that you allow macros when you open it.
Warning: undo won't work for entering/editing data in the specified range. Clicking Undo or pressing Ctrl+Z will undo the previous action.