How to Prevent Same Selection from Lists in Two Combo boxes in VBA|VBA & Macros|Excel Forum|My Online Training Hub

Hi,

Need assistance, I have created a form for my team which has 2 combo box and their are same names for selection in both the combo box and I need to make sure that the user can't select the same name if they have already selected it in either of the combo box.

Can someone please help. 

Below is the code written 

Sub Reset()

Dim Irow As Long

Irow = [Counta(Database!A:A)] ' idetiying the last row

With frmForm

.txtNAME.Value = ""
.cmbDM.Clear
.txtDATE.Value = Date
.optWaterfall.Value = False
.optAgile.Value = False
.cmbDOD.Clear

.cmbDM.AddItem "Accept Core MOPs"
.cmbDM.AddItem "Accept ALT Mops"
.cmbDM.AddItem "Digital Connect"
.cmbDM.AddItem "Field"
.cmbDM.AddItem "Inform"
.cmbDM.AddItem "POS Solution"
.cmbDM.AddItem "Servicing"
.cmbDM.AddItem "Value Added Services"

.cmbDOD.AddItem "TBD"
.cmbDOD.AddItem "Yes"
.cmbDOD.AddItem "No"

.txtRowNumber.Value = ""

.txtEXPTC.Value = ""
.txtACTC.Value = ""

.cmbTDC.Clear

.cmbTDC.AddItem "TBD"
.cmbTDC.AddItem "Self Created"
.cmbTDC.AddItem "Mixed"
.cmbTDC.AddItem "External"

.cmbPT.Clear
.cmbST.Clear

.cmbPT.AddItem "Divya Sivananda"
.cmbPT.AddItem "Francis G Burton"
.cmbPT.AddItem "Jane Reid"
.cmbPT.AddItem "Jeffrey R Wyman"
.cmbPT.AddItem "Latha Madasu"
.cmbPT.AddItem "Mauric Wimms"
.cmbPT.AddItem "Mohammed S Shaikh"
.cmbPT.AddItem "Mubin Bharde"
.cmbPT.AddItem "Nishit Bhatt"
.cmbPT.AddItem "Nolan Jones"
.cmbPT.AddItem "Ram Pandey"
.cmbPT.AddItem "Rugved Phatak"
.cmbPT.AddItem "Shamekia R Keaton"
.cmbPT.AddItem "Sunam Koirala"
.cmbPT.AddItem "Swapna Malkan"
.cmbPT.AddItem "Tiffany A Blevin"
.cmbPT.AddItem "Trupti Kulkarni"

.cmbST.AddItem "Divya Sivananda"
.cmbST.AddItem "Francis G Burton"
.cmbST.AddItem "Jane Reid"
.cmbST.AddItem "Jeffrey R Wyman"
.cmbST.AddItem "Latha Madasu"
.cmbST.AddItem "Mauric Wimms"
.cmbST.AddItem "Mohammed S Shaikh"
.cmbST.AddItem "Mubin Bharde"
.cmbST.AddItem "Nishit Bhatt"
.cmbST.AddItem "Nolan Jones"
.cmbST.AddItem "Ram Pandey"
.cmbST.AddItem "Rugved Phatak"
.cmbST.AddItem "Shamekia R Keaton"
.cmbST.AddItem "Sunam Koirala"
.cmbST.AddItem "Swapna Malkan"
.cmbST.AddItem "Tiffany A Blevin"
.cmbST.AddItem "Trupti Kulkarni"

.lstDatabase.ColumnCount = 13
.lstDatabase.ColumnHeads = True

.lstDatabase.ColumnWidths = "30,200,100,75,75,60,60,60,75,100,100,100,100"

If Irow > 1 Then

.lstDatabase.RowSource = "Database!A2:M" & Irow

Else

.lstDatabase.RowSource = "Database!A2:M2"

End If

End With