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
[TABLE]
[TR]
[TD=width: 80]Quiero aplicar un filtro que me muestre todos los partidos entre Boca y RIver.
Como hago?
Gracias.
Equipo A
[/TD]
[TD=width: 80]
Equipo B
[/TD]
[TD=width: 80]
Gol 1
[/TD]
[TD=width: 80]
Gol 2
[/TD]
[/TR]
[TR]
[TD]Boca[/TD]
[TD]River[/TD]
[TD=align: right]1[/TD]
[TD=align: right]0[/TD]
[/TR]
[TR]
[TD]River[/TD]
[TD]Boca[/TD]
[TD=align: right]1[/TD]
[TD=align: right]2[/TD]
[/TR]
[TR]
[TD]San Lorenzo[/TD]
[TD]Huracan[/TD]
[TD=align: right]1[/TD]
[TD=align: right]2[/TD]
[/TR]
[TR]
[TD]Newells[/TD]
[TD]Central[/TD]
[TD=align: right]1[/TD]
[TD=align: right]2[/TD]
[/TR]
[TR]
[TD]Estudiantes[/TD]
[TD]Boca[/TD]
[TD=align: right]1[/TD]
[TD=align: right]2
[/TD]
[/TR]
[TR]
[TD]Boca[/TD]
[TD]Velez[/TD]
[TD=align: right]1[/TD]
[TD=align: right]2[/TD]
[/TR]
[TR]
[TD]Newells[/TD]
[TD]River[/TD]
[TD=align: right]1[/TD]
[TD=align: right]2[/TD]
[/TR]
[TR]
[TD]Central[/TD]
[TD]River[/TD]
[TD=align: right]1[/TD]
[TD=align: right]2
[/TD]
[/TR]
[TR]
[TD]Colon[/TD]
[TD]River[/TD]
[TD=align: right]1[/TD]
[TD=align: right]2[/TD]
[/TR]
[TR]
[TD]Boca[/TD]
[TD]River[/TD]
[TD=align: right]1[/TD]
[TD=align: right]2[/TD]
[/TR]
[TR]
[TD]River[/TD]
[TD]Boca[/TD]
[TD=align: right]2[/TD]
[TD=align: right]2[/TD]
[/TR]
[/TABLE]