Comencemos con el articulo Como crear tu Sistema de Facturación e Inventario 20 en Excel. Pero antes que nada te invito a que leas el articulo anterior, para eso tan solo pulsa clic en el botón:

El siguiente paso después del diseño es la creación de los códigos o sea de la programación. En Visual Basic se programa todas las acciones o eventos, lo que nosotros vamos a crear en este momento es una acción (Evento). 

Además, la acción consistirá en aceptar los datos digitados en el formulario (Guardar los Datos) o cancelar, pero antes también debemos crear códigos que validen los tipos de datos.

Private Sub CommandButton2_Click ()

' botón Aceptar

' valida importes

If Val (TextBox1) <= 0 Then

MsgBox "Debe ingresar un numero mayor que 0"

TextBox1 . SetFocus

Exit Sub

End If

' si todo está correcto se guarda el registro

Dim filalibre As Integer

' se busca la primer fila libre

filalibre = Sheets ("Clientes") . Range ("A1048576") . End (xlUp) .Row + 1

Sheets ("Clientes") . Cells (filalibre, 2) = Val (TextBox1)

Sheets ("Clientes") . Cells (filalibre, 1) = UCase (TextBox2)

Sheets ("Clientes") . Cells (filalibre, 3) = UCase (TextBox3)

Sheets ("Clientes") . Cells (filalibre, 4) = Val (TextBox4)

End Sub

Private Sub CommandButton1_Click ()

' botón Cancelar o Limpiar

Dim miCtrl

' recorremos todos los controles del userform

For Each miCtrl In CLIENTES . Controls

' verificamos que sea un control Textbox

 If TypeName (miCtrl) = "TextBox" Then

          miCtrl.Value = ""

     End If

Next

End Sub

Private Sub TextBox1_Exit (ByVal Cancel As MSForms.ReturnBoolean)

If Not IsNumeric (TextBox1) Then

MsgBox "Este campo debe ser numérico"

TextBox1 = ""

Cancel = True

End If

End Sub

NOTA: Déjame decirte que al seleccionar cada Texbox (Cuadro de Texto), su nombre lo indica en la ventana "Propiedades", puedes ver que donde dice Name a su lado dice Texbox1, si seleccionas el dos, aparecerá Texbox2.

Además, estos Texbox se enumeran automáticamente cada vez que lo insertamos. Así que si no lo tenías ordenado por favor hazlo ahora:

ID CONTABLE = Texbox1

NOMBRE Y APELLIDO = Texbox2

DIRECCION = Texbox3

TELEFONO = Texbox4

Texbox2

Private Sub TextBox2_AfterUpdate()

TextBox2.Value = UCase(TextBox2.Value)

End Sub

Texbox3

Private Sub TextBox3_AfterUpdate()

TextBox3.Value = UCase(TextBox3.Value)

End Sub

Texbox4

Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If Not IsNumeric(TextBox4) Then

MsgBox "Este campo debe ser numérico"

TextBox4 = ""

Cancel = True

End If

End Sub

Bien, ahora te pido que tomes acción no te desesperes, concéntrate lo mas que puedas, estoy seguro que lo lograras. una vez termines de escribir todos estos códigos ve y prueba tu formulario desde la Hoja F.VENTA.

Si te gusto el tema de hoy, compártelo con tus amigos de Facebook, pulsando clic en compartir:

Y si aun no estas suscrito en nuestro canal, tan solo pulsa clic en el botón rojo para acceder a todos los vídeos nuevos que subimos cada semana:

Me gustaría saber que piensas de este articulo "Sistema de Facturación e Inventario 20 en Excel", por lo tanto, déjame tu comentario con dudas, criticas constructivas y sugerencias.

Hasta aquí hemos llegado con este articulo, para continuar con el siguiente articulo, tan solo pulsa clic en el botón: