Make a column that automatically pastes the values from another column

[Jyggalag]

Hi all,

I currently have this setup:

I would like to have column E automatically paste column D, but as values. Right now column D is filled with the formula (=A+B). I would like to have this pasted as values into column E, but done so on an automatic basis.

The easiest solution I see would be to make a macro that pastes column D into column E.

However, I have seen some VBA codes that can do fancy tricks that might workaround this. For example, I remember seeing one that would turn a column into a subtraction/addition column, so if you inserted a number into this column, it would automatically subtract it or add it to the number in the next column.

Is it possible to do something similar to this, through a code for example? Where it sets column E to automatically paste the values from D into itself, preferably from cell E2 and downwards.

Would be amazing. Thank you everybody!

Kind regards,
Jyggalag


EDIT:

I essentially want Excel to run this VBA code, but at all times without me pressing on a macro:

Sub TestSumIf()
Range("E2:E8").Value = Range("D2:D8").Value
End Sub

 

[offthelip]

Put this code inthe worksheet code for the sheet where you want it. It is trigger by the recalculate event which means it runs =everytime D is recalculated.

Private Sub Worksheet_Calculate()
lastrow = Cells(Rows.Count, "D").End(xlUp).Row
Range("d2:d" & lastrow).Copy Range("e2:e" & lastrow)
End Sub

 

[offthelip]

sorry I forgot to put the .values:
try this one:

Private Sub Worksheet_Calculate()
lastrow = Cells(Rows.Count, "D").End(xlUp).Row
inarr = Range("d2:d" & lastrow).Value
Range("e2:e" & lastrow) = inarr
End Sub

 

[Jyggalag]

sorry I forgot to put the .values:
try this one:

Private Sub Worksheet_Calculate()
lastrow = Cells(Rows.Count, "D").End(xlUp).Row
inarr = Range("d2:d" & lastrow).Value
Range("e2:e" & lastrow) = inarr
End Sub

This is amazing! Excellent code, thank you so much my friend! You've saved me a lot of trouble :D

Have a lovely day!