Grabar datos desde user form

27/07/2006 - 16:36 por Jorge Forero | Informe spam
Buenos días, estoy intentando crear una base de datos a través de un ser
form que contiene un combobox, dos textbox y un commandbutton.

1-. La idea es que al dar click en el command button, me grabe los datos
contenidos en el combobox y los textbox.
2-. mediante el siguiente código se logra que se ubique en la fila vacia de
la columna a

Worksheets("Fuerza de Ventas").Range("a8").Select
Do Until ActiveCell = emtpy
ActiveCell.Offset(1, 0).Select
Loop

3-. pero no se como grabar los datos, como enviar el combobox a la columna
A, el textbox1 a la B y el textbox2 a la C (de la fila vacia)

4-. Además si es posible que cuando se de click en el commandbutton se grabe
automáticamente el archivo en vez de ir a archivo-guardar.

Mil gracias por la colaboración

jorgef
 

Leer las respuestas

#1 Tux
28/07/2006 - 12:11 | Informe spam
Puedes probar con esto:



Dim iFila As Long

Dim ws As Worksheet

Set ws = Worksheets(1)

'encuentra la siguiente fila vacia

iFila = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

'copia los datos a la hoja

ws.Cells(iFila, 1).Value = Me.ComboBox1.Value

ws.Cells(iFila, 2).Value = Me.TextBox1.Value

ws.Cells(iFila, 3).Value = Me.TextBox2.Value


Me.ComboBox1.Value = ""

Me.TextBox1.Value = ""

Me.TextBox2.Value = ""

Me.ComboBox1.SetFocus

'graba sin ir a archivo-guardar, la puedes eliminar de aqui y añadir
tambien en un commandbutton aparte

ActiveWorkbook.Save




-
¡Saludos!

www.fermu.com

Preguntas similares