Hi,

Not sure if this is possible... I have a row of student data that I can manually input information into each cell. I also created a form where I can select each student's name and it then populates form text boxes with the info so I can change info on the form too. One of the cells in a column is a drop-down list where I can select from a number of teacher names. When I open the form the current selected teacher's name in the cell populates in the ComboBox2 ok. What I'm trying to do is also have the ComboBox2 populate with the other names in the drop-down list so I can switch names within the form also.

Here is the current part of the code I'm trying to change so the ComboBox2 populates with all of the options in the drop-down list. Any help would be greatly appreciated.


Sub SetQTY2(blnOutputToSheet As Boolean)

    Dim rngFound As Range
    Dim wsMySheet As Worksheet
    Dim lngLastRow As Long
    
    Set wsMySheet = Sheets("StudentMasterList")
    lngLastRow = wsMySheet.Cells(Rows.Count, "F").End(xlUp).Row
    
    Set rngFound = wsMySheet.Range("F4:F" & lngLastRow).Find(What:=CStr(ComboBox1.List(ComboBox1.ListIndex)), LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False, LookIn:=xlValues)
            
    If ComboBox1.ListIndex <> -1 And Not rngFound Is Nothing Then
    
        If blnOutputToSheet = True Then
        
            On Error GoTo ErrExit1
            If ComboBox2.Value = vbNullString Then
                rngFound.Offset(0, 2).Value = ""
                ComboBox2.Value = ""
            Else
                rngFound.Offset(0, 2).Value = ComboBox2.Value
            End If

ErrExit1:
            Exit Sub
            
        Else
        
            On Error GoTo ErrExit2
        
            ComboBox2.Value = rngFound.Offset(0, 2)
            
ErrExit2:
            Exit Sub
            
        End If
    End If
    
End Sub