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 mi problema es el siguiente
Trato de ordenar los datos de acuerdo a los niveles de un catalogo contable
Aqui el ejemplo
Este es el Orden deseado, es decir que va por niveles las cuentas del 100 es 1001, 1002, 1003 etc
[TABLE=width: 71]
[TR]
[TD]100[/TD]
[/TR]
[TR]
[TD]10001[/TD]
[/TR]
[TR]
[TD]10001001[/TD]
[/TR]
[TR]
[TD]10001002[/TD]
[/TR]
[TR]
[TD]10001008[/TD]
[/TR]
[TR]
[TD]10001051[/TD]
[/TR]
[TR]
[TD]10003[/TD]
[/TR]
[TR]
[TD]10003008[/TD]
[/TR]
[TR]
[TD]10003009[/TD]
[/TR]
[TR]
[TD]10003010[/TD]
[/TR]
[TR]
[TD]10003011[/TD]
[/TR]
[TR]
[TD]10003014[/TD]
[/TR]
[TR]
[TD]10003025[/TD]
[/TR]
[TR]
[TD]10003026[/TD]
[/TR]
[TR]
[TD]10003037[/TD]
[/TR]
[TR]
[TD]10003071[/TD]
[/TR]
[TR]
[TD]10003075[/TD]
[/TR]
[TR]
[TD]10003082[/TD]
[/TR]
[TR]
[TD]10003083[/TD]
[/TR]
[TR]
[TD]10003501[/TD]
[/TR]
[TR]
[TD]10003502[/TD]
[/TR]
[TR]
[TD]10003998[/TD]
[/TR]
[TR]
[TD]10003999[/TD]
[/TR]
[TR]
[TD]10004[/TD]
[/TR]
[TR]
[TD]10004001[/TD]
[/TR]
[TR]
[TD]10004010[/TD]
[/TR]
[TR]
[TD]10004018[/TD]
[/TR]
[TR]
[TD]10004021[/TD]
[/TR]
[TR]
[TD]10005[/TD]
[/TR]
[TR]
[TD]10005007[TABLE=width: 71]
[TR]
[TD]100[/TD]
[/TR]
[TR]
[TD]10001[/TD]
[/TR]
[TR]
[TD]10001001[/TD]
[/TR]
[TR]
[TD]10001002[/TD]
[/TR]
[TR]
[TD]10001008[/TD]
[/TR]
[TR]
[TD]10001051[/TD]
[/TR]
[TR]
[TD]10003[/TD]
[/TR]
[TR]
[TD]10003008[/TD]
[/TR]
[TR]
[TD]10003009[/TD]
[/TR]
[TR]
[TD]10003010[/TD]
[/TR]
[TR]
[TD]10003011[/TD]
[/TR]
[TR]
[TD]10003014[/TD]
[/TR]
[TR]
[TD]10003025[/TD]
[/TR]
[TR]
[TD]10003026[/TD]
[/TR]
[TR]
[TD]10003037[/TD]
[/TR]
[TR]
[TD]10003071[/TD]
[/TR]
[TR]
[TD]10003075[/TD]
[/TR]
[TR]
[TD]10003082[/TD]
[/TR]
[TR]
[TD]10003083[/TD]
[/TR]
[TR]
[TD]10003501[/TD]
[/TR]
[TR]
[TD]10003502[/TD]
[/TR]
[TR]
[TD]10003998[/TD]
[/TR]
[TR]
[TD]10003999[/TD]
[/TR]
[TR]
[TD]10004[/TD]
[/TR]
[TR]
[TD]10004001[/TD]
[/TR]
[TR]
[TD]10004010[/TD]
[/TR]
[TR]
[TD]10004018[/TD]
[/TR]
[TR]
[TD]10004021[/TD]
[/TR]
[TR]
[TD]10005[/TD]
[/TR]
[TR]
[TD]10005007[/TD]
[/TR]
[/TABLE]
[/TD]
[/TR]
[/TABLE]
Y lo que hace excel es ordenarme los datos de menor a mayor de manera que me pone la informacion asi
[TABLE=width: 80]
[TR]
[TD=class: xl65, width: 80]100[/TD]
[/TR]
[TR]
[TD=class: xl65]10001[/TD]
[/TR]
[TR]
[TD=class: xl65]10003[/TD]
[/TR]
[TR]
[TD=class: xl65]10004[/TD]
[/TR]
[TR]
[TD=class: xl65]10005[/TD]
[/TR]
[TR]
[TD=class: xl65]10001001[/TD]
[/TR]
[TR]
[TD=class: xl65]10001002[/TD]
[/TR]
[TR]
[TD=class: xl65]10001008[/TD]
[/TR]
[TR]
[TD=class: xl65]10001051[/TD]
[/TR]
[TR]
[TD=class: xl65]10003008[/TD]
[/TR]
[TR]
[TD=class: xl65]10003009[/TD]
[/TR]
[TR]
[TD=class: xl65]10003010[/TD]
[/TR]
[TR]
[TD=class: xl65]10003011[/TD]
[/TR]
[TR]
[TD=class: xl65]10003014[/TD]
[/TR]
[TR]
[TD=class: xl65]10003025[/TD]
[/TR]
[TR]
[TD=class: xl65]10003026[/TD]
[/TR]
[TR]
[TD=class: xl65]10003037[/TD]
[/TR]
[TR]
[TD=class: xl65]10003071[/TD]
[/TR]
[TR]
[TD=class: xl65]10003075[/TD]
[/TR]
[TR]
[TD=class: xl65]10003082[/TD]
[/TR]
[TR]
[TD=class: xl65]10003083[/TD]
[/TR]
[TR]
[TD=class: xl65]10003501[/TD]
[/TR]
[TR]
[TD=class: xl65]10003502[/TD]
[/TR]
[TR]
[TD=class: xl65]10003998[/TD]
[/TR]
[TR]
[TD=class: xl65]10003999[/TD]
[/TR]
[TR]
[TD=class: xl65]10004001[/TD]
[/TR]
[TR]
[TD=class: xl65]10004010[/TD]
[/TR]
[TR]
[TD=class: xl65]10004018[/TD]
[/TR]
[TR]
[TD=class: xl65]10004021[/TD]
[/TR]
[TR]
[TD=class: xl65]10005007
[/TD]
[/TR]
[/TABLE]
y esto no me sirve, cual es el procedimiento para ordenar estos datos de la primera forma que arriba mencionada
Saludos desde Mexico D.F.