VBA hjælp til at finde række
Hej jeg er igang med en opgave hvor jeg skal finde den ældst indskrevet studerende ud fra enroll_period, som er et tal. Min sub til at finde den ældste virker fint, men problemet er at jeg også skal finde den studerendes student_id, enroll_date og program_type_name, og det er her problemet opstår for når jeg prøver at finde de informationer frem så er det den forkerte række den finder informationerne fra. Jeg kan se at den vælger den række hvor den mindste værdi fra enroll period er fra, hvilket er 94.Så jeg vil bare vide hvordan jeg kan finde den korrekte række frem så jeg kan få de informationer til den pågældende studerende.
Min sub ser således ud:
Sub Ældste()
Dim ENROLL_PERIOD As Range
Dim period As Integer
Set ENROLL_PERIOD = Range("E2:E" & Rows.Count)
period = Application.WorksheetFunction.Min(ENROLL_PERIOD)
If Val(period) And 1 Then
MsgBox "Indskrevet: Forårssemestret " & (period / 2 + 1949) & vbNewLine & "Student Id: " & (Cells(period, 12)) & vbNewLine & "Enroll Date: " & (Cells(period, 4)) & vbNewLine & "Program Type: " & (Cells(period, 11))
Else
MsgBox "Indskrevet: Efterårssemestret " & (period / 2 + 1949) & vbNewLine & "Student Id: " & (Cells(period, 12)) & vbNewLine & "Enroll Date: " & (Cells(period, 4)) & vbNewLine & "Program Type: " & (Cells(period, 11))
End If
End Sub