Find row of found value - VBA

[yomomo]

So i'm trying to find the row number of the value "period" and i don't know how to get the correct row number in which the value of "period" is in. Right now the value of "period" is taken as the row number, so when the msgbox pops up it shows the wrong information.
This is what my sub looks like:

Sub Oldest()    
    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 "Enrolled: Spring Semester " & (period / 2 + 1949) & vbNewLine & "Student Id: " & (Cells(period, 12)) & vbNewLine & "Enroll Date: " & (Cells(period, 4)) & vbNewLine & "Program Type: " & (Cells(period, 11))
    Else
    MsgBox "Enrolled: Fall Semester " & (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

 

[Norie]

Perhaps.

Sub Oldest()    
Dim ENROLL_PERIOD As Range
Dim period As Integer
Dim Res As Variant

    Set ENROLL_PERIOD = Range("E2:E" & Rows.Count)

    period = Application.WorksheetFunction.Min(ENROLL_PERIOD)

    Res = Application.Match(period, ENROLL_PERIOD, 0)

    If Not IsError(Res) Then
        MsgBox "Enrolled: Spring Semester " & (period / 2 + 1949) & vbNewLine & "Student Id: " & Cells(Res+1, 12) & vbNewLine & "Enroll Date: " & Cells(Res+1, 4) & vbNewLine & "Program Type: " & Cells(Res+1, 11)    
    End If

End Sub

 

[yomomo]

Thanks for your reply but i actually found another way .

 Sub Oldest()    
    Dim ENROLL_PERIOD As Range
    Dim period As Integer
    Dim minPeriodRow As Long
    
    Set ENROLL_PERIOD = Range("E2:E" & Rows.Count)
    period = Application.WorksheetFunction.Min(ENROLL_PERIOD)
    minPeriodRow = ENROLL_PERIOD.Find(what:=period, lookat:=xlWhole, LookIn:=xlValues).Row
    If Val(period) And 1 Then
    MsgBox "Enrolled: Spring Semester " & (period / 2 + 1949) & vbNewLine & "Student Id: " & (Cells(minPeriodRow, 12)) & vbNewLine & "Enroll Date: " & (Cells(minPeriodRow, 4)) & vbNewLine & "Program Type: " & (Cells(minPeriodRow, 11))
    Else
    MsgBox "Enrolled: Fall Semester " & (period / 2 + 1949) & vbNewLine & "Student Id: " & (Cells(minPeriodRow, 12)) & vbNewLine & "Enroll Date: " & (Cells(minPeriodRow, 4)) & vbNewLine & "Program Type: " & (Cells(minPeriodRow, 11))
    End If


End Sub