El siguiente paso despu\u00e9s del dise\u00f1o es la creaci\u00f3n de los c\u00f3digos o sea de la programaci\u00f3n. En Visual Basic se programa todas las acciones o eventos, lo que nosotros vamos a crear en este momento es una acci\u00f3n (Evento). <\/p>\n
Adem\u00e1s, la acci\u00f3n consistir\u00e1 en aceptar los datos digitados en el formulario (Guardar los Datos) o cancelar, pero antes tambi\u00e9n debemos crear c\u00f3digos que validen los tipos de datos.<\/p>\n
Sigamos los siguientes pasos para Programar el Sistema de Facturaci\u00f3n e inventario 20<\/h2>\n\n- Primeramente entramos a Visual Basic para Aplicaciones (VBA).<\/span><\/li>\n
- Luego abrimos el UserForm CLIENTES.<\/span><\/li>\n
- Pulsamos clic derecho sobre el bot\u00f3n \u00abAceptar\u00bb, se despliega varias opciones, escogemos \u00abVer c\u00f3digo\u00bb.<\/span><\/li>\n<\/ul>\n
Ejemplo de la Imagen – Facturaci\u00f3n e inventario 20<\/h3>\n
![\"Facturaci\u00f3n](\"\/\/aplicaexcelcontable.com\/blog\/wp-content\/uploads\/2018\/11\/Asignando-Codigo-al-Bot\u00f3n-Aceptar.png\" "\\"Ver")
<\/span><\/p>\n\n- Bien, ahora al seleccionar \u00abVer c\u00f3digo\u00bb se abre una nueva ventana en blanco, dentro de esta escribimos el siguiente c\u00f3digo:<\/span><\/li>\n<\/ul>\n
Private Sub CommandButton2_Click ()<\/p>\n
‘ bot\u00f3n Aceptar<\/p>\n
‘ valida importes<\/p>\n
If Val (TextBox1) <= 0 Then<\/p>\n
MsgBox \u00abDebe ingresar un numero mayor que 0\u00bb<\/p>\n
TextBox1 . SetFocus<\/p>\n
Exit Sub<\/p>\n
End If<\/p>\n
\n
‘ si todo est\u00e1 correcto se guarda el registro<\/p>\n
Dim filalibre As Integer<\/p>\n
‘ se busca la primer fila libre<\/p>\n
filalibre = Sheets (\u00abClientes\u00bb) . Range (\u00abA1048576\u00bb) . End (xlUp) .Row + 1<\/p>\n
Sheets (\u00abClientes\u00bb) . Cells (filalibre, 2) = Val (TextBox1)<\/p>\n
Sheets (\u00abClientes\u00bb) . Cells (filalibre, 1) = UCase (TextBox2)<\/p>\n
Sheets (\u00abClientes\u00bb) . Cells (filalibre, 3) = UCase (TextBox3)<\/p>\n
Sheets (\u00abClientes\u00bb) . Cells (filalibre, 4) = Val (TextBox4)<\/p>\n
\n
End Sub<\/p>\n
Ejemplo de la Imagen – Facturaci\u00f3n e inventario 20<\/h3>\n
![\"Facturaci\u00f3n](\"\/\/aplicaexcelcontable.com\/blog\/wp-content\/uploads\/2018\/11\/Asignando-Codigo.png\" "\\"Asignando")
<\/span><\/p>\n\n- Para continuar, guardamos y abrimos nuevamente el UserForm CLIENTES, ahora pulsamos clic derecho sobre el bot\u00f3n \u00abCancelar\u00bb, se despliega varias opciones, seleccionamos \u00abVer c\u00f3digo\u00bb, dentro del espacio escribimos los siguientes c\u00f3digos:<\/span><\/li>\n<\/ul>\n
Private Sub CommandButton1_Click ()<\/p>\n
‘ bot\u00f3n Cancelar o Limpiar<\/p>\n
Dim miCtrl<\/p>\n
‘ recorremos todos los controles del userform<\/p>\n
For Each miCtrl In CLIENTES . Controls<\/p>\n
‘ verificamos que sea un control Textbox<\/p>\n
If TypeName (miCtrl) = \u00abTextBox\u00bb Then<\/p>\n
miCtrl.Value = \u00ab\u00bb<\/p>\n
End If<\/p>\n
Next<\/p>\n
End Sub<\/p>\n
Ejemplo de la Imagen – Facturaci\u00f3n e inventario 20<\/h3>\n
![\"Facturaci\u00f3n](\"\/\/aplicaexcelcontable.com\/blog\/wp-content\/uploads\/2018\/11\/Asignando-Codigo1.png\" "\\"Asignando")
<\/span><\/p>\n\n- Seleccionamos el UserForm CLIENTES y pulsamos clic derecho sobre el Texbox1 (Me refiero al primer cuadro de texto que acompa\u00f1a al ID CONTABLE), se despliega varias opciones, escogemos \u00abVer c\u00f3digo\u00bb, dentro de esta escribimos el siguiente c\u00f3digo:<\/span><\/li>\n<\/ul>\n
Private Sub TextBox1_Exit (ByVal Cancel As MSForms.ReturnBoolean)<\/p>\n
If Not IsNumeric (TextBox1) Then<\/p>\n
MsgBox \u00abEste campo debe ser num\u00e9rico\u00bb<\/p>\n
TextBox1 = \u00ab\u00bb<\/p>\n
Cancel = True<\/p>\n
End If<\/p>\n
End Sub<\/p>\n
NOTA:<\/span><\/strong> D\u00e9jame decirte que al seleccionar cada Texbox (Cuadro de Texto), su nombre lo indica en la ventana \u00abPropiedades\u00bb, puedes ver que donde dice Name a su lado dice Texbox1, si seleccionas el dos, aparecer\u00e1 Texbox2.<\/p>\nAdem\u00e1s, estos Texbox se enumeran autom\u00e1ticamente cada vez que lo insertamos. As\u00ed que si no lo ten\u00edas ordenado por favor hazlo ahora:<\/p>\n
ID CONTABLE = Texbox1<\/p>\n
NOMBRE Y APELLIDO = Texbox2<\/p>\n
DIRECCION = Texbox3<\/p>\n
TELEFONO = Texbox4<\/p>\n
\n- Para concluir, a continuaci\u00f3n te dejo los c\u00f3digos para los Texbox2, 3 y 4:<\/span><\/li>\n<\/ul>\n
Texbox2<\/p>\n
Private Sub TextBox2_AfterUpdate()<\/p>\n
TextBox2.Value = UCase(TextBox2.Value)<\/p>\n
End Sub<\/p>\n
\n
Texbox3<\/p>\n
Private Sub TextBox3_AfterUpdate()<\/p>\n
TextBox3.Value = UCase(TextBox3.Value)<\/p>\n
End Sub<\/p>\n
\n
Texbox4<\/p>\n
Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)<\/p>\n
If Not IsNumeric(TextBox4) Then<\/p>\n
MsgBox \u00abEste campo debe ser num\u00e9rico\u00bb<\/p>\n
TextBox4 = \u00ab\u00bb<\/p>\n
Cancel = True<\/p>\n
End If<\/p>\n
End Sub<\/p>\n
Bien, ahora te pido que tomes acci\u00f3n no te desesperes, conc\u00e9ntrate lo mas que puedas, estoy seguro que lo lograras. una vez termines de escribir todos estos c\u00f3digos ve y prueba tu formulario desde la Hoja F.VENTA.<\/p>\n
Si te gusto el tema de hoy, comp\u00e1rtelo con tus amigos de Facebook, pulsando clic en compartir:<\/p>\n
Y si aun no estas suscrito en nuestro canal, tan solo pulsa clic en el bot\u00f3n rojo para acceder a todos los v\u00eddeos nuevos que subimos cada semana:<\/p>\n
S\u00edguenos en:<\/strong><\/h1>\n<\/a><\/a><\/p>\nPara Finalizar:<\/h6>\n
Me gustar\u00eda saber que piensas de este articulo \u00abSistema de Facturaci\u00f3n e Inventario 20 en Excel\u00bb, por lo tanto, d\u00e9jame tu comentario con dudas, criticas constructivas y sugerencias.<\/p>\n
Hasta aqu\u00ed hemos llegado con este articulo, para continuar con el siguiente articulo, tan solo pulsa clic en el bot\u00f3n:<\/p>\n
Cualquier duda o pregunta, puedes escribirme directamente en la <\/span>secci\u00f3n de comentarios<\/span><\/a>, en la pagina del chat<\/span><\/a>, directamente en whatsapp<\/span> o bien al correo electr\u00f3nico rogerperez@aplicaexcelcontable.com.<\/span><\/p>\nTe saluda,<\/span><\/p>\nRoger Perez \u2013 Aplica Excel Contable<\/strong><\/p>\n![\"Sistema](\"\/\/aplicaexcelcontable.com\/blog\/wp-content\/uploads\/2015\/12\/Aplica-Excel-Contable-1.png\" "\\"Aplica")
<\/span><\/p>\nCurso Aplica Excel Contable<\/h1>\n120 V\u00eddeos paso a paso<\/h1>\n\n- Excel Basico – Avanzado<\/span><\/li>\n
- Curso de VBA y Contabilidad<\/span><\/li>\n
- Como crear tu Sistema Contable<\/span><\/li>\n
- Como crear tu Sistema de Facturacion<\/span><\/li>\n
- Como crear tu Sistema de Inventario<\/span><\/li>\n
- Como configurar y personalizar tu sistema <\/span><\/li>\n<\/ul>\n","protected":false},"excerpt":{"rendered":"
Sistema de Facturaci\u00f3n e Inventario 20 en Excel Comencemos con el articulo Como crear tu Sistema de Facturaci\u00f3n 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\u00f3n: El siguiente paso despu\u00e9s del dise\u00f1o es la creaci\u00f3n de los c\u00f3digos […]<\/p>\n","protected":false},"author":1,"featured_media":18725,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[292,14,17,15,16],"class_list":["post-825","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-excel-y-contabilidad","tag-excel-y-contabilidad","tag-sistema-de-facturacion","tag-sistema-de-gestion","tag-sistema-de-ventas","tag-sistemas-de-inventarios","post-wrapper","thrv_wrapper"],"_links":{"self":[{"href":"https:\/\/aplicaexcelcontable.com\/blog\/wp-json\/wp\/v2\/posts\/825","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/aplicaexcelcontable.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/aplicaexcelcontable.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/aplicaexcelcontable.com\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/aplicaexcelcontable.com\/blog\/wp-json\/wp\/v2\/comments?post=825"}],"version-history":[{"count":0,"href":"https:\/\/aplicaexcelcontable.com\/blog\/wp-json\/wp\/v2\/posts\/825\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/aplicaexcelcontable.com\/blog\/wp-json\/wp\/v2\/media\/18725"}],"wp:attachment":[{"href":"https:\/\/aplicaexcelcontable.com\/blog\/wp-json\/wp\/v2\/media?parent=825"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/aplicaexcelcontable.com\/blog\/wp-json\/wp\/v2\/categories?post=825"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/aplicaexcelcontable.com\/blog\/wp-json\/wp\/v2\/tags?post=825"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
Ejemplo de la Imagen – Facturaci\u00f3n e inventario 20<\/h3>\n
Private Sub CommandButton2_Click ()<\/p>\n ‘ bot\u00f3n Aceptar<\/p>\n ‘ valida importes<\/p>\n If Val (TextBox1) <= 0 Then<\/p>\n MsgBox \u00abDebe ingresar un numero mayor que 0\u00bb<\/p>\n TextBox1 . SetFocus<\/p>\n Exit Sub<\/p>\n End If<\/p>\n \n ‘ si todo est\u00e1 correcto se guarda el registro<\/p>\n Dim filalibre As Integer<\/p>\n ‘ se busca la primer fila libre<\/p>\n filalibre = Sheets (\u00abClientes\u00bb) . Range (\u00abA1048576\u00bb) . End (xlUp) .Row + 1<\/p>\n Sheets (\u00abClientes\u00bb) . Cells (filalibre, 2) = Val (TextBox1)<\/p>\n Sheets (\u00abClientes\u00bb) . Cells (filalibre, 1) = UCase (TextBox2)<\/p>\n Sheets (\u00abClientes\u00bb) . Cells (filalibre, 3) = UCase (TextBox3)<\/p>\n Sheets (\u00abClientes\u00bb) . Cells (filalibre, 4) = Val (TextBox4)<\/p>\n \n End Sub<\/p>\n Private Sub CommandButton1_Click ()<\/p>\n ‘ bot\u00f3n Cancelar o Limpiar<\/p>\n Dim miCtrl<\/p>\n ‘ recorremos todos los controles del userform<\/p>\n For Each miCtrl In CLIENTES . Controls<\/p>\n ‘ verificamos que sea un control Textbox<\/p>\n If TypeName (miCtrl) = \u00abTextBox\u00bb Then<\/p>\n miCtrl.Value = \u00ab\u00bb<\/p>\n End If<\/p>\n Next<\/p>\n End Sub<\/p>\n Private Sub TextBox1_Exit (ByVal Cancel As MSForms.ReturnBoolean)<\/p>\n If Not IsNumeric (TextBox1) Then<\/p>\n MsgBox \u00abEste campo debe ser num\u00e9rico\u00bb<\/p>\n TextBox1 = \u00ab\u00bb<\/p>\n Cancel = True<\/p>\n End If<\/p>\n End Sub<\/p>\n NOTA:<\/span><\/strong> D\u00e9jame decirte que al seleccionar cada Texbox (Cuadro de Texto), su nombre lo indica en la ventana \u00abPropiedades\u00bb, puedes ver que donde dice Name a su lado dice Texbox1, si seleccionas el dos, aparecer\u00e1 Texbox2.<\/p>\n Adem\u00e1s, estos Texbox se enumeran autom\u00e1ticamente cada vez que lo insertamos. As\u00ed que si no lo ten\u00edas ordenado por favor hazlo ahora:<\/p>\n ID CONTABLE = Texbox1<\/p>\n NOMBRE Y APELLIDO = Texbox2<\/p>\n DIRECCION = Texbox3<\/p>\n TELEFONO = Texbox4<\/p>\n Texbox2<\/p>\n Private Sub TextBox2_AfterUpdate()<\/p>\n TextBox2.Value = UCase(TextBox2.Value)<\/p>\n End Sub<\/p>\n \n Texbox3<\/p>\n Private Sub TextBox3_AfterUpdate()<\/p>\n TextBox3.Value = UCase(TextBox3.Value)<\/p>\n End Sub<\/p>\n \n Texbox4<\/p>\n Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)<\/p>\n If Not IsNumeric(TextBox4) Then<\/p>\n MsgBox \u00abEste campo debe ser num\u00e9rico\u00bb<\/p>\n TextBox4 = \u00ab\u00bb<\/p>\n Cancel = True<\/p>\n End If<\/p>\n End Sub<\/p>\n Bien, ahora te pido que tomes acci\u00f3n no te desesperes, conc\u00e9ntrate lo mas que puedas, estoy seguro que lo lograras. una vez termines de escribir todos estos c\u00f3digos ve y prueba tu formulario desde la Hoja F.VENTA.<\/p>\n Si te gusto el tema de hoy, comp\u00e1rtelo con tus amigos de Facebook, pulsando clic en compartir:<\/p>\n Y si aun no estas suscrito en nuestro canal, tan solo pulsa clic en el bot\u00f3n rojo para acceder a todos los v\u00eddeos nuevos que subimos cada semana:<\/p>\n <\/a><\/a><\/p>\n Me gustar\u00eda saber que piensas de este articulo \u00abSistema de Facturaci\u00f3n e Inventario 20 en Excel\u00bb, por lo tanto, d\u00e9jame tu comentario con dudas, criticas constructivas y sugerencias.<\/p>\n Hasta aqu\u00ed hemos llegado con este articulo, para continuar con el siguiente articulo, tan solo pulsa clic en el bot\u00f3n:<\/p>\n Cualquier duda o pregunta, puedes escribirme directamente en la <\/span>secci\u00f3n de comentarios<\/span><\/a>, en la pagina del chat<\/span><\/a>, directamente en whatsapp<\/span> o bien al correo electr\u00f3nico rogerperez@aplicaexcelcontable.com.<\/span><\/p>\n Te saluda,<\/span><\/p>\n Roger Perez \u2013 Aplica Excel Contable<\/strong><\/p>\n Sistema de Facturaci\u00f3n e Inventario 20 en Excel Comencemos con el articulo Como crear tu Sistema de Facturaci\u00f3n 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\u00f3n: El siguiente paso despu\u00e9s del dise\u00f1o es la creaci\u00f3n de los c\u00f3digos […]<\/p>\n","protected":false},"author":1,"featured_media":18725,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[292,14,17,15,16],"class_list":["post-825","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-excel-y-contabilidad","tag-excel-y-contabilidad","tag-sistema-de-facturacion","tag-sistema-de-gestion","tag-sistema-de-ventas","tag-sistemas-de-inventarios","post-wrapper","thrv_wrapper"],"_links":{"self":[{"href":"https:\/\/aplicaexcelcontable.com\/blog\/wp-json\/wp\/v2\/posts\/825","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/aplicaexcelcontable.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/aplicaexcelcontable.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/aplicaexcelcontable.com\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/aplicaexcelcontable.com\/blog\/wp-json\/wp\/v2\/comments?post=825"}],"version-history":[{"count":0,"href":"https:\/\/aplicaexcelcontable.com\/blog\/wp-json\/wp\/v2\/posts\/825\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/aplicaexcelcontable.com\/blog\/wp-json\/wp\/v2\/media\/18725"}],"wp:attachment":[{"href":"https:\/\/aplicaexcelcontable.com\/blog\/wp-json\/wp\/v2\/media?parent=825"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/aplicaexcelcontable.com\/blog\/wp-json\/wp\/v2\/categories?post=825"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/aplicaexcelcontable.com\/blog\/wp-json\/wp\/v2\/tags?post=825"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}<\/span><\/p>\n\n
Ejemplo de la Imagen – Facturaci\u00f3n e inventario 20<\/h3>\n
<\/span><\/p>\n\n
Ejemplo de la Imagen – Facturaci\u00f3n e inventario 20<\/h3>\n
<\/span><\/p>\n\n
\n
S\u00edguenos en:<\/strong><\/h1>\n
Para Finalizar:<\/h6>\n
<\/span><\/p>\nCurso Aplica Excel Contable<\/h1>\n
120 V\u00eddeos paso a paso<\/h1>\n
\n