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 compañeros del foro.
una consulta de como colocar formato a una valor de acuerdo al numero de la siguiente manera.
10 10.00
400 4.00
5005 5005.00
900 9.00
50 50.00
todo lo que termine en 00 le coloque un .00 y si no tiene le coloque el formato numero.00
he comenzado con el =SI(DERECHA(B1,2)="00",1,2) lo cual puedo determinar cuales terminan con 00 , pero no se como colocarle el formato.
saludos
Cantidades.xls