CÓDIGO PARA GUARDAR DATOS EN VISUAL BASIC

 

_______________________________BOTÓN GUARDAR___________________________

registro

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

Cells(ult + 1, 5) = TextBox5.Text

Cells(ult + 1, 6) = TextBox6.Text

________________________________________MÓDULO DE VISUAL BÁSIC____________

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)

_______________________________________BOTÓN CALCULAR O TOTAL________

TextBox6.Text = Val(TextBox4.Text) * Val(TextBox5.Text)