Cuadro de texto a Celda

hola, !

Como paso el texto que está contenido en un cuadro de texto a una celda?.
tengo más de 100 cuadros de textos, por lo cual debo hacerlo mediante codigo.

dependiendo de 'donde' esten tus cuadros de texto [formulario, hojas de calculo, ?]
y cuales/como sean sus nombres y cuales sus celdas 'relacionadas' -???-
pudiera ser tan sencillo como algo +/- asi:

Dim n As Byte
For n = 1 To 100
Range("a" & n) = UserForm1.Controls("textbox" & n)
Next

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

On 19 jun, 16:54, "Héctor Miguel"
wrote:

hola, !

> Como paso el texto que está contenido en un cuadro de texto a una celda?.
> tengo más de 100 cuadros de textos, por lo cual debo hacerlo mediante codigo.

dependiendo de 'donde' esten tus cuadros de texto [formulario, hojas de calculo, ?]
y cuales/como sean sus nombres y cuales sus celdas 'relacionadas' -???-
pudiera ser tan sencillo como algo +/- asi:

Dim n As Byte
For n = 1 To 100
Range("a" & n) = UserForm1.Controls("textbox" & n)
Next

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Hector,
Tengo los cuadros de texto en distintas hojas de calculo y tienen
nombre "Cuadro de texto 1"...
con este codigo me da un error.

Gracias!!!

hola, !

Tengo los cuadros de texto en distintas hojas de calculo y tienen nombre "Cuadro de texto 1"...
con este codigo me da un error.

algun 'patron/esquema/linea/...' de en cual hoja esta cada cuadro de texto, su nombre y su celda ?

[recuerda que de este lado del mensaje no se puede ver lo que tu estas viendo] :))

saludos,
hector.

__ las consultas anteriores __

> Como paso el texto que está contenido en un cuadro de texto a una celda?.
> tengo más de 100 cuadros de textos, por lo cual debo hacerlo mediante codigo.

dependiendo de 'donde' esten tus cuadros de texto [formulario, hojas de calculo, ?]
y cuales/como sean sus nombres y cuales sus celdas 'relacionadas' -???-
pudiera ser tan sencillo como algo +/- asi:

Dim n As Byte
For n = 1 To 100
Range("a" & n) = UserForm1.Controls("textbox" & n)
Next

si cualquier duda [o informacion adicional]... comentas ?

Perdon, te describo:

Hoja1, hay 25 cuadros de texto, cuyo nombre es "Cuadro de texto 1" al
"Cuadro de texto 25"
Hoja2, hay 25 cuadros de texto, cuyo nombre es "Cuadro de texto 26" al
"Cuadro de texto 50"
Hoja3, hay 25 cuadros de texto, cuyo nombre es "Cuadro de texto 51" al
"Cuadro de texto 75"
Hoja4, hay 25 cuadros de texto, cuyo nombre es "Cuadro de texto 76" al
"Cuadro de texto 100"

No estan en ninguna celda o rango en particular, sino que estan
"flotando" como cualquier figura..me entiendes?
Necesito que lo que diga en el cuadro de texto 1 quede en una hoja
llamada Comentarios, celda A1,
Cuadro de texto 1 = Celda A1
Cuadro de texto 2 = Celda A2 ..etc...

El codigo que se encuentre en Thiswoorkbook, al momento de guardar el
archivo, se copien los textos en las celdas.
Gracias!.

hola, !

Hoja1, hay 25 cuadros de texto, cuyo nombre es "Cuadro de texto 1" al "Cuadro de texto 25"
Hoja2, hay 25 cuadros de texto, cuyo nombre es "Cuadro de texto 26" al "Cuadro de texto 50"
Hoja3, hay 25 cuadros de texto, cuyo nombre es "Cuadro de texto 51" al "Cuadro de texto 75"
Hoja4, hay 25 cuadros de texto, cuyo nombre es "Cuadro de texto 76" al "Cuadro de texto 100"
No estan en ninguna celda o rango en particular, sino que estan "flotando"...
Necesito que lo que diga en el cuadro de texto 1 quede en una hoja llamada Comentarios, celda A1,
Cuadro de texto 1 = Celda A1
Cuadro de texto 2 = Celda A2 ..etc...
El codigo que se encuentre en Thiswoorkbook, al momento de guardar el archivo, se copien los textos en las celdas.

copia/pega las siguientes lineas en el modulo de codigo de tu libro [ThisWorkbook] DEPENDIENDO DE...

1) si tus 'cuadros de texto' son de la barra de herramientas de dibujo [o sea, cuadros de texto 'normales']...

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Sig As Byte
For Sig = 1 To 100
Worksheets("comentarios").Range("a" & Sig) = _
Worksheets("hoja" & Int(((Sig - 1) + 25) / 25)) _
.Shapes("cuadro de texto " & Sig).TextFrame.Characters.Text
Next
End Sub

2) si tus 'cuadros de texto' son de la barra de herramientas 'cuadro de controles' [o sea, TextBoxes]...

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Sig As Byte
For Sig = 1 To 100
Worksheets("comentarios").Range("a" & Sig) = _
Worksheets("hoja" & Int(((Sig - 1) + 25) / 25)) _
.OLEObjects("cuadro de texto " & Sig).Object.Text
Next
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.