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
Bookmarks