código principal para ejecutar archivos en visual basic y Excel.

_________________________________________________________________________

Estos codigos los ingresamos en el botón guardar tomar en cuenta el nombre de la hoja y la cantidad de columnas de los datos a guardar

__________________________________________________________________________

Sheets("datos").Select

ult = Cells(Rows.Count, 1).End(xlUp).Row

Cells(ult + 1, 1) = TextBox1.Text

Cells(ult + 1, 2) = TextBox2.Text

Cells(ult + 1, 3) = TextBox3.Text

Cells(ult + 1, 4) = TextBox4.Text

______________________________________________________________________

Datos a ingresar en el módulo debe de ser igual al del formulario.

_______________________________________________________________________

Sub registro()

IDPRODUCTO = UserForm1.TextBox1.Text

CATEGORIA = UserForm1.TextBox2.Text

PRODUCTO = UserForm1.TextBox3.Text

CANTIDAD_INGRESADA = UserForm1.TextBox4.Text

PRECIO_UNIT = Val(UserForm1.TextBox5.Text)

Total = Val(UserForm1.TextBox6.Text)

End Sub

COMPUTACIÓN6TOPERITO