Anónimo
Pasar datos de textbox a base de datos excel
Hola amigo experto
Una vez más molestándote con una consulta. Tengo un form con 3 textbox (fecha, producto y cantidad) y un botón (registrar), en una hoja excel tengo una base de datos en donde lo que se desea es que los datos de los textbox del form se vayan ingresando mediante el botón (registrar), es decir, por ejemplo:
fecha= 08.11.10, producto= aceite girasol; cantidad= 200 se registren en las celdas B2, B3 y B4. Luego hago otro ingreso fecha= 09.11.10, producto= aceite capri; cantidad= 400 se registren en las celdas C2, C3 y C4 y asi sucesivamente... Muchas gracias por la ayuda y espero que mi consulta este clara....saludos Walter. Obviamente en las celdas A2, A3 y A4 estan los rotulos de fecha, producto y cantidad
Una vez más molestándote con una consulta. Tengo un form con 3 textbox (fecha, producto y cantidad) y un botón (registrar), en una hoja excel tengo una base de datos en donde lo que se desea es que los datos de los textbox del form se vayan ingresando mediante el botón (registrar), es decir, por ejemplo:
fecha= 08.11.10, producto= aceite girasol; cantidad= 200 se registren en las celdas B2, B3 y B4. Luego hago otro ingreso fecha= 09.11.10, producto= aceite capri; cantidad= 400 se registren en las celdas C2, C3 y C4 y asi sucesivamente... Muchas gracias por la ayuda y espero que mi consulta este clara....saludos Walter. Obviamente en las celdas A2, A3 y A4 estan los rotulos de fecha, producto y cantidad
Respuesta de boumerang
1
Hola amigo experto
¿Pudiste ver mi consulta?
¿Pudiste ver mi consulta?
Listo. Más sencillo no podía quedar-
-
Private Sub CommandButton1_Click()
Dim DATOS As Range
Set DATOS = Range("2:2")
For Each CELDA In DATOS
If CELDA.Value = "" Then Exit For
Next CELDA
CELDA.Value = TextBox1.Value
CELDA.Offset(1, 0).Value = TextBox2.Value
CELDA.Offset(2, 0).Value = TextBox3.Value
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
End Sub
-
-
Private Sub CommandButton1_Click()
Dim DATOS As Range
Set DATOS = Range("2:2")
For Each CELDA In DATOS
If CELDA.Value = "" Then Exit For
Next CELDA
CELDA.Value = TextBox1.Value
CELDA.Offset(1, 0).Value = TextBox2.Value
CELDA.Offset(2, 0).Value = TextBox3.Value
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
End Sub
-