Userform textbox to display realtime a worksheet cell's dynamic value

[KarlRadaza]

Problem seems so simple yet almost impossible for me to solve, hope you guys can help me.


I basically just need a textbox on a userform to reflect the value calculated on a worksheet cell. I have tried sourcing the cell where i learned that deletes the formula in the cell, evenso those formulas like:


UserForm1.TextBox1.Text = CStr(Range("c5").Value)
UserForm1.Show


and


Private Sub UserForm_Initialize()
Me.TextBox1.Text = CStr(ThisWorkbook.Sheets("Sheet1").Range("C5").Value)
End Sub


They would only show the recent value in the worksheet when the userform runs but does not change accordingly with the cell's updated value.

 

[6StringJazzer]

You need code in the worksheet module for Sheet1 to do this; it cannot be done within the UserForm module.

It's not necessary to do a string conversion.

Private Sub Worksheet_Change(ByVal Target As Range)

   If Not Intersect(Target, Range("C5")) Is Nothing Then
      UserForm1.TextBox1.Text = Range("C5").Text
   End If
   
End Sub

 

[KarlRadaza]

Thanks for the reply 6StringJazzer, but unfortunately it still only shows the latest value upon running the userform but not changing as the cell value does.

 

[6StringJazzer]

What is causing the cell value to change? Is there a formula in the cell, or a value?

If it's a formula, my method will not work and you would need

Private Sub Worksheet_Calculate()

   UserForm1.TextBox1.Text = Range("C5").Text

End Sub

 

[KarlRadaza]

Yep, the worksheet cell does have a formula, and the latest formula you suggested did the trick! Awesome! Thanks a lot 6stringjazzer! \m/

 

[KarlRadaza]

Yep, the worksheet cell does have a formula, and the latest formula you suggested did the trick! Awesome! Thanks a lot 6stringjazzer! \m/

*i meant "latest code"

 

[6StringJazzer]

Glad to help! That's a tough one without being able to see your file.