Hey alle, har lavet en sub som finder den laveste værdi i en kolonne (i mit tilfælde er det 94), herefter har jeg så lavet en MsgBox som skal vise nogle andre informationer fra den række hvor den laveste værdi er. Indtil videre har jeg kunnet få vist den rigtige laveste værdi, men når jeg så prøver at få de andre værdier frem fra rækken, så tager den så værdierne fra række 94 i stedet for.
Koden jeg er kommet frem til indtil videre 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 |