Tbox text copy to a cell macro

[DaVihm]

Hi,

I tried to read this and other forums but couldn’t find the answered I was looking for. I am awful at writing macros so I tried to record a macro that would copy text from sheet 1 text box 2 to a sheet 2 cell. I recorded a macro but it doesn’t work. The macro does not select the text box I want it to select.

I also read that something like this should work:

Sheets("Sheet1").TextBox2.Text = Sheets("Alg"). Range("ED5").Value

But it doesn’t.

Can someone please write me a macro or correct the one above this so that it would copy Text Box 2 content from sheet 1 to Sheet “Alg” cell ED5.

Thank you

[AlphaFrog]

Try this...

Sheets("Alg").Range("ED5").Value = Sheets("Sheet1").TextBox2.Text

[DaVihm]

I ran this: Sub Kopeeri_text()
'
' Kopeeri_text Macro
'

'
Sheets("Alg").Range("ED5").Value = Sheets("Sheet1").TextBox2.Text

End Sub

and it gave me an error 438 "Object doesn't support this property or method"

[AlphaFrog]

Your macro is correct as long as you have a text box named TextBox2 located on Sheet1. I tested it and it worked for me.

[DaVihm]

The name is "Text Box 2" it has spaces in its name.If i write the name with spaces or " " or _ it still wont work. What should i use to fill the spaces in?

Thank you

[AlphaFrog]

There are two types of textboxes. The ActiveX-type from the Control Toolbox toolbar and the Drawing Object type (or Shapes-type) from the Drawing toolbar. I assumed you used the ActiveX type because you originally referred to TextBox2 and that's the naming convention (no spaces) used for that type.

This will get the text from the Drawing object type textbox.
Sheets("Alg").Range("ED5").Value = Sheets("Sheet1").Shapes("Text Box 2").DrawingObject.Text

[DaVihm]

Thank you AlphaFrog!

The drawing object worked. I diden't know that there are two text boxes. I wrote it in one as i read a macro from another forum an i assumed that you had to skip the blanks.