{"id":850,"date":"2013-05-21T05:30:07","date_gmt":"2013-05-21T11:30:07","guid":{"rendered":"http:\/\/aplicaexcelcontable.com\/blog\/?p=850"},"modified":"2025-01-21T20:12:47","modified_gmt":"2025-01-22T02:12:47","slug":"facturacion-e-inventario-23","status":"publish","type":"post","link":"https:\/\/aplicaexcelcontable.com\/blog\/facturacion-e-inventario-23.html","title":{"rendered":"Sistema de Facturaci\u00f3n e inventario 23 en Excel"},"content":{"rendered":"<h1 style=\"text-align: center;\">Sistema de Facturacion e inventario 23 en Excel<\/h1>\n<p style=\"text-align: justify;\">Comencemos con el articulo <strong>Como crear tu Sistema de Facturaci\u00f3n e Inventario 23 en Excel.<\/strong> Pero antes que nada te invito a que leas el articulo anterior, para eso tan solo pulsa clic en el bot\u00f3n:<\/p>\n<p style=\"text-align: justify;\">Muy bien! En esta articulo vamos a escribir el c\u00f3digo que trabajara por ti en todo momento.<\/p>\n<p style=\"text-align: justify;\">Activamos el modo dise\u00f1o del bot\u00f3n GUARDAR, pulsamos clic derecho sobre el bot\u00f3n GUARDAR y seleccionamos \u00abVer c\u00f3digo\u00bb, al seleccionar \u00abVer c\u00f3digo\u00bb se abre VBA (Visual Basic para Aplicaciones).<\/p>\n<p style=\"text-align: justify;\">Dentro de este puedes observar algo como \u00abPrivate Sub CommandButton2_Click()\u00bb en medio de este &nbsp;escribimos el siguiente c\u00f3digo:<\/p>\n<p style=\"text-align: justify;\">ActiveSheet . Unprotect Password:=\u00bb123&#8243;<\/p>\n<p style=\"text-align: justify;\">Sheets (\u00abBase\u00bb) . Select<\/p>\n<p style=\"text-align: justify;\">Sheets (\u00abBase\u00bb) . Unprotect \u00ab123\u00bb<\/p>\n<p style=\"text-align: justify;\">Sheets (\u00abF.COMPRA\u00bb) . Select<\/p>\n<p style=\"text-align: justify;\">&#8216; rutina que graba la factura compra en hoja base<\/p>\n<p style=\"text-align: justify;\">&#8216; se busca la primer fila libre en hoja Fact<\/p>\n<p style=\"text-align: justify;\">filalibre = Sheets (\u00abBase\u00bb) . Range (\u00abA1048576\u00bb) . End (xlUp) . Row + 1<\/p>\n<p style=\"text-align: justify;\">&#8216; se pasar\u00e1n los datos desde la 1er fila de items<\/p>\n<p style=\"text-align: justify;\">ActiveSheet . Range (\u00abA10\u00bb) . Select<\/p>\n<p style=\"text-align: justify;\">fila = 10<\/p>\n<p style=\"text-align: justify;\">While ActiveCell.Value &lt;&gt; \u00ab\u00bb<\/p>\n<p style=\"text-align: justify;\">&#8216; copiamos datos fijos ajustando nro col<\/p>\n<p style=\"text-align: justify;\">Sheets (\u00abBase\u00bb) . Cells (filalibre, 2) = ActiveSheet . Range (\u00abF6\u00bb) &nbsp;&#8216; NRO FACT<\/p>\n<p style=\"text-align: justify;\">Sheets (\u00abBase\u00bb) . Cells (filalibre, 1) = ActiveSheet . Range (\u00abB5\u00bb) &nbsp;&#8216; FECHA<\/p>\n<p style=\"text-align: justify;\">Sheets (\u00abBase\u00bb) . Cells (filalibre, 5) = ActiveSheet . Range (\u00abC7\u00bb) &nbsp;&#8216; PROVEEDOR<\/p>\n<p style=\"text-align: justify;\">Sheets (\u00abBase\u00bb) . Cells (filalibre, 6) = ActiveSheet . Range (\u00abG4\u00bb) &nbsp;&#8216; N\u00ba ESTADO<\/p>\n<p style=\"text-align: justify;\">Sheets (\u00abBase\u00bb) . Cells (filalibre, 7) = ActiveSheet . Range(\u00abF5\u00bb) &nbsp;&#8216; COD. CONT.<\/p>\n<p style=\"text-align: justify;\">&#8216; otros datos del encabezado<\/p>\n<p style=\"text-align: justify;\"><em><\/em><\/p>\n<p style=\"text-align: justify;\">&#8216; copiamos lista de items<\/p>\n<p style=\"text-align: justify;\">Sheets (\u00abBase\u00bb) . Cells (filalibre, 13) = ActiveCell . Offset (0, 0) &#8216; CANT<\/p>\n<p style=\"text-align: justify;\">Sheets (\u00abBase\u00bb) . Cells (filalibre, 8) = ActiveCell . Offset (0, 1) &#8216; COD PROD<\/p>\n<p style=\"text-align: justify;\">Sheets (\u00abBase\u00bb) . Cells (filalibre, 10) = ActiveCell . Offset (0, 3) &#8216; DESCRIPC<\/p>\n<p style=\"text-align: justify;\">Sheets (\u00abBase\u00bb) . Cells (filalibre, 11) = ActiveCell . Offset (0, 4) &#8216; COSTO<\/p>\n<p style=\"text-align: justify;\">\n<p style=\"text-align: justify;\">&#8216; incremento la variable fila para repetir el bucle<\/p>\n<p style=\"text-align: justify;\">filalibre = filalibre + 1<\/p>\n<p style=\"text-align: justify;\">\n<p style=\"text-align: justify;\">&#8216; repito el bucle para los items siguientes<\/p>\n<p style=\"text-align: justify;\">ActiveCell . Offset (1, 0) . Select<\/p>\n<p style=\"text-align: justify;\">Wend<\/p>\n<p style=\"text-align: justify;\">&#8216; una vez conclu\u00edda la copia debiera limpiarse el form de datos<\/p>\n<p style=\"text-align: justify;\">&#8216; para el ingreso de nueva factura<\/p>\n<p style=\"text-align: justify;\"><em><\/em>Call limpiezafc<\/p>\n<p style=\"text-align: justify;\">ActiveSheet.Protect Password:=\u00bb123&#8243;<\/p>\n<p style=\"text-align: justify;\">Sheets (\u00abBase\u00bb) . Select<\/p>\n<p style=\"text-align: justify;\">Sheets (\u00abBase\u00bb) . Protect \u00ab123\u00bb<\/p>\n<p style=\"text-align: justify;\">Sheets (\u00abF.COMPRA\u00bb) . Select<\/p>\n<p style=\"text-align: justify;\">Recuerda que este c\u00f3digo tiene que estar dentro de \u00abPrivate Sub CommandButton2_Click()\u00bb, no dentro de \u00abPrivate Sub CommandButton1_Click()\u00bb, porque aqu\u00ed escribiremos c\u00f3digos para que imprima la Factura.<\/p>\n<h2 style=\"text-align: center;\">Ejemplo de la Imagen &#8211; Facturaci\u00f3n e inventario 23<\/h2>\n<p><span><img loading=\"lazy\" decoding=\"async\" alt=\"Facturaci\u00f3n e inventario 23\" width=\"686\" height=\"699\" title=\"Codigos del Boton Guardar\" data-id=\"39113\" src=\"https:\/\/aplicaexcelcontable.com\/blog\/wp-content\/uploads\/2018\/11\/Codigos-del-Boton-Guardar.png\" data-width=\"686\" data-height=\"699\" data-init-width=\"626\" data-init-height=\"638\" style=\"aspect-ratio: auto 626 \/ 638;\"><\/span><\/p>\n<p style=\"text-align: justify;\">Si ya escribiste el c\u00f3digo, guardamos y cerramos VBA, nos ubicamos en la Hoja F.COMPRA, lo volvemos a proteger.<\/p>\n<p style=\"text-align: justify;\">Luego nos ubicamos en la Hoja BASE, lo desprotegemos, seleccionamos la celda A2:A4 y nos ubicamos en la pesta\u00f1a \u00abINICIO\u00bb, secci\u00f3n \u00abCeldas\u00bb, comando \u00abFormato\u00bb, lo desplegamos, escogemos \u00abOcultar\u00bb o \u00abMostrar\u00bb, se despliega varias opciones y seleccionamos \u00abMostrar Filas\u00bb.<\/p>\n<p style=\"text-align: justify;\">Con esta acci\u00f3n des-ocultamos la fila 3, volvemos a proteger la Hoja y regresamos a la Hoja F. COMPRA. Ingresamos datos a la Hoja y listo, solo prueba como los datos se volc\u00e1n autom\u00e1ticamente con tan solo un clic.<\/p>\n<p style=\"text-align: justify;\">Si te gusto el tema de hoy, comp\u00e1rtelo con tus amigos de Facebook, pulsando clic en compartir:<\/p>\n<p style=\"text-align: justify;\">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<h1><strong>S\u00edguenos en:<\/strong><\/h1>\n<p><a href=\"https:\/\/www.facebook.com\/aplicaexcecontable\" target=\"_blank\" rel=\"  noopener\"><\/a><a href=\"http:\/\/www.youtube.com\/user\/excelycontabilidad?sub_confirmation=1\" target=\"_blank\" rel=\"  noopener\"><\/a><\/p>\n<h3>Para Finalizar:<\/h3>\n<p style=\"text-align: justify;\">Me gustar\u00eda saber qu\u00e9 piensas de este articulo \u00abSistema de Facturaci\u00f3n e Inventario 23 en Excel\u00bb, por lo tanto, d\u00e9jame tu comentario con dudas, criticas constructivas y sugerencias.<\/p>\n<p style=\"text-align: justify;\">Hasta aqu\u00ed hemos llegado con este articulo, para continuar con el siguiente articulo, tan solo pulsa clic en el bot\u00f3n:<\/p>\n<p style=\"\">Cualquier duda o pregunta, puedes escribirme directamente en la<span style=\"--tcb-text-highlight-color: rgb(237, 243, 13) !important;\">&nbsp;<\/span><a href=\"#comentario\" style=\"outline: none;\"><span style=\"--tcb-text-highlight-color: rgb(237, 243, 13) !important;\">secci\u00f3n de comentarios<\/span><\/a>, en la <a href=\"https:\/\/aplicaexcelcontable.com\/blog\/contacto\" target=\"_blank\" style=\"outline: none;\"><span style=\"--tcb-text-highlight-color: rgb(231, 100, 224) !important;\" data-text-highlight=\"bubble\">pagina del chat<\/span><\/a>, directamente en <span style=\"--tcb-text-highlight-color: rgb(30, 184, 76) !important;\">whatsapp<\/span> o bien al correo electr\u00f3nico rogerperez@aplicaexcelcontable.com.<span style=\"--tcb-text-highlight-color: transparent !important;\"><\/span><\/p>\n<p style=\"\">Te saluda,<span style=\"--tcb-text-highlight-color: transparent !important;\"><\/span><\/p>\n<p style=\"\"><strong>Roger Perez \u2013 Aplica Excel Contable<\/strong><\/p>\n<h1 style=\"text-align: center;\"><a href=\"https:\/\/aplicaexcelcontable.com\/blog\/sistema-contable-en-excel-v9\" style=\"outline: none;\" target=\"_blank\">Sistema Contable Avanzado<\/a><\/h1>\n<p><span style=\"width: 100%;\"><img loading=\"lazy\" decoding=\"async\" alt=\"\" width=\"140\" height=\"58\" title=\"Sistema contable version 8.6\" data-id=\"54819\" src=\"https:\/\/aplicaexcelcontable.com\/blog\/wp-content\/uploads\/2023\/10\/Sistema-contable-version-8.6.png\" style=\"aspect-ratio: auto 624 \/ 258;\" data-width=\"140\" data-height=\"58\" data-init-width=\"624\" data-init-height=\"258\" data-><\/span><\/p>\n<ul>\n<li><span>Genera 5 tipos de comprobantes .<\/span><\/li>\n<li><span>Genera tus reportes Contables<\/span><\/li>\n<li><span>Extrae tus cuentas de Mayores con un clic<\/span><\/li>\n<li><span>Genera estado de cuenta por clientes<\/span><\/li>\n<li><span>Genera estado de Cuenta por Proveedores<\/span><\/li>\n<\/ul>\n","protected":false},"excerpt":{"rendered":"<p>Sistema de Facturacion e inventario 23 en Excel Comencemos con el articulo Como crear tu Sistema de Facturaci\u00f3n e Inventario 23 en Excel. Pero antes que nada te invito a que leas el articulo anterior, para eso tan solo pulsa clic en el bot\u00f3n: Muy bien! En esta articulo vamos a escribir el c\u00f3digo que [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":18821,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[292,14,17,15,16],"class_list":["post-850","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\/850","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=850"}],"version-history":[{"count":0,"href":"https:\/\/aplicaexcelcontable.com\/blog\/wp-json\/wp\/v2\/posts\/850\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/aplicaexcelcontable.com\/blog\/wp-json\/wp\/v2\/media\/18821"}],"wp:attachment":[{"href":"https:\/\/aplicaexcelcontable.com\/blog\/wp-json\/wp\/v2\/media?parent=850"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/aplicaexcelcontable.com\/blog\/wp-json\/wp\/v2\/categories?post=850"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/aplicaexcelcontable.com\/blog\/wp-json\/wp\/v2\/tags?post=850"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}