{"id":1958,"date":"2013-10-29T05:58:43","date_gmt":"2013-10-29T11:58:43","guid":{"rendered":"http:\/\/aplicaexcelcontable.com\/blog\/?p=1958"},"modified":"2024-12-19T12:55:06","modified_gmt":"2024-12-19T18:55:06","slug":"contabilidad-en-excel16-tema17","status":"publish","type":"post","link":"https:\/\/aplicaexcelcontable.com\/blog\/contabilidad-en-excel16-tema17.html","title":{"rendered":"Dise\u00f1ando Tu Contabilidad en Excel \u2013 Tema17"},"content":{"rendered":"

Programando tu contabilidad en excel16<\/h1>\n

Comencemos con el articulo Programando tu contabilidada en excel16.<\/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

Ya programaste los c\u00f3digos del Tema 16? Si no lo has hecho por favor hazlo ahora mismo, una vez termines de ver y aplicar el tema 16, te regresas a este tema para que prosigas.<\/p>\n

Que tal te parece todo esto de plantillas Autom\u00e1ticas? Ahora si has recorrido un largo camino, y estoy seguro que si conoces la importancia que tiene automatizar las Plantillas Excel.<\/p>\n

Muy bien, hoy te voy a dar los \u00faltimos c\u00f3digos b\u00e1sicos para que puedas programar tu sistema contable. No olvides que en lo b\u00e1sico solo vamos a programar el bot\u00f3n Guardar de la Hoja D, el bot\u00f3n Presentar Mayor de la Hoja Men\u00fa y el bot\u00f3n NUEVO DIARIO de la Hoja DIARIO.<\/p>\n

C\u00f3digos para el Modulo 2 de tu contabilidad en excel16<\/h2>\n

Modulo 2:<\/span><\/strong><\/p>\n

Sub REGRESARMENU()Sheets(\u00abMENU\u00bb).Visible = TrueSheets(\u00abMENU\u00bb).SelectSheets(\u00abD\u00bb).Visible = TrueSheets(\u00abI\u00bb).Visible = TrueSheets(\u00abE\u00bb).Visible = TrueSheets(\u00abND\u00bb).Visible = TrueSheets(\u00abNC\u00bb).Visible = TrueSheets(\u00abDIARIO\u00bb).Visible = TrueSheets(\u00abMAYOR\u00bb).Visible = FalseSheets(\u00abBALANCE\u00bb).Visible = TrueSheets(\u00abGENERAL\u00bb).Visible = TrueSheets(\u00abRESULTADO\u00bb).Visible = TrueEnd SubSub IRAMAYOR()’ IRA A LA HOJA MAYOR MacroSheets(\u00abMAYOR\u00bb).Visible = TrueSheets(\u00abMENU\u00bb).Visible = FalseSheets(\u00abMAYOR\u00bb).SelectEnd Sub<\/p>\n

C\u00f3digos para la Hoja Men\u00fa de tu contabilidad en excel16<\/h3>\n

C\u00f3digo<\/u><\/b> para la Hoja MENU:<\/span><\/strong><\/p>\n

Private Sub CommandButton1_Click()Sheets(\u00abDIARIO\u00bb).Unprotect \u00ab123\u00bbCall BusquedaContinuaMSheets(\u00abDIARIO\u00bb).Protect \u00ab123\u00bbCall REGRESARMENUEnd Sub<\/p>\n

C\u00f3digos para la Hoja D de tu contabilidad en excel16<\/h4>\n

C\u00f3digo para la Hoja D:<\/span><\/strong>Private Sub CommandButton3_Click()ActiveSheet.Unprotect Password:=\u00bb124″Sheets(\u00abDIARIO\u00bb).ActivateSheets(\u00abDIARIO\u00bb).Unprotect \u00ab123\u00bbSheets(\u00abD\u00bb).Select’rutina que graba la factura venta en hoja base’se busca la primer fila libre en hoja Factfilalibre = Sheets(\u00abDIARIO\u00bb).Range(\u00abA1048576\u00bb).End(xlUp).Row + 1’se pasar\u00e1n los datos desde la 1er fila de itemsActiveSheet.Range(\u00abC10\u00bb).Selectfila = 10While ActiveCell.Value <> \u00ab\u00bb<\/p>\n

‘copiamos datos fijos ajustando nro col<\/h4>\n

Sheets(\u00abDIARIO\u00bb).Cells(filalibre, 2) = ActiveSheet.Range(\u00abD3\u00bb) ‘NRO ASISheets(\u00abDIARIO\u00bb).Cells(filalibre, 1) = ActiveSheet.Range(\u00abF3\u00bb) ‘FECHASheets(\u00abDIARIO\u00bb).Cells(filalibre, 9) = ActiveSheet.Range(\u00abC6\u00bb) ‘CONCEPTOSheets(\u00abDIARIO\u00bb).Cells(filalibre, 3) = ActiveSheet.Range(\u00abH1\u00bb) ‘N\u00ba ING.Sheets(\u00abDIARIO\u00bb).Cells(filalibre, 4) = ActiveSheet.Range(\u00abH1\u00bb) ‘N\u00ba EGRESOSheets(\u00abDIARIO\u00bb).Cells(filalibre, 5) = ActiveSheet.Range(\u00abH1\u00bb) ‘N\u00ba NDSheets(\u00abDIARIO\u00bb).Cells(filalibre, 6) = ActiveSheet.Range(\u00abH1\u00bb) ‘N\u00ba NC<\/p>\n

‘otros datos del encabezado<\/h4>\n

‘copiamos lista de itemsSheets(\u00abDIARIO\u00bb).Cells(filalibre, 7) = ActiveCell.Offset(0, 0) ‘CODIGOSheets(\u00abDIARIO\u00bb).Cells(filalibre, 8) = ActiveCell.Offset(0, 1) ‘DESCRIPCIONSheets(\u00abDIARIO\u00bb).Cells(filalibre, 10) = ActiveCell.Offset(0, 2) ‘DESCRIPCSheets(\u00abDIARIO\u00bb).Cells(filalibre, 11) = ActiveCell.Offset(0, 3) ‘PRECIOSheets(\u00abDIARIO\u00bb).Cells(filalibre, 12) = ActiveCell.Offset(0, 4) ‘PRECIO’incremento la variable fila para repetir el buclefilalibre = filalibre + 1<\/p>\n

‘repito el bucle para los items siguientes<\/h4>\n

ActiveCell.Offset(1, 0).SelectWend’una vez conclu\u00edda la copia debiera limpiarse el form de datos’para el ingreso de nueva facturaMsgBox \u00abTus Datos se Guardaron Corectamente\u00bbActiveSheet.Protect Password:=\u00bb124″Sheets(\u00abDIARIO\u00bb).ActivateSheets(\u00abDIARIO\u00bb).Protect \u00ab123\u00bbActiveWorkbook.SaveEnd Sub<\/p>\n

Toma acci\u00f3n, solo copia y pega estos c\u00f3digos… si as\u00ed de f\u00e1cil solo debes de copiar y pegar estos c\u00f3digos. No olvides que en la Zona de Miembros encuentras todos los videos B\u00e1sicos bien explicado frente a tus hojas, si tienes dudas puedes registrarte de forma gratuita y ver los videos b\u00e1sicos.<\/p>\n

Para el pr\u00f3ximo y ultimo tema vamos a hablar y presentar la estructuraci\u00f3n completa del sistema. Tambi\u00e9n te voy a dar el enlace de descarga del Sistema Contable B\u00e1sico ya elaborado.<\/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>\n

Para Finalizar:<\/h5>\n

Me gustar\u00eda saber que piensas de este articulo \u00abPlantilla Excel – Programando tu Sistema Contable – 2\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, tan solo escribeme en la pagina de chat<\/a> o bien al correo rogerperez@aplicaexcelcontable.com.<\/p>\n

Te saluda tu amigo,<\/p>\n

\"contabilidad<\/span><\/p>\n

Roger Perez – Aplica Excel Contable<\/strong><\/p>\n","protected":false},"excerpt":{"rendered":"

Programando tu contabilidad en excel16 Comencemos con el articulo Programando tu contabilidada en excel16. Pero antes que nada te invito a que leas el articulo anterior, para eso tan solo pulsa clic en el bot\u00f3n: Ya programaste los c\u00f3digos del Tema 16? Si no lo has hecho por favor hazlo ahora mismo, una vez termines […]<\/p>\n","protected":false},"author":1,"featured_media":18122,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[21],"tags":[293,292,295,294],"class_list":["post-1958","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-plantillas-excel","tag-aprender-excel","tag-excel-y-contabilidad","tag-plantillas-excel","tag-programar-en-excel","post-wrapper","thrv_wrapper"],"_links":{"self":[{"href":"https:\/\/aplicaexcelcontable.com\/blog\/wp-json\/wp\/v2\/posts\/1958","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=1958"}],"version-history":[{"count":0,"href":"https:\/\/aplicaexcelcontable.com\/blog\/wp-json\/wp\/v2\/posts\/1958\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/aplicaexcelcontable.com\/blog\/wp-json\/wp\/v2\/media\/18122"}],"wp:attachment":[{"href":"https:\/\/aplicaexcelcontable.com\/blog\/wp-json\/wp\/v2\/media?parent=1958"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/aplicaexcelcontable.com\/blog\/wp-json\/wp\/v2\/categories?post=1958"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/aplicaexcelcontable.com\/blog\/wp-json\/wp\/v2\/tags?post=1958"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}