How to assign value to textbox based on cell value

[ThrottleWorks]

Hi,

I have inserted a textbox from activeX control.
I am trying to assign value to this textbox from a cell.

However I not able to do it. Can anyone please help me how to assign value to textbox.
I have done it previously however facing bug this time as object does not support this property.

Can anyone please help me in this.

 

[Hui]

2 solutions

Sub Fill_ActiveX_TextBox()
ActiveSheet.TextBox1.Text = Range("A1").Text
ActiveSheet.OLEObjects("Textbox1").Object.Text = Range("A1").Text
End Sub

 

[shrivallabha]

Maybe you want to use LinkedCell property?

Select the TextBox | Goto Properties | In LinkedCell Property put cell address like:
=Sheet1!A1

 

[ThrottleWorks]

Hi @Hui sir, thanks a lot for the help. Have a nice day ahead.

Hi @shrivallabha sir, thanks a lot for the help. Have a nice day ahead.