데이터유효성,vba 질문드립니다.ㅜㅜ

Question

학년, 반을 입력하면 자동으로 명렬이랑 아래 사인란에 이름이 떠야하는데 작동을 안하네요. 뭐가 문제인지 알수가 없습니다.

고수님들 도와주세요ㅠㅠ

원조백수 · Accepted Answer

학생Data의 F열 학년 수식을 Left에서 Int(학번/10000)으로 수정했습니다.
(문자열이 아니라 숫자가 되도록)
그리고, 코드는 아래 부부만 정리했습니다.

Sub makeTempData()
    Dim vData As Variant, vTemp As Variant, iYear As Integer, iClass As Integer
    Dim R As Long, C As Long, iCnt As Long
    
    vData = Sheets("학생Data").Range("A1").CurrentRegion.Value2
    ReDim vTemp(1 To 1000, 1 To 8)
    
    On Error Resume Next
    iYear = Sheets("과제").Range("C2")
    iClass = Sheets("과제").Range("E2")
    If iYear = 0 Or iYear > Application.Max(Sheets("학생Data").Columns(6)) Then MsgBox "학년 오류": GoTo LAST_RUN
    If iClass = 0 Or iClass > Application.Max(Sheets("학생Data").Columns(7)) Then MsgBox "학급 오류": GoTo LAST_RUN
    
    For R = 1 To UBound(vData, 1)
        If vData(R, 6) = iYear And vData(R, 7) = iClass Then
            iCnt = iCnt + 1
            For C = 1 To 8 '<- 첨부파일에 7인데 8로 수정 필요, 안해도 문제는 없음
                vTemp(iCnt, C) = vData(R, C)
            Next C
        End If
    Next R

LAST_RUN:
    On Error GoTo 0
    Sheets("tempData").Range("a2:h1001") = vTemp

End Sub