Copiar texto de una Textbox a una celda

[Patricia]

Hola: Alguien puede decirme como copio el contenido de un TextBox a una celda, esto claro, mediante código de Vba...
ya que requiero que al digitar datos en el Textbox me valide si se digitan numeros o letras(esto ya lo hice) y necesito que me pase el dato contenido en el textbox a una celda para que ésta sea tomada como referencia en otra hoja en la que estoy haciendo un filtro avanzado...
agradezco las ideas que puedan darme...
Patricia.-Colombia

[OECII]

Patricia wrote:
> Hola: Alguien puede decirme como copio el contenido de un TextBox a una celda

suponiendo que es la hoja de calculo activa, el textbox se llama txtTexto1 y
quieres escribirlo en la celda que se encuentra en la fila i, columna j, sería
algo así:

sub copiarTexto(i as Integer, j as Integer)
ActiveWorkSheet.Cells(i,j).formulaR1C1 = txtTexto1.Text
end Sub

[Patricia]

OECII, Agradezco que me hayas respondido, no se que tenga mal yo aqui, pero no me funciona en mi hoja...

sub copiarTexto(i as Integer, j as Integer)

ActiveWorkSheet.Cells(i,j).formulaR1C1 = Textbox1.Text
end Sub
no se por cual valor reemplazar a "i" y "j" :-s

Deseo que al digitar algo en el Textbox1, este valor sea copiado en la celda M10 de la misma hoja.

gracias por tu ayuda---

----- OECII escribió: -----

[OECII]

Patricia wrote:

>
>
> Deseo que al digitar algo en el Textbox1, este valor sea copiado en la celda M10 de la misma hoja.

Ok, si es la celda M10 sería así

-La letra se refiere a la columna (A= columna1, B= columna2 y así)
-El número se refiere a la fila

en el caso de que quieras seleccionar la celda M10 sería:
i = 10; j = 13

ya que en tu caso es una celda específica otra forma alternativa sería:

Activesheet.Range("M10").FormulaR1C1 = txtTexto.Text

[Daniel Sandoval]

> Patricia wrote:
> > Hola: Alguien puede decirme como copio el contenido de un TextBox a
una celda

Que tal!!!

Existe una propiedad del objeto TextBox llamada LinkedCell, que como su
nombre lo dice
es la celda donde quieres que se refleje lo que escribes en el textbox

Intenta poner TextBox.LinkedCell = "$M$10" o también TextBox.LinkedCell =
ActiveCell.Address

Espero que sea lo que buscas, sí no, no dudes en preguntar ok.

Saludos!!!

[Patricia]

Oye muchas Gracias Daniel... eso es lo que necesito!!!
Saludos,,
Patricia

----- Daniel Sandoval escribió: -----

[samuela...@gmail.com]

Hola, q tal. Alguien q me pueda ayudar. Quiero pegar valores de un TEXTBOX a una celda una debajo de otra repetidas veces ya que el codigo lo pondré en un botón guardar

[David_erh]

Hola Sulema, en principio lo mejor es crear una nueva cosulta, pero ya que la consulta es similar a la iniciada por Patricia creo que no está de mas poder darte alguna ayuda.
Lo primero es que debes de determinar a partir de que celda se empezará a copiar los datos del textbox, supongamos que es la celda "A5" (Cells(5,1))

Lo que yo haría sería inicializar el formulario definiendo la celda "A4" como activa:
Private Sub UserForm_Initialize()
ThisWorkbook.ActiveSheet.Cells(4, 1).Activate
End Sub

Luego lo que haría sería que cada vez que se hace click en el botón "guardar", se copiaría el contenido del TextBox1 en la siguiente celda activa, para ello utilizo el metodo "offset":

Private Sub guardar_Click()
ActiveCell.Offset(1, 0).Value = TextBox1.Text
ActiveCell.Offset(1, 0).Activate
End Sub

Espero que te ayude.

Saludos

[espinozaj...@gmail.com]

David , Muchas Gracias , a mi me ayudo mucho, saludos

[agustin milciades osorio]

Gracias David, me ayudaste, saludos.