Code can't find value

[Pookiemeister]

On my spreadsheet, I have four columns. Headers are in row 1.
A1 = First Name
B1 = Last Name
C1 = Full Name (First Name + " " + Last Name)
D1 = Email Address ((First Name.Last Name@CompanyName.com)

On my form, I have a combo box (cmbMaintPersonnel) that populates with all the names in column C. When the user clicks the submit button, I need to find the name from the combo box from column C. Currently, it does not find anything. "found value = nothing" inside the watches window. Thank you. Here what I have:

Private Sub btnSubmit_Click()
    Requester = Me.cmbMaintPersonnel.Value
    Worksheets("Maintenance Contact").Activate
    Set found = Worksheets("Maintenance Contact").Range("C2", Range("C" & Rows.Count).End(xlUp)).Find(Requester)
    Unload Me
    frmPurchaseOrder.Show
End Sub

 

[mohadin]

C1=A1&""&B1

 

[Fluff]

I have a combo box (cmbMaintPersonnel) that populates with all the names in column C.

How is the combo being populated?

 

[Pookiemeister]

Populates Combo box

Private Sub UserForm_Initialize()
    Me.Caption = "Maintenance Requster"
       
    Dim listLength As Integer
    Dim wks As Worksheet
                
    Set wks = Worksheets("Maintenance Contact")
    listLength = Worksheets("Maintenance Contact").Cells(Rows.Count, "A").End(xlUp).Row '<==== finds the length of the list
    For x = 2 To listLength
        If wks.Cells(x, 3) <> "" Then '<=== ignores the blank spaces
            With cmbMaintPersonnel '<=== name of your comboBox
                .AddItem (wks.Cells(x, 3).Value) '<==== adds it to the list
            End With
        End If
    Next x
    
End Sub

 

[Fluff]

If your happy making the combo two columns (you can hide the 2nd column) & populate it like

Private Sub UserForm_Initialize()
    Me.Caption = "Maintenance Requster"
       
    Dim listLength As Integer
    Dim wks As Worksheet
                
    Set wks = Worksheets("Maintenance Contact")
    listLength = Worksheets("Maintenance Contact").Cells(Rows.Count, "C").End(xlUp).Row '<==== finds the length of the list
    For x = 2 To listLength
        If wks.Cells(x, 3) <> "" Then '<=== ignores the blank spaces
            With Me.cmbMaintPersonnel '<=== name of your comboBox '<=== name of your comboBox
                .AddItem wks.Cells(x, 3).Value '<==== adds it to the list
                .List(.ListCount - 1, 1) = x
            End With
        End If
    Next x
    
End Sub

you can then use something like

   With Me.cmbMaintPersonnel
      Rw = .List(.ListIndex, 1)
   End With

which will give you the row that item is on.