Breaking Names from List to individual pages

[andreascostas]

I have a spreadsheet that lists students test grades for various subjects. The columns are labeled as follows:

Column A: Student Name

Column B: Reading Score

Column C: Math Score

Column D: Science Score

Column E: Writing Score

I can have up to 30 students listed in column A with their corresponding grades. I need to somehow

Print a page for each kid along with their grades to send home to parents. Can excel be programmed

So that it creates a tab(page) for each kid?

Thank you.

 

[lrobbo314]

Something like this? This code will filter the data on each name and print out the sheet.

Book1
	A	B	C	D	E
1	Student Name	Reading Score	Math Score	Science Score	Writing Score
2	A	84	82	77	80
3	B	76	68	64	72
4	C	91	89	94	95
Sheet3

Sub FilterAndPrint()
Dim r As Range: Set r = Range("A1:E" & Range("A" & Rows.Count).End(xlUp).Row)
Dim ar() As Variant: ar = r.Columns(1).Value

For i = 2 To UBound(ar)
    r.AutoFilter 1, ar(i, 1), xlFilterValues
    ActiveSheet.PrintOut
Next i

r.AutoFilter

End Sub

 

[mumps]

Sorry, please ignore.

 

[andreascostas]

I was able to run it once and it worked. Subsequently, it prints all the names on each page. Not sure what I am doing wrong.

 

[andreascostas]

Actually, I was able to get it to work. Thank you very much