Hi, first I want to thank you in advance for helping me out.
I have developed a user form in excel. I have 2 combo boxes. The first one is Manager and the second one is Employee. Upon form initialize I populate all Managers and Employees from excel tabs with the code below (this populates everyone).
What I need help with, is I want to update the Employee combo box depending on what Manager is selected. So if Manager A is selected I only want to show the employees attached to Manager A, and If Manager B is selected I only want to show their employees, etc.
The table that I'm pulling from is on the 'EmployeeRefTable' tab and the information looks like this:
<colgroup><col width="123" style="width: 92pt;"><col width="130" style="width: 98pt;"></colgroup><tbody>
</tbody> Set DataSheet = ThisWorkbook.Worksheets("ManagerRefTable")
Set MyList = DataSheet.Range("A2:A50")
Rw = 1
cboManager.Clear
While MyList.Cells(Rw, 1).Value <> ""
cboManager.AddItem
cboManager.List(Rw - 1, 0) = MyList.Cells(Rw, 1).Value
cboManager.List(Rw - 1, 1) = MyList.Cells(Rw, 2).Value
Rw = Rw + 1
Wend
Set DataSheet = ThisWorkbook.Worksheets("EmployeeRefTable")
Set MyList = DataSheet.Range("B2:B250")
Rw = 1
cboEmployee.Clear
While MyList.Cells(Rw, 1).Value <> ""
cboEmployee.AddItem
cboEmployee.List(Rw - 1, 0) = MyList.Cells(Rw, 1).Value
cboEmployee.List(Rw - 1, 1) = MyList.Cells(Rw, 2).Value
Rw = Rw + 1
Wend
Thank you again,
Brian
I have developed a user form in excel. I have 2 combo boxes. The first one is Manager and the second one is Employee. Upon form initialize I populate all Managers and Employees from excel tabs with the code below (this populates everyone).
What I need help with, is I want to update the Employee combo box depending on what Manager is selected. So if Manager A is selected I only want to show the employees attached to Manager A, and If Manager B is selected I only want to show their employees, etc.
The table that I'm pulling from is on the 'EmployeeRefTable' tab and the information looks like this:
Manager | Employee |
A | 1 |
A | 2 |
A | 3 |
A | 4 |
B | 5 |
B | 6 |
B | 7 |
B | 8 |
C | 9 |
C | 10 |
C | 11 |
C | 12 |
<colgroup><col width="123" style="width: 92pt;"><col width="130" style="width: 98pt;"></colgroup><tbody>
</tbody>
Set MyList = DataSheet.Range("A2:A50")
Rw = 1
cboManager.Clear
While MyList.Cells(Rw, 1).Value <> ""
cboManager.AddItem
cboManager.List(Rw - 1, 0) = MyList.Cells(Rw, 1).Value
cboManager.List(Rw - 1, 1) = MyList.Cells(Rw, 2).Value
Rw = Rw + 1
Wend
Set DataSheet = ThisWorkbook.Worksheets("EmployeeRefTable")
Set MyList = DataSheet.Range("B2:B250")
Rw = 1
cboEmployee.Clear
While MyList.Cells(Rw, 1).Value <> ""
cboEmployee.AddItem
cboEmployee.List(Rw - 1, 0) = MyList.Cells(Rw, 1).Value
cboEmployee.List(Rw - 1, 1) = MyList.Cells(Rw, 2).Value
Rw = Rw + 1
Wend
Thank you again,
Brian