Ligar txtbox con celdas de excel

Hola a todo el foro, ¿habría la manera que me puedan explicar algo sobre vb6?
Tengo un form1 con textbox1 y textbox2 y tengo una hoja de Excel en donde tengo las celdas B15 y B16, si yo relleno los textbox1 y textbox2 automáticamente se tienen que almacenar a las celdas B15 Y B16 de la hoja de excel... Me podrían ayudar por favor...
Saludos y gracias!

1 respuesta

Respuesta
1
Utiliza los siguientes eventos de los objetos textbox:
Private Sub TextBox1_Change()
Range("B15").Select
ActiveCell.FormulaR1C1 = TextBox1.Value
End Sub
Private Sub TextBox2_Change()
Range("B16").Select
ActiveCell.FormulaR1C1 = TextBox2.Value
End Sub
Muchas gracias por contestar Leone... ya puse a prueba el código pero tengo varias dudas...
1.- ¿No hay linea de código para mandar llamar al archivo y hoja que quiero que se agreguen los datos desde el texbox de vb?
2.- Agregue el código a un botón pero me marca error de compilación... ¿cómo lo soluciono?
3.-Es necesario un botón como lo estoy pensando para que cuando acabe de llevar los n textBox al darle clic los mande a excel.
Podrías ayudarme a resolver mis dudas... saludos y mil gracias leone.
'Para llamar la aplicacion Excel puedes Utilizar lo siguiente:
Set ApExcel = CreateObject("Excel.application")
'Coloca visible el objeto
ApExcel.Visible = True
'Abre el archivo a utilizar
ApExcel.Workbooks.Open Filename:= "C:\Tu_Archivo.xls"
'Modifica el codigo de los eventos changes asi:
Private Sub TextBox1_Change()
'Selecciona la Hoja a utilizar
ApExcel.Sheets("Hoja1").Select
ApExcel.Range("B15").Select
ApExcel.ActiveCell.FormulaR1C1 = TextBox1.Value
End Sub
Private Sub TextBox2_Change()
'Selecciona la Hoja a Utilizar
ApExcel.Sheets("Hoja1").Select
ApExcel.Range("B16").Select
ApExcel.ActiveCell.FormulaR1C1 = TextBox2.Value
End Sub
Para utilizar el botón que estas pensando y mandar estos datos a excel puedes utilizar el mismo código del evento change de los textbox
antes de enviar los datos el archivo de excel debe estar previamente abierto con el código que te envío, solo necesitas hacerlo una vez.
Suerte.
Muchas gracias leone... esto estuvo super... dejame probarlo y te comento, gracias y saludos!
Excelente, prueba y me avisas.
Recuerda Cerrar esta pregunta aun esta activa.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas