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
Hola a todos/as, cómo están? Llevo una gran parte de la tarde intentando hacer algo que creí era muy sencillo, pero algo no está funcionando.
Estoy intentando copiar los datos de un cuadro a otro cuadro. Pero me cambia los vínculos. Esto es lo que estoy haciendo: (adjunto archivo)
Copio/vinculo los datos de cuadro A al Cuadro B
Luego ordeno el cuadro B en base al año 2019 del mayor a menor
El resultado que me da es que cambia los vínculos. NO mantiene el vínculo original
Alguien me puede ayudar a saber por qué no mantiene los vínculos. MUCHAS GRACIAS!!!!
ordenar.xlsx