Formulario Completo Hecho en Visual Basic

Lo primero que vamos a hacer es hacer una base de datos un la primera hoja de excel.
Al terminar la base de datos empezamos a grabar una magro, precionamos (ctrl+b) y le pones el codigo de tu primer nit, y le das siguiente y cerrar.

Al tener listo esto. Nos vamos a Visual Basic y empesamos a diseñar nuestro primero userform.
Donde deben de ir todos los datos que pusimos en la base que hicimos en la hoja de excel.

Este userform debe tener 5 botones los cuales seran:
-boton guardar
-boton limpiar
-boton salir
-boton buscar
-boton menu




Las cuales como sus nombres lo dicen, para eso se utilizaran.

Y los datos me que lleva cada boton son:
para el boton "GUARDAR"
Private Sub CommandButton4_Click()
Sheets("hoja1").Select
Range("A1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell = TextBox1
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox2
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox3
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox4
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox5
ActiveCell.Offset(0, 1).Select

para el boton "LIMPIAR"
Private Sub CommandButton3_Click()
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
TextBox5 = Empty
TextBox6 = Empty
TextBox7 = Empty
TextBox8 = Empty
End Sub


para el boton "SALIR"
Private Sub CommandButton5_Click()
UserForm1.Hide
End Sub


para el boton "BUSCAR"
Private Sub CommandButton2_Click()
On Error Resume Next
Range("A2").Select
    Cells.Find(What:=TextBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
       
        Label9.Caption = ActiveCell
       
        If Label9.Caption = TextBox1.Value Then
            ActiveCell.Offset(0, 1).Select
            TextBox2.Value = ActiveCell
            ActiveCell.Offset(0, 1).Select
            TextBox3.Value = ActiveCell
            ActiveCell.Offset(0, 1).Select
            TextBox4.Value = ActiveCell
            ActiveCell.Offset(0, 1).Select
            TextBox5.Value = ActiveCell
            ActiveCell.Offset(0, 1).Select
            TextBox6.Value = ActiveCell
            ActiveCell.Offset(0, 1).Select
            TextBox7.Value = ActiveCell
            ActiveCell.Offset(0, 1).Select
            TextBox8.Value = ActiveCell
        Else
            MsgBox "numero de nit incorrecto"
        End If
End Sub


para el boton "MENU"
Private Sub CommandButton1_Click()
UserForm1.Hide
UserForm2.Show
End Sub

------- ♥ --------------------♥---------------------♥.........................♥...........................♥...........................♥

Este formulario es muy util, para llevar un buen control de tus clientes, tus proveedores, tus trabajadores, ó ya sea lo que tu necesites oh! creas mas conveniente!

Espero te sea util... ♥