Output of formula displayed as value in next cell

[DaleKeel]

I have a formula in cell I4 that sums other formulas on same worksheet.
Can the result displayed in I4 be automatically transformed to a value in the adjacent cell J4?
Transformed not just displayed.

I have a formula in cell E4 that pulls formula results from another worksheet.
Can the result displayed in E4 be automatically transformed to a value in the adjacent cell F4?
Transformed not just displayed.

Thanks

 

[DanteAmor]

Put the following code in the events of your sheet, check if it is what you need.

Private Sub Worksheet_Calculate()
  Application.EnableEvents = False
  [F4] = [E4]
  [J4] = [I4]
  Application.EnableEvents = True
End Sub

SHEET EVENT
Right click the tab of the sheet you want this to work, select view code and paste the code into the window that opens up.

 

[DaleKeel]

I put the code in as you wrote "Right click the tab of the sheet you want this to work, select view code and paste the code into the window that opens up.
The cells F4 and J4 remain blank. Should I be doing something else?

 

[DanteAmor]

On the Formulas ribbon, look to the right and click Calculation Options. On the dropdown list, verify that Automatic is selected.

Now press the F9 key.
Whenever any value in the formula changes, the cells will be updated.

 

[DaleKeel]

That worked perfectly. Thanks!
I have to do this from E4:E30 and of course I4:I30

Private Sub Worksheet_Calculate()
Application.EnableEvents = False
[F4] = [E4]
[J4] = [I4]
[F5] = [E5]
[J5] = [I5]
[F6] = [E6]
[J6] = [I6]

Application.EnableEvents = True
End Sub

Is there a better way of doing this than typing in each on at a time? This is not a problem for me with only 30 but this could end up to be a large number of times later on.

Thanks MUCH

Dale

 

[DanteAmor]

Try this:

Private Sub Worksheet_Calculate()
  Application.ScreenUpdating = False
  Application.EnableEvents = False
  Dim i As Long
  For i = 4 To 30
    Range("F" & i).Value = Range("E" & i).Value
    Range("J" & i).Value = Range("I" & i).Value
  Next
  Application.EnableEvents = True
End Sub

 

[DaleKeel]

That worked perfectly! Thank you very much. Sorry I did not get back to you sooner had to fix some other things before trying your code.

Dale

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.