Facturizacion...!

Hoy les mostrare como crear un sistema de facturizacion..!

Primero nos iremos a VISUALBASIC usaremos Visualform, haremos lo siguiente:

Daremos doble clik y pondremos lo siguiente:

Ahora haremos que aparesca una ventana en la que pida nombre y contraseña con un boton que diga entrar:

Despues utilizaremos los siguientes codigos para programarlo:

Los codigos son:
If TextBox1 = "Iris" Then
    Dim message As String
        If TextBox2 = "123456" Then
       
        mensaje = MsgBox("usuario y contraseña Correcta", vbOKOnly, "Bienvenido")
       
        Else: mensaje = MsgBox("Usuario Incorreco", vbOKOnly, "Error")
       
        End If
   
    Else: mensaje = MsgBox("Password Incorrecto", vbOKOnly, "Error")
   
End If
If TextBox1 = "Iris" Then
If TextBox2 = "123456" Then
       
UserForm2.Hide
UserForm3.Show
  
End If
End If


End Sub
Private Sub Label2_Click()
End Sub
Private Sub Label3_Click()
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub UserForm_Click()
End Sub
Ahora usaremos otro userform para que nuestra factura pudea abrir las siguientes funciones:

Promaremos los codigos de la siguiente manera:

Los codigos son los siguientes:
Private Sub CommandButton1_Click()
ActiveWorkbook.Save
End Sub
Private Sub CommandButton2_Click()
ActiveWorkbook.Save
ActiveWorkbook.Close


End Sub
Private Sub CommandButton3_Click()
UserForm3.Hide


End Sub
Private Sub CommandButton4_Click()
UserForm3.Hide
userform4.Show


End Sub
Private Sub CommandButton5_Click()
userform5.Show
End Sub
Private Sub UserForm_Click()
End Sub
Ahora iremos a excel y crearemos una factura de igual manera guiandonos por lo ya realizado:

La base de datos quedara asi:

Y por ultimo se realiza la cotizacion quedando de la siguiente manera:

La segunda parte de la cotizacion donde se encuentran todos los registros:

Despues de todo el procedimiento queda correr nuestro programa.
Espero sea de su agrado...! =D