Continuamos con el diseño de nuestro sistema contable en excel, ahora nos iremos a la hoja2 a la que le cambiamos el nombre por "Asientos".
1.- Diseñar plantilla.
Nos situamos en la celda A1 e insertamos la función =Menú!B1, para que el nombre de la organización aparezca más adelante, seleccionamos de la celda A1 a la G1 y damos clic en la cinta de opciones de excel a Inicio-->Combinar y centrar; Estilos-->Estilo de celda-->Titulo, Fuente-->Sin bordes, -->Color de fuente-->Anaranjado,enfasis6,oscuro50%, Negrita.
En la Celda A3 tipeamos "ASIENTOS DE DIARIO", Seleccionamos de A3 a G3 y clic en el icono de combinar y centrar, Estilos-->Estilos de celda-->Titulo1, Fuente-->Sin bordes, -->Color de fuente-->Anaranjado,enfasis6,oscuro50%, Negrita
En la celda A4 Tipeamos "FECHA" Estilos-->Estilos de celda-->Titulo2, Fuente-->Sin bordes, -->Color de fuente-->Anaranjado,Énfasis6,oscuro50%, Negrita
En la CeldaB4 Escribimos la función: =HOY( ), hacemos clic derecho y elegimos "Formato de Celdas"-->Número-->Fecha y elegimos la que nos proporciona lo siguiente: "04 de Agosto de 2014"(21 de Marzo de 2001). Seleccionamos de B4 a D4, combinamos y centramos. Alineación-->Izquierda, Color de fuente-->Anaranjado, enfasis6, oscuro50%, Negrita.
En la celda A5 escribimos "Concepto", Color de fuente-->Anaranjado, Énfasis6, oscuro50%, Negrita, Estilo de Celda-->Entrada, Borde-->Superior Color de Borde Anaranjado, Énfasis 6.
Celda C6-->Borde Diagonal, Seleccionamos Celdas D5, E5, F5 y le ponemos Borde Inferior, Color de Borde Anaranjado, Énfasis 6.
Seleccionamos de la Celda A6 a la Celda F8 y hacemos clic en Combinar y centrar, ponemos Borde Izquierdo, Borde Derecho y Borde Inferior, Color de Borde Anaranjado, Énfasis 6.
De la celda A9 a G9 pondremos los títulos Siguientes: AsientoNº(A9), Cuenta(B9), D/H(C9), Descripción(D), Debe(E9), Haber(F9), Detalle(G9).
Seleccionamos Rango A9:G25 y le ponemos Borde Cuadro Grueso, Color de Borde Anaranjado, Énfasis 6. Seleccionamos de la Celda A9 a la Celda G9, le damos "Clic Derecho"-->Formato de Celda-->Relleno-->Efectos de Relleno-->Estilos de Sombreado-->Horizontal, Color1 Blanco, Color 2 Anaranjado, Énfasis 6.
Seleccionamos el Rango A10:G25 y le ponemos "Todos los bordes", color de Bordes Blanco. Es importante Cambiar el tamaño de las columnas, de tal manera que los datos que habremos de ingresar ajusten perfectamente en el tamaño de las Celdas.
2.-Insertar Funciones
En la Celda A10 no escribiremos nada ya que la macro que crearemos nos proporcionará el Número de Asiento. En la Celda A11 pondremos la Función =SI para que si existe un numero de cuenta, nos copie, el número de Asiento que corresponda, la Fórmula es:
=SI(B11<>0,A10,"")
Esta Fórmula la Copiaremos hasta la celda A25.
En la Celda D10 de la columna Descripción, escribiremos una fórmula para que escriba el nombre de la cuenta cuyo número hemos ingresado, ya en el post anterior le asignamos un nombre a nuestro plan de cuentas, Insertaremos las funciones SI, ESERROR y BUSCARV, la Fórmula es la siguiente:
=SI(B10="","",SI(ESERROR(+BUSCARV(B10,PLAN,2,0)),"Número de cuenta incorrecto",+BUSCAV(B10,PLAN,2,0)))
Esta Fórmula la copiaremos hasta la Celda D25.
En la columna D/H haremos una validación de datos para llevar un mejor control sobre nuestra carga de asientos y evitar en lo posible la carga de datos erróneos:
Seleccionamos el Rango C10:C25, hacemos clic en Datos en la cinta de opciones-->Validación de Datos-->Configuración-->Permitir = Lista, Origen=D/H; Mensaje de Entrada-->Titulo = Ingresar D/H, Mensaje de Entrada = Por Favor indicar Debe(D) o Haber(H). Aceptar.
En la Celda H10 ingresaremos las funciones SI, Y, O, para asegurarnos de que nuestra carga de asientos se ha hecho correctamente ya que la carga de asientos es lo más importante para poder hacer nuestros informes: DIARIO, BALANCE GENERAL Y ESTADO DE RESULTADOS. La Fórmula es:
=SI(B10="","",+SI(O(Y(C10="D",E10>0,F10=0),Y(C10="H",F10>0,E10=0,"OK",SI(Y(E10+F10>0,C10=""),"Indicar D/H","Inconsistencia")))
Esta fórmula la copiaremos hasta la celda H25.
En la Celda D26 insertaremos una fórmula para asegurarnos de que los números de cuenta ingresados sean correctos:
=SI(+CONTAR.SI(D10:D25,"Número de cuenta incorrecto")=0,"OK","¡ERROR!")
En la Celda F26 Pondremos =SI(E27-F27=0,"OK",+E27-F27) Esto es para asegurarnos de que las sumas de las cantidades ingresadas tanto en el Debe cómo en el Haber sean iguales.
En la celda D27 Escribiremos "Sumas Iguales:".
En la Celda E27 Haremos la Suma del Debe =SUMA(E10:E25) En la Celda F27 Sumaremos el Haber =SUMA(F10:F25)
Seleccionamos las Celdad E27 y F27 y le ponemos todos los Bordes más doble borde inferior.
Aproximadamente en la celda D27 insertamos una Forma cómo ya lo mencioné en el post anterior y le pondremos como texto "Contabilizar".
Esto es un blogspot por lo que continuaremos con la creación de nuestro Sistema Contable en el siguiente post para poder poner toda la macro que insertaremos.
0 comentarios:
Publicar un comentario