Macro para consolidar boletas de venta | Numero inicial – Numero Final
Macro para consolidar boletas de venta | Numero inicial – Numero Final: Si parte de tu trabajo es llenar el registro de ventas de forma manual (digitar) en Excel o si tu sistema contable exporta la información a esta hoja de cálculo detallando documento por documento (boletas de ventas) cuando se podría consolidar por cada día, entonces este artículo podría ser de tu interés.
Muchas empresas emiten cientos o miles de boletas de venta por pequeños importes (menor a S/. 700 donde no es necesario identificar al cliente) al mes, lo que complica su registro por la cantidad de operaciones, imagínense tener un registro de ventas con 5 mil lineas o peor aún con 10 mil cuando realmente podríamos resumirla a mucho menos.
EXPLICACIÓN
El caso es el siguiente: Tenemos un registro de ventas con un poco mas de 3 mil «boletas de venta», todos estos registros corresponden a un mes, lo que la macro hará es consolidar por cada día dichas boletas de venta teniendo en cuenta que se mantendrá la correlatividad siempre y cuando no se trate una boleta anulada o si esta es igual o supera los S/. 700 soles, de pasar lo segundo se registrará de forma detallada. Debe quedar claro que toda esta consolidación se mostrará en la segunda hoja, donde podremos darnos cuenta que un registro de venta tan extenso como el caso se puede resumir a unas cuantas lineas.
Esta macro esta programada solo para consolidar boletas de venta, tenga en cuenta que hay otros comprobantes de pago que también se pueden consolidar tales como: los tickets o cintas emitidos por máquinas registradoras.
El archivo tiene libre el código fuente para que sea estudiado y modificado de acuerdo a sus necesidades.
Hola, actualmente he usado su archivo «Estado de Cuentas de Clientes», quisiera su ayuda para incluir un mejora al mismo, respecto a la captura de datos de la hoja RecordFacturas hacia EstadodeCuenta, es posible ademas capturas datos similares de una nueva hoja, donde quiero registros los abonos de las respectivas facturas. Es decir, que el estado de cuenta aparezca el renglon de la factura, y seguidamente los pagos asociados a cada factura.
Todo se puede programar y hacer a la medida de usted, el archivo que se a compartido es simplemente un modelo o base. Si desea puede hacer la modificación. Saludos.
Gustavo, en primer lugar para agradecerte e informar que cuando quireo consolidar Boletas de Ventas (tengo NO GRAVADAS) independientemente NO CONSOLIDA sale el siguiente mensaje: SE HA PRODUCIDO EL ERROR 1004 EN TIEMPO DE EJECUCION. ERROR DEFINIDO POR LA APLICACION DEL OBJETO.
Por favor en espera de su apoyo, me suscribo.
Hever Alvarez
_________________________________________________________________
hasta = ActiveCell.Row – 1
With Hoja2.Range(«A65536»).End(xlUp)
.Offset(1, 0).Formula = «RV-» & Format(.Offset(1, 0).Row – 8, «000») ‘»=» & Hoja1.Name & «!» & Cells(inicia, «A»).Address(0, 0)
.Offset(1, 1).Formula = «=» & Hoja1.Name & «!» & Cells(inicia, «B»).Address(0, 0)
.Offset(1, 2).Formula = «=» & Hoja1.Name & «!» & Cells(inicia, «C»).Address(0, 0)
.Offset(1, 3).Formula = «=» & Hoja1.Name & «!» & Cells(inicia, «D»).Address(0, 0)
.Offset(1, 4).Formula = «=» & Hoja1.Name & «!» & Cells(inicia, «E»).Address(0, 0)
.Offset(1, 5).Formula = «=max(» & Hoja1.Name & «!» & Range(Cells(inicia, «E»), Cells(hasta, «E»)).Address & «)»
If .Offset(1, 5).Value = .Offset(1, 4).Value Then .Offset(1, 5).ClearContents
.Offset(1, 6).Formula = «=» & Hoja1.Name & «!» & Cells(inicia, «G»).Address(0, 0)
If .Offset(1, 6).Value = 0 Then .Offset(1, 6).Value = «»
.Offset(1, 7).Formula = «=» & Hoja1.Name & «!» & Cells(inicia, «H»).Address(0, 0)
If .Offset(1, 7).Value = 0 Then .Offset(1, 7).Value = «»
.Offset(1, 8).Formula = «=» & Hoja1.Name & «!» & Cells(inicia, «I»).Address(0, 0)
.Offset(1, 9).Formula = «=sum(» & Hoja1.Name & «!» & Range(Cells(inicia, «J»), Cells(hasta, «J»)).Address & «)»
.Offset(1, 10).Formula = «=sum(» & Hoja1.Name & «!» & Range(Cells(inicia, «K»), Cells(hasta, «K»)).Address & «)»
.Offset(1, 11).Formula = «=sum(» & Hoja1.Name & «!» & Range(Cells(inicia, «L»), Cells(hasta, «L»)).Address & «)»
End With
inicia = hasta + 2
If Cells(inicia, «A»).Value = «» Then inicia = inicia + 1
If Cells(ActiveCell.Row, «E»).Row = tope Then Exit Sub
Loop Until CeldaTermino = Fin
End Sub
Sub Pocesa()
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
Call DejamosComoEstuvo
Call separamos
Call consolidamos
Call DejamosComoEstuvo
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
End With
MsgBox «Proceso terminado.» & Chr(13) & «Puede ver el resultado en la hoja de nombre Consolidado», vbInformation, «PROCESO TERMINADO»
Hoja2.Select
Range(«E2»).Select
End Sub
verifica tu información, quizas tengas letras en los campos numericos o viceversa.
Cuando realizo el consolidado me genera tambien filas con las boletas con importe cero, quisiera que esta boletas no lo separe , que se incluya dentro del rango de días.
El consolidado si puede utilizar porque ahora mayores a 700 es obligado en libros la identificación del adqueriente implica en algo la consolidación o con algún identificación si puede Enviar si pudiera utilizar los números finales de cada fecha gracias antemano.
Si la operación es consolidad no importa el importe.
EN EL MACRO COMO PUEDO CONSOLIDAD BOLETAS DE MAYOR MONTO A LOS 700 SOLES … TENGO OPERACIONES CON MONTOS MAYORES Y NO CONSOLIDA.. COMO LO PUEDO MODIFICAR.. GRACIAS
El el consolidado no me aparece el numero final me aparece 0 (Cero) columna
Victor sigue el modelo o ejemplo del archivo.
necesitos clases
Pronto daremos cursos, estaremos publicando cualquier novedad en la web.
informacion sobre del macro , quisisera aprender pero necesito los requisitos y el costo
muy interesante se ahorra el llenado de hojas, gracias
Gracias, será parte de mis macros para usar en un futuro. 🙂