Saludos Profesor Sergio, de ante mano gracias por responder, realice lo que me sugirió coloque el código donde me indicó, sin embargo me sigue arrojando el mismo error.
' Restaurar formato de fuente
With wsHistorico.Rows("2:2").Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
' Incrementar automáticamente el número de recibo
wsRecibo.Range("J2").Value = wsRecibo.Range("J2").Value + 1
'Corrección de Error en impresión
Application.Wait (Now + TimeValue("0:00:01"))
' Imprimir
wsRecibo.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Por
dorgelis, · publicado
Estimados:
Junto con saludarles, quisiera solicitar de su ayuda: la verdad es que tengo un nivel de Excel Básico.
Y me gustaría saber, como puedo generar un informe de manera mas rápido y no con filtrar básicamente.
Mi archivo de información es así:
[TABLE=class: grid, width: 1]
[TR]
[TD]Factura[/TD]
[TD]Razón Social[/TD]
[TD]Neto[/TD]
[TD]IVA[/TD]
[TD]Total[/TD]
[TD]vendedor[/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]xxxx[/TD]
[TD]100[/TD]
[TD]19[/TD]
[TD]119[/TD]
[TD]juan[/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD]xxxx[/TD]
[TD]100[/TD]
[TD]19[/TD]
[TD]119[/TD]
[TD]pedro[/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD]xxxx[/TD]
[TD]100[/TD]
[TD]19[/TD]
[TD]119[/TD]
[TD]diego[/TD]
[/TR]
[TR]
[TD]4[/TD]
[TD]xxxx[/TD]
[TD]100[/TD]
[TD]19[/TD]
[TD]119[/TD]
[TD]pedro[/TD]
[/TR]
[TR]
[TD]5[/TD]
[TD]xxxx[/TD]
[TD]100[/TD]
[TD]19[/TD]
[TD]119[/TD]
[TD]diego[/TD]
[/TR]
[/TABLE]
Son aproximadamente 500 facturas, con 10 vendedores distintos.
Necesito con este informe generar uno distinto por cada vendedor.
Quedo atenta a su ayuda, muchas gracias de ante mano.
Saludos a todos.
Noemi.