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:
Tengo una tabla de datos con el siguiente formato:
[TABLE=width: 500]
[TR]
[TD]nombre_calle[/TD]
[TD]numero_calle [/TD]
[TD]piso[/TD]
[TD]puerta[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]venezuela [/TD]
[TD]10[/TD]
[TD]1[/TD]
[TD]a
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]maristas[/TD]
[TD]11[/TD]
[TD]2[/TD]
[TD]b[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]venezuela [/TD]
[TD]10[/TD]
[TD]1[/TD]
[TD]c[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]venezuela [/TD]
[TD]10[/TD]
[TD]3[/TD]
[TD]c[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]maristas[/TD]
[TD]11[/TD]
[TD]4[/TD]
[TD]f[/TD]
[TD][/TD]
[/TR]
[/TABLE]
como puedo hacer para tener la siguiente informacion?
[TABLE=width: 500]
[TR]
[TD]nombre_calle[/TD]
[TD]pisos[/TD]
[/TR]
[TR]
[TD]venezuela 10[/TD]
[TD]1a, 1c, 3c[/TD]
[/TR]
[TR]
[TD]maristas 11[/TD]
[TD]2b, 4f[/TD]
[/TR]
[/TABLE]
Agradeceria una solucion para el trabajo, gracias de antemano.