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 a todos.
Tengo un problema referente a hacer un informe con tablas dinámicas. Tengo los siguientes datos en una hoja:
curso alumno nota
primero alum1 6
primero alum2 7
primero alum3 4
primero alum4 8
segundo alum5 9
segundo alum5 8
segundo alum5 2
segundo alum5 3
y pretendo obtener la siguiente información:
primero
aprobado: 3
suspenso: 1
segundo
aprobado: 2
suspenso: 2
lo estoy intentando con campos calculados, definiendo aprobado como nota>=5 y suspenso como nota < 5, pero no me deja hacerlo.
Gracias de antemano.