Copy textbox text to cell

[jeffreydhe]

I have searched high and low for the correct macro but have not found out how to do yet.

I have multiple surveys created in excel using textboxes. I am trying to create a summary datasheet by respondent. I know how to copy from a cell to my new sheet but can't figure out how to copy the text from a named textbox on the survey into a specific cell on another sheet.

Any help?
Thanks

 

[Richard Schollar]

Hi Jeffrey & Welcome to the Board!

Something likel:

Sheets("CopyToSheet").Range("A1").Value = Sheets("SurveySheet").TextBox1.Value

 

[jeffreydhe]

Thanks Richard,
I have learned a lot surfing around here over the past weeks. I appreciate everyone's investment.

I tried this and I got a 438 error. Does the fact that the textbox is named make a difference?

Sub copytextbox()
Sheets("Temp").Range("E8").Value = Sheets("Phase I Survey").Q1N2.Value
End Sub

 

[Richard Schollar]

Is your textbox created from the Controls Toolbox?

 

[jeffreydhe]

The textboxes were originally created with a macro something like this.

<meta http-equiv="Content-Type" content="text/html; charset=utf-8"><meta name="ProgId" content="OneNote.File"><meta name="Generator" content="Microsoft OneNote 12">  [FONT=Calibri]Sub textbox()
With ActiveSheet
  .Shapes.AddTextbox msoTextOrientationHorizontal, .Cells(1, 2).Left, .Cells(1, 2).Top, .Cells(1, 2).Width, .Cells(1, 2).Height
End With
End Sub
[/FONT]

Then they were named manually.