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
Buenas tardes, espero puede conseguir una ayuda urgente a un caso que me acaba de suceder.
estuve haciendo un proyecto en la PC de mi casa que es excel 365
y para poder transformar valores de numeros utilice el "Format"
por ejemplo:
Format(.Cells(fila, 2), "00000") - "en lugar de mostrarme 1 , con este Format me mostraba 00001"
Format(Val(Sheets("TEMP").Cells(fila, 18)), "#,##0.00") - "en lugar de mostrarme 10000", con este Format me mostraba 100.00
Pero ahora estoy ejecutando en una PC que usa Excel 2013 , me sale error en todos estos Format que habia considerado.
Espero alguien me pueda ayudar, si puedo cambiar el Format con otro comando o debo cambiar toda la estructura.
De antemano Muchas Gracias!!!
MIX_22.xlsm