Solved How to input a text into a textbox? (1 Viewer)

[KitaYama]

I have a textbox and an activeX textbox in a sheet.
And I'm trying to input a text into them with vba.
In either case I'm receiving object doesn't support this property.

I've tested :
ActiveSheet.MySerialNo=MyVariable
MySerialNo.Value=MyVariable
ActiveSheet.MySerialNo.Value=MyVariable
ActiveSheet.MySerialNo.Text=MyVariable

What is the correct format to insert a text in a textbox?
Any kind of insight is appreciated.

Note :

• the textboxes are on the sheet, not a userform.
• The textbox is added from Insert tab , Textbox button
• ActiveX textbox is added from Developer tab, Insert, ActiveX textbox

Cross posted here:

How to input a text into a textbox?

I have a textbox and an activeX textbox in a sheet. And I'm trying to input a text into them with vba. In either case I'm receiving object doesn't support this property. I've tested : ActiveSheet.MySerialNo=MyVariable MySerialNo.Value=MyVariable ActiveSheet.MySerialNo.Value=MyVariable...

www.mrexcel.com

 

[KitaYama]

Up

 

[arnelgp]

here is a demo.
see the Change event of Sheet1.

 

[KitaYama]

@arnelgp
I need to run the code from a button on a different sheet. Or from a function in a normal module.
I still receive the same error message.

Any additional insight is much appreciated.

 

[arnelgp]

what is MySerialNo, is it a Named Range?
if it is, you can simply use:

[MySerialNo] = 3

 

[KitaYama]

It's the name of the textbox.

I've attached a zip. It contains a xlsm file and the only macro within this file is the following. You can be sure it doesn't harm you pc

Sub Button1_Click()
    
    Dim ws As Worksheet
    
    Set ws = Worksheets("Sheet1")
    With ws
        .MySerialNo = 32
    End With
    
End Sub

 

[arnelgp]

Sub Button1_Click()
    
    Sheet1.[MySerialNo] = 3
    
End Sub

 

[KitaYama]

@arnelgp You're a star.
I really don't know how to appreciate your help and
you don't really know how much you just helped me.

Excellent as ever.