This code implements a system to calculate and evaluate compatibility...

August 28, 2025 at 06:02 PM


Sub RecalculateScores()
    Dim wsMentor As Worksheet, wsMentee As Worksheet, wsEval As Worksheet
    Dim mentorRow As Long, menteeRow As Long, evalRow As Long
    Dim score As Double
    Dim mentorIndustry As String, mentorComm As String, mentorAvail As String, mentorPersonality As String, mentorSkills As String
    Dim menteeIndustry As String, menteeComm As String, menteeAvail As String, menteePersonality As String, menteeGoals As String
    Dim skill As Variant, matchFound As Boolean

    ' Define weights
    Const WEIGHT_INDUSTRY As Double = 0.3
    Const WEIGHT_SKILLS As Double = 0.3
    Const WEIGHT_COMM As Double = 0.15
    Const WEIGHT_AVAIL As Double = 0.15
    Const WEIGHT_PERSONALITY As Double = 0.1

    Set wsMentor = ThisWorkbook.Sheets("Mentor Input")
    Set wsMentee = ThisWorkbook.Sheets("Mentee Input")
    Set wsEval = ThisWorkbook.Sheets("Evaluation")

    ' Clear old evaluation data
    wsEval.Range("A2:C" & wsEval.Cells(wsEval.Rows.Count, "A").End(xlUp).Row).ClearContents
    evalRow = 2

    For mentorRow = 2 To wsMentor.Cells(wsMentor.Rows.Count, "A").End(xlUp).Row
        mentorIndustry = Trim(wsMentor.Cells(mentorRow, 2).Value)
        mentorSkills = wsMentor.Cells(mentorRow, 3).Value
        mentorComm = Trim(wsMentor.Cells(mentorRow, 4).Value)
        mentorAvail = Trim(wsMentor.Cells(mentorRow, 5).Value)
        mentorPersonality = Trim(wsMentor.Cells(mentorRow, 6).Value)

        For menteeRow = 2 To wsMentee.Cells(wsMentee.Rows.Count, "A").End(xlUp).Row
            menteeIndustry = Trim(wsMentee.Cells(menteeRow, 2).Value)
            menteeGoals = wsMentee.Cells(menteeRow, 3).Value
            menteeComm = Trim(wsMentee.Cells(menteeRow, 4).Value)
            menteeAvail = Trim(wsMentee.Cells

This code implements a system to calculate and evaluate compatibility scores between mentors and mentees, likely for a mentorship pairing program. Here's a breakdown of the code's functionality:

Setup and Initialization:
- The procedure Sub RecalculateScores() starts by declaring variables to store references to the mentor, mentee, and evaluation worksheets, as well as variables to hold row indices, various attributes, and other intermediate data (like score and matchFound).
- Constants are defined for specific weight values that will be applied while calculating the mentor-mentee compatibility score. These weights prioritize certain attributes (e.g., industry match, skills compatibility, communication, etc.).
Worksheet References:
- The code obtains references to the "Mentor Input", "Mentee Input", and "Evaluation" worksheets. These hold data about mentors, mentees, and evaluation results.
Clearing Old Results:
- Before recalculating and outputting compatibility scores, the "Evaluation" worksheet is cleared to remove old evaluation data (excluding its headers).
Iterating Through Data:
- The code loops through each mentor record (starting from row 2, assuming row 1 contains headers).
- For each mentor, it extracts data such as industry, skills, communication style, availability, and personality.
- The code then loops through each mentee (also from row 2). For each mentee, attributes such as industry, goals, communication preferences, and availability are extracted.
(Partial Work):
- While your provided code doesn't include the complete evaluation logic (the snippet stops at a mentee's availability extraction), it is evident that the pairwise mentor-mentee compatibility computation would involve comparing the respective fields of mentors and mentees.
- It likely computes score using the weighted attributes defined earlier (e.g., industry, skills, communication, etc.), assigning higher scores for better alignment between mentor and mentee attributes.
Output:
- Matches, along with their compatibility scores, are written sequentially to the "Evaluation" worksheet starting from row 2.

Behavior of the Completed Code:

If finished, this type of code would:

Assign a compatibility score for each possible pairing of mentors and mentees.
Output these pairings along with scores in the "Evaluation" worksheet, allowing the user to determine ideal matches.

Generate your own explanations

Download our vscode extension

Read other generated explanations

Built by @thebuilderjr