Find a student's 3 lowest scoring tests

Hello VBA pro's,

I have attached a workbook that shows what I would like to do.

I am a teacher and use excel as my grade book. The grade book will contain 30 to 40 tests (I only did 10ish on the example worksheet) in columns with student names in the corresponding rows. I would like to write a VBA subroutine that scans each student's scores (in the rows) and then reports to me what their 3 lowest tests are (not the scores themselves but the testnames). These testnames will then be returned to a separate range like the one in the middle of the sheet.


Thank you in advanced for your help.

Steve_G_2,

The code I came up with works and returns the desired results, but I wouldn't exactly call it efficient. I just couldn't come up with a better way to do it. Here's the code:

Please Login or Register  to view this content.

Notes:
If, on your real spreadsheet, the following are different, just change the code to the correct values:

• NameResultCol (This is the column that contains "Bill's 3 Lowest" etc. In the sample you provided, it was column E)
• NameResultRow (This is the row that "Bill's 3 Lowest" etc. starts on. In the sample you provided, it was row 13)
• TestNameRow (This is the row that contains the tests' names. In the sample you provided, it was row 1)

I have attached a modified version of your workbook so you can see how it works

Hope that helps,
~tigeravatar

Hi,

Try this, run Macro FindLScores and check the result in Sheets("Result")

Tony

Thank you for the help. You are all fabulous.