Mayorización de Libro diario Contabilidad en Excel (macro)

Mayorización de Libro diario Contabilidad en Excel (macro): Mayorizar el libro diario es un proceso que nos puede tomar tiempo si no tenemos las herramientas indicadas,  si llevas tu contabilidad de forma computarizada mediante hojas de excel puedes optar por realizar la mayorización del libro diario de forma manual mediante el uso de herramientas como autofiltros, filtros avanzados, tablas dinámicas u otros, pero si lo que buscas es la automatización de este proceso entonces debe hacerse mediante la ejecución de una macro. Hoy en día los formatos de los registros contables se han estandarizado lo que garantiza el uso de esta macro siempre y cuando se utilicen los formatos vigentes.

El proceso de mayorización consiste en agrupar todas las cuentas contables del libro diario, determinar los saldos y expresar la información obtenida en los formatos establecidos según ley, en mi tiempo libre programé una macro para mayorizar de forma simple y lo explico dentro del modulo de visual basic.

Los formatos vigentes usados son:

  • Formato 5.1 Libro Diario
  • Formato 6.1 Libro Mayor

Como esta web esta dirigida a varios paises y cuento con tiempo libre pueden enviarme sus libros diarios para desarrollar  una macro que los mayorice.

Publicidad

DESCARGA EL ARCHIVO

Descargar Macro para mayorizar Libro diario – excel para contadores.xls


Suscríbete es gratis

Ingresa tu correo electrónico y te convertiré en un experto en Excel. ↓


REVISA ESTOS TEMAS SIMILARES

Tags:

Agrega tu comentario

Comentarios
  1. Posted by daniel

    podria subir un tutorial en su canal de you tube plisss :v

    Responder
  2. Posted by reynaldo carmona

    Excelente informacion, de mucha ayuda para la automatizacion en excel.

    Saludos, y gracias

    Responder
  3. Posted by Gisela

    Muchísimas gracias, es justo lo que estaba buscando, me ahorraste bastante tiempo y trabajo….

    Responder
    • Posted by Gustavo A. Sebastiani Cépeda

      Gracias por tus palabras, ustedes nos ayudan a mejorar. Comparte esta web con tus amigos.

      Responder
  4. Posted by elis

    Muy buena informacion muy didactica para poder realizar las operaciones con mas precision y al mismo tiempo felicitarlos por este aporte de su parte gracias por su ayuda**

    Responder
  5. Posted by jesus condori mita

    interesante felicitaciones respetando tus derechos de autor

    Responder
  6. Posted by Anibal Esqueque

    Es lo mejor que he encontrado en la web, se te agradece por el aporte.

    Responder
  7. Posted by vela tafur jesus manuel

    Buena informacion muy didactica para poder realizar las operaciones con mas precision y al mismo tiempo felicitarlos por este aporte de su parte

    Responder
  8. Posted by German Chiock

    Muy util y practico. Incluso para los principiantes.
    Sin duda el excel es una poderosa herramienta que bien utilizada nos posibilita facilitar nuestras vidas.

    Responder
  9. Posted by montes huaman

    esta super bueno ..gracias

    Responder
  10. Posted by VIDALINA

    ES LO MAXIMO CON ESTA SI APRENDO Y ES MAS FACIL Y RAPIDO…

    Responder
  11. Posted by JOAN

    Muy buena aplicacion.

    Aprecio un error en el diseño de la cuenta del mayor, si solamente existe un movimiento en la misma. Es ideal para detallar los movimientos del libro diario.

    Saludos,

    Responder
    • Posted by Gustavo A. Sebastiani Cépeda

      ok lo revisare.

      Responder
    • Posted by dorwinrin

      El error se produce porque en el Sub formatos, en esta instrucción:

      ActiveCell.End(xlDown).Offset(4, 0).End(xlDown).Offset(1, 4).Select

      Se utiliza “End(xlDown)” dos veces, para avanzar hasta la última fila con contenido del bloque. Cuando en una cuenta sólo hay una fila con contenido, la segunda instrucción End(xlDown) salta hasta el siguiente bloque.

      Para solucionarlo, sugiero cambiar la línea mencionada por este bloque:

      ActiveCell.End(xlDown).Offset(4, 0).Offset(1, 4).Select

      While ActiveCell.Value > “0”
      ActiveCell.Offset(1, 0).Select
      Wend

      Esto hará que el cursor baje por el bloque hasta que encuentre una línea vacía, y después continúa con el Sub.

      Meter un bucle While es menos eficiente que la instrucción de Gustavo, pero evita el error cuando hay una sola línea.

      Responder
      • Posted by JOAN

        @dorwinrin, gracias por su aporte. A través de la web de ayudaexcel.com he visto su aportación.

        Muchas gracias, ….

        Responder
  12. Posted by juan

    Muchas gracias tendria un tutorial paso a paso para el rellenado, de antemano muchas gracias

    Responder
    • Posted by Zantiago Zero

      si por favor

      Responder
  13. Posted by Carlos

    El aporte muy bueno, se te agradece y sigue así. Eres un capo con Excel en la contabilidad. Un saludo y hasta luego.

    Responder
  14. Posted by Edwin Armando

    Que tal amigo como le va, muy interesante el generador para mayorizar, lo probé con mi diario pero al parecer aparecieron algunos errores que me arrojo al terminar de mayorizar quizá usted pueda orientarnos para poder realizar un generador similar acorde a nuestras necesidades.. un tutorial acerca de este tema. Se lo agradecería mucho.

    Responder
  15. Posted by Fabian hernany

    Sr Sebastiani me gustaria saber el orden en que se ponen las cuentas para poder hacer un libro diario, gracias.

    Responder
  16. Posted by Santiago

    Saludos, Sr. Sebastiani,
    Para decirte que tus aplicativos son muy útiles y que gracias a ellos estoy mejorando en excel, espero poder devolver el favor y ayudar a otras personas que se inician en la hoja de calculo.

    Responder
  17. Posted by Celia Marcañaupa Curo

    Muy Bueno es muy util especialmente el de mayorizar muchas gracias

    Responder
    • Posted by cecilio

      yo me pierdo en la ultima Macro, alguien me podria explicar línea por línea, se los agradezco Mucho
      Sub formatos()

      ‘ colocamos los formatos

      ‘For i = 1 To n_cuentas

      Sheets(“formato”).Rows(“1:7”).Copy

      Sheets(“Mayor”).Select

      tu = ActiveCell.Row
      Selection.Insert Shift:=xlDown

      Sheets(“formato”).Range(“e11:g13”).Copy

      ActiveCell.End(xlDown).Offset(4, 0).End(xlDown).Offset(1, 4).Select
      ActiveSheet.Paste

      ActiveCell.Offset(0, 1).Formula = “=sum(” & ActiveCell.Offset(-1, 1).Address(False, False) & “:” & Range(“f” & tu + 7).Address(False, False) & “)”
      ‘ActiveCell.Offset(0, 2).Formula = “=sum(” & ActiveCell.Offset(-1, 2).Address(False, False) & “:” & Range(“g” & tu + 7).Address(False, False) & “)”

      ActiveCell.Offset(5, -4).Select

      Next i
      Columns(“b:b”).AutoFit
      Columns(“e:g”).AutoFit

      Rows(“1:5”).Delete

      Columns(“F:G”).NumberFormat = “_(* #,##0.00_);_(* (#,##0.00);_(* “”-“”??_);_(@_)”

      End Sub

      Responder
      • Posted by Gustavo A. Sebastiani Cépeda

        Tienes que seguir la secuencia de la celda activa, todo se basa en eso.

        Responder