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
Muy Buenas tardes
Esperando que se encuentren muy bien, comentó que el motivo de este tema es para solicitar cordialmente su generosa ayuda con este tema.
trabajo en el área de ventas y me gustaría que cada cotización que realice se guarde automáticamente en otra pestaña (denominada seguimiento).
Ejemplo:
Realizó la cotización 1 para un x cliente, esta cotización posee 10 artículos por ende estos 10 artículos deberían agregarse a la pestaña seguimiento
Realizó la cotización 2 para otro cliente, esta cotización posee 25 artículos por ende estos 25 artículos deberían agregarse a la pestaña seguimiento
Cuando revise la pestaña seguimiento debería tener 25 artículos
Pd: La pestaña seguimiento tiene pintada las celdas que deberían completarse automáticamente
Desde ya quedo muy agradecido por su ayuda.
Saludos
José
Formato cotización Prueba - copia - copia.rar