Problem in combobox and textbox

**abduljaleel.mca** · 04-11-2013, 06:33 AM

Hi,

I need to enter a project name in the textbox (Name: txtProjectName) and the entered project name will be automatically stored in the combo box (Named: ProjectNames). No problem in the above steps. The problem is here, it need to show the error if I enter the project name which is previously exist. The below code doesn't work for me


Private Sub cmdOK_Click()
For i = 0 To ProjectNames.ListCount - 1
    If ProjectNames.List(i).value = txtProjectName.Value Then
        MsgBox "This Project is already exists!", vbInformation
        Exit For
    End If
Next I

End Sub

It shows error for each project I enter in the textbox even though the project name doesn't exist already.

Please help.

**abduljaleel.mca** · 04-12-2013, 07:22 AM

Hi,

No response yet for the above thread, Please let me know if anybody can help me out on this.

**jwright650** · 04-12-2013, 08:27 AM

In your For/Next loop, you have two different variables called out...."i" in the For statement, and "I" in the Next statement

**abduljaleel.mca** · 04-15-2013, 10:39 AM

Thanks for the reply John, but it was not the error.
I did it in different way and got the answer. Just stored all the values from combo box to another sheet and used the below formula.

For ki = 4 To LastRow
If Cells(ki, 2).Value = txtProjectName.Value Then
   MsgBox "This Project is already exists!", vbInformation
   GoTo EndMacro
End If
Next ki