Mayorización de Libro diario Contabilidad en Excel (macro)
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.
DESCARGA EL ARCHIVO
Descargar Macro para mayorizar Libro diario – excel para contadores.xls
REVISA ESTOS TEMAS SIMILARES
Suscríbete es gratis
Agrega tu comentario
Comentarios
podria subir un tutorial en su canal de you tube plisss :v
Excelente informacion, de mucha ayuda para la automatizacion en excel.
Saludos, y gracias
Muchísimas gracias, es justo lo que estaba buscando, me ahorraste bastante tiempo y trabajo….
Gracias por tus palabras, ustedes nos ayudan a mejorar. Comparte esta web con tus amigos.
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**
interesante felicitaciones respetando tus derechos de autor
Es lo mejor que he encontrado en la web, se te agradece por el aporte.
Buena informacion muy didactica para poder realizar las operaciones con mas precision y al mismo tiempo felicitarlos por este aporte de su parte
Muy util y practico. Incluso para los principiantes.
Sin duda el excel es una poderosa herramienta que bien utilizada nos posibilita facilitar nuestras vidas.
esta super bueno ..gracias
ES LO MAXIMO CON ESTA SI APRENDO Y ES MAS FACIL Y RAPIDO…
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,
ok lo revisare.
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.
@dorwinrin, gracias por su aporte. A través de la web de ayudaexcel.com he visto su aportación.
Muchas gracias, ….
Muchas gracias tendria un tutorial paso a paso para el rellenado, de antemano muchas gracias
si por favor
El aporte muy bueno, se te agradece y sigue así. Eres un capo con Excel en la contabilidad. Un saludo y hasta luego.
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.
Sr Sebastiani me gustaria saber el orden en que se ponen las cuentas para poder hacer un libro diario, gracias.
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.
Muy Bueno es muy util especialmente el de mayorizar muchas gracias
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
Tienes que seguir la secuencia de la celda activa, todo se basa en eso.