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ón:
Ya programaste los códigos 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.
Que tal te parece todo esto de plantillas Automáticas? Ahora si has recorrido un largo camino, y estoy seguro que si conoces la importancia que tiene automatizar las Plantillas Excel.
Muy bien, hoy te voy a dar los últimos códigos básicos para que puedas programar tu sistema contable. No olvides que en lo básico solo vamos a programar el botón Guardar de la Hoja D, el botón Presentar Mayor de la Hoja Menú y el botón NUEVO DIARIO de la Hoja DIARIO.
Códigos para el Modulo 2 de tu contabilidad en excel16
Modulo 2:
Sub REGRESARMENU()
Sheets("MENU").Visible = True
Sheets("MENU").Select
Sheets("D").Visible = True
Sheets("I").Visible = True
Sheets("E").Visible = True
Sheets("ND").Visible = True
Sheets("NC").Visible = True
Sheets("DIARIO").Visible = True
Sheets("MAYOR").Visible = False
Sheets("BALANCE").Visible = True
Sheets("GENERAL").Visible = True
Sheets("RESULTADO").Visible = True
End Sub
Sub IRAMAYOR()
' IRA A LA HOJA MAYOR Macro
Sheets("MAYOR").Visible = True
Sheets("MENU").Visible = False
Sheets("MAYOR").Select
End Sub
Códigos para la Hoja Menú de tu contabilidad en excel16
Código para la Hoja MENU:
Private Sub CommandButton1_Click()
Sheets("DIARIO").Unprotect "123"
Call BusquedaContinuaM
Sheets("DIARIO").Protect "123"
Call REGRESARMENU
End Sub
Códigos para la Hoja D de tu contabilidad en excel16
Código para la Hoja D:
Private Sub CommandButton3_Click()
ActiveSheet.Unprotect Password:="124"
Sheets("DIARIO").Activate
Sheets("DIARIO").Unprotect "123"
Sheets("D").Select
'rutina que graba la factura venta en hoja base
'se busca la primer fila libre en hoja Fact
filalibre = Sheets("DIARIO").Range("A1048576").End(xlUp).Row + 1
'se pasarán los datos desde la 1er fila de items
ActiveSheet.Range("C10").Select
fila = 10
While ActiveCell.Value <> ""
'copiamos datos fijos ajustando nro col
Sheets("DIARIO").Cells(filalibre, 2) = ActiveSheet.Range("D3") 'NRO ASI
Sheets("DIARIO").Cells(filalibre, 1) = ActiveSheet.Range("F3") 'FECHA
Sheets("DIARIO").Cells(filalibre, 9) = ActiveSheet.Range("C6") 'CONCEPTO
Sheets("DIARIO").Cells(filalibre, 3) = ActiveSheet.Range("H1") 'Nº ING.
Sheets("DIARIO").Cells(filalibre, 4) = ActiveSheet.Range("H1") 'Nº EGRESO
Sheets("DIARIO").Cells(filalibre, 5) = ActiveSheet.Range("H1") 'Nº ND
Sheets("DIARIO").Cells(filalibre, 6) = ActiveSheet.Range("H1") 'Nº NC
'otros datos del encabezado
'copiamos lista de items
Sheets("DIARIO").Cells(filalibre, 7) = ActiveCell.Offset(0, 0) 'CODIGO
Sheets("DIARIO").Cells(filalibre, 8) = ActiveCell.Offset(0, 1) 'DESCRIPCION
Sheets("DIARIO").Cells(filalibre, 10) = ActiveCell.Offset(0, 2) 'DESCRIPC
Sheets("DIARIO").Cells(filalibre, 11) = ActiveCell.Offset(0, 3) 'PRECIO
Sheets("DIARIO").Cells(filalibre, 12) = ActiveCell.Offset(0, 4) 'PRECIO
'incremento la variable fila para repetir el bucle
filalibre = filalibre + 1
'repito el bucle para los items siguientes
ActiveCell.Offset(1, 0).Select
Wend
'una vez concluída la copia debiera limpiarse el form de datos
'para el ingreso de nueva factura
MsgBox "Tus Datos se Guardaron Corectamente"
ActiveSheet.Protect Password:="124"
Sheets("DIARIO").Activate
Sheets("DIARIO").Protect "123"
ActiveWorkbook.Save
End Sub
Toma acción, solo copia y pega estos códigos... si así de fácil solo debes de copiar y pegar estos códigos. No olvides que en la Zona de Miembros encuentras todos los videos Básicos bien explicado frente a tus hojas, si tienes dudas puedes registrarte de forma gratuita y ver los videos básicos.
Para el próximo y ultimo tema vamos a hablar y presentar la estructuración completa del sistema. También te voy a dar el enlace de descarga del Sistema Contable Básico ya elaborado.
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:
Para Finalizar:
Me gustaría saber que piensas de este articulo "Plantilla Excel - Programando tu Sistema Contable - 2", 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:
Cualquier duda o pregunta, tan solo escribeme en la pagina de chat o bien al correo rogerperez@aplicaexcelcontable.com.
Te saluda tu amigo,
Roger Perez - Aplica Excel Contable