Forum Discussion
Highest Lowest price from running price
- Jun 01, 2021
Start by entering -1000000 in M10 and 1000000 in M12. These are initial values that will be overwritten.
Enter the formula =NOW() in another cell (it doesn't matter where).
Right-click the sheet tab.
Select 'View Code' from the context menu.
Copy the following code into the worksheet module:
Private Sub Worksheet_Calculate() Application.EnableEvents = False Range("M10").Value = Application.Max(Range("L9,M10")) Range("M12").Value = Application.Min(Range("L9,M12")) Application.EnableEvents = True End Sub
Switch back to Excel.
Save the workbook as a macro-enabled workbook.
Make sure that you allow macros when you open it.
Start by entering -1000000 in M10 and 1000000 in M12. These are initial values that will be overwritten.
Enter the formula =NOW() in another cell (it doesn't matter where).
Right-click the sheet tab.
Select 'View Code' from the context menu.
Copy the following code into the worksheet module:
Private Sub Worksheet_Calculate()
Application.EnableEvents = False
Range("M10").Value = Application.Max(Range("L9,M10"))
Range("M12").Value = Application.Min(Range("L9,M12"))
Application.EnableEvents = True
End Sub
Switch back to Excel.
Save the workbook as a macro-enabled workbook.
Make sure that you allow macros when you open it.
- samnptiJul 14, 2021Brass Contributorsir ,
How it would be incase of range of item .Data is in L9 :L19 instead of L9 and Max in M9:M19 and MIN O9:O19- HansVogelaarJul 14, 2021MVP
What does the worksheet look like now?
- samnptiJul 14, 2021Brass Contributor
- dhanu1660Jun 02, 2021Copper Contributor
HansVogelaar Very Very thanks sir, You are super, its working,