Bir sonraki filtreyi yazdırmak

[by.varlik]

ekteki excel dosyasında sınav sonuç karneleri yazdırıyorum.
Bunu öğrenci numarası üzerinden filtre yaparak yazdırma işlemi yaptıktan sonra tekrar filtreye gelip diğer öğrenci numarasını seçip yazdırma işlemi ve bu şekilde tekrarlıyor. Öğrenci çok olduğunda çok zahmetli oluyor

Yapmak istediğimiz otomatik olarak bir sonraki öğrenci numarasını seçip yazdırma şimdiden teşekkürler...

 

[Emir Hüseyin Çoban]

. . .

Dosya ektedir.

Sub KOD()
Dim YA As Worksheet
Set YA = Sheets("Yardımcı")
        
ActiveSheet.Range("$A$2:$N$65536").AutoFilter Field:=2
        
YA.Range("A1:A65536").ClearContents
For a = 3 To [B65536].End(3).Row
If WorksheetFunction.CountIf(Range("B3:B" & a), Cells(a, "B")) = 1 Then
C = C + 1
YA.Cells(C, "A") = Cells(a, "B")
End If
Next a
YA.Columns("A:A").Sort Key1:=YA.Range("A1"), Order1:=xlAscending


For i = 1 To YA.[A65536].End(3).Row
OG_NO = YA.Cells(i, "A")
ActiveSheet.Range("$A$2:$N$65536").AutoFilter Field:=2, Criteria1:=OG_NO
ActiveSheet.PrintOut
Next i
    

MsgBox " B i t t i "
End Sub

. . .