Recording cell value (formula) as it changes using VBA

ExcelColonist

New Member
Joined
Feb 1, 2021
Messages
8
Office Version
  1. 365
  2. 2019
Platform
  1. Windows
Good evening,

I have two sheets, DataSheet and CalcSheet, in CalcSheet there are 2 cells in table2 (B2, C2, both formula's) whose value's are calculated based off cells in a table1 in DataSheet (where I input and add new data as I go)

In CalcSheet, I'm hoping to figure out how to record cells B2 and C2 in two columns in the same sheet, as they change. For example,

if cell B2 = 5, store value 5 in cell D1
if cell B2 = 10, store value 10 in cell D2
if cell B2 = 55, store value 55 in cell D3

if cell C2 = 4, store value 4 in cell E1
if cell C2 = 17, store value 17 in cell E2
if cell C2 = 45, store value 45 in cell E3 and so forth.

I did some homework and found a helpful guide here: How to record changing values in a cell in Excel? (extendoffice.com) But it doesn't quite explain what I'm hoping to achieve.
 

Excel Facts

How to total the visible cells?
From the first blank cell below a filtered data set, press Alt+=. Instead of SUM, you will get SUBTOTAL(9,)

Peter_SSs

MrExcel MVP, Moderator
Joined
May 28, 2005
Messages
51,708
Office Version
  1. 365
Platform
  1. Windows
Welcome to the MrExcel board!

What is the formula in B2 of CalcSheet?
What is the formula in C2 of CalcSheet?
 

mohadin

Well-known Member
Joined
Mar 22, 2015
Messages
1,158
Office Version
  1. 2013
Platform
  1. Windows
What about
This code in CalcSheet code
VBA Code:
Private Sub Worksheet_Calculate()
    Me.Cells(2, 4).Offset(Me.Cells(Rows.Count, 5).End(xlUp).Row - 1) = Me.Range("B2").Value
    Me.Cells(2, 5).Offset(Me.Cells(Rows.Count, 6).End(xlUp).Row - 1) = Me.Range("c2").Value
End Sub
 

Forum statistics

Threads
1,147,498
Messages
5,741,504
Members
423,663
Latest member
kaveh87rsh

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top