UserForm Search Function

[cmerrick]

Good morning all,

I have a code that I am using to enable a UserForm to display info about employees. The user is then able to amend the data and the spreadsheet updates. I've got a search function working but I want the user to be able to search with one option OR the other option not a combination of the two.

My code is below.

Help is much appreciated.

Private Sub CommandButton3_Click()
row_number = 0
Do
DoEvents
row_number = row_number + 1
item_in_review = Sheets("All").Range("A" & row_number)
    If item_in_review = NetworkuserSearch.Text Then
        Sheets("All").Range("C" & row_number) = EmployeeIdSearch.Text
        Sheets("All").Range("D" & row_number) = FullnameSearch.Text
        Sheets("All").Range("B" & row_number) = Initials.Text
        Sheets("All").Range("E" & row_number) = Appteam.Text
        Sheets("All").Range("F" & row_number) = Deptcode.Text
        Sheets("All").Range("G" & row_number) = teamcode.Text
        Sheets("All").Range("H" & row_number) = Jobtitle.Text
        Sheets("All").Range("I" & row_number) = emailaddress.Text
        Sheets("All").Range("J" & row_number) = telephoneext.Text
        Sheets("All").Range("K" & row_number) = faxext.Text
        Sheets("All").Range("L" & row_number) = eventassign.Text
        Sheets("All").Range("M" & row_number) = signature.Text
        
     End If
Loop Until item_in_review = ""
        
If MsgBox("Are you sure you wish the submit these changes?", vbQuestion + vbYesNo) <> vbNo Then
     
Unload Me
Else
End If
        
End Sub

 

[dmt32]

I'm sorry, the document is in my work computer and we don't have access to dropbox here

issue I have is I have been writing out code with suggested changes for you & what you post back contains none of my suggestions - What you want to do is not that difficult but to go forward, would be really helpful if could see copy of your workbook with some sample data.

Dave

 

[cmerrick]

I do appreciate you help and I'm sorry if you feel I have deflected the assistance you have given me. I can assure you that I have not and I've taken it all on board and will certainly experiment with in in future project.

The code you originally provided to transfer data from the spreadsheet to the user for and populate the option boxes didn't work or maybe I didn't key it correctly. Whilst waiting for a response, which you have always swiftly provided I played around with some of my own code and managed to get it to work it's just you would probably be able to simply the code 100%.

I apologise if I have come across as ungrateful in anyway, it was not my intention.

 

[dmt32]

I apologise if I have come across as ungrateful in anyway, it was not my intention.

No suggestion you were ungrateful - it just causes a little confusion when send one thing & get back another.

If you now have it working then that's all that' important.

Dave