VBA Help need to show the employees details in userform.

[krjoshi]

Folks,

I have a workbook with Employee details data sheet. And, I have built two userforms to search and view the employee’s full details. I don’t know how to link the row source for combobox and textbox.
I have attached the excel file of what I'm trying to accomplish.

Thanks in advance for your expertise!

Joshi

[coreytroy]

Have a look at attached for starters.

[krjoshi]

Hi creytroy,

Thanks for your reply. But some issues, in combobox2 duplicated records should not appear, also no records is not showing in combobox3. Please help me someone?

Thanks in advance,
Joshi

[krjoshi]

Hi Folks,

Help me please?

Thanks in advance,
Joshi

[coreytroy]

No time to do any more at present.

But have a look thus far.

[arlu1201]

Is this the same question as http://www.excelforum.com/excel-prog...userform.html?

[abousetta]

Hi,

I am working on a different approach but a few questions:

1) Does the user have to fill all three comboxes or can they pick and choose?

2) If they have to pick all three (or any specific number) is there an order (e.g. 1 >> 2 >> 3) or can they for example choose a country then title name.

abousetta

[coreytroy]

It has been set to us all 3 items, starting from 1- 3.

[abousetta]

Have a look at the attachment. I think it satisfies all your requirements and has a few safeguards built in along the way.

abousetta

[krjoshi]

Hi abousetta ,

Thanks for your codes and its working great. But I need some slight modification.
1) I want to protect the "Data_Base" sheet by giving password "SDG123" and hide (xlveryhidden).
2) I want to show the userforms in "Search" Sheet not in the "Data_Base" sheet.
3) I have added a command button "Edit or add new data" on UserFrom1 to edit or add new data in "Data_Base" sheet, when I hit the button should show MsgBox("Do you really want to edit data?", vbYesNo), if vbYes then unhide and unprotect the "Data_Base" sheet with password "SDG123", if wrong password entered MsgBox("Incurrect Password"), if vbNo nothing to do.

I was trying to do the same and added some codes, but unable to fix it. See the attached modified file.
Thanks in advance for your expertise!

Joshi

[abousetta]

Hi,

In this post, I show how to use hide a sheet using xlveryhidden and opening it with a password. Also there are two options (one for activeX and regular vba). You should be able to adapt the code to your needs.

Let me know if you still have problems.

abousetta

[krjoshi]

Hi abousetta,

Thanks for your reply and I could mange to protect, hide and unhide the sheet with your codes. But I am unable to use the userform1 in "Search" Sheet, the userform1 showing without any data if I open the userform1 thru "Search" sheet.

Can you please look at the attached workbook and advise to fix the issue.

Thanks,
Joshi

[abousetta]

Hi,

Minor tweaks:

Private Sub UserForm_Initialize()
  Dim r&, MyCol, x%, LR&
    With Worksheets("Data_Base")
        LR = .Range("A" & Rows.Count).End(xlUp).Row
        For r = 2 To LR
            If .Range("B" & r) = Form1.ComboBox1.Value And _
               .Range("C" & r) = Form1.ComboBox2.Value And _
               .Range("D" & r) = Form1.ComboBox3.Value Then
                MyCol = Array(.Range("C" & r), .Range("B" & r), _
                              .Range("D" & r), .Range("E" & r), _
                              .Range("F" & r), .Range("G" & r), _
                              .Range("H" & r), .Range("I" & r), _
                              .Range("J" & r), .Range("K" & r))
                Exit For
            End If
        Next
    End With
    
    For x = 1 To 10
        Controls("Textbox" & x).Value = MyCol(x - 1)
        Controls("Textbox" & x).Enabled = False
    Next
End Sub

Tested it and works fine now.

abousetta

[krjoshi]

HI abousetta,

Still having some issues. Please note that the record is not changing or updating in userform2 based on userform1 search criteria.

Please see the attached workbook.

Thanks in advance.

Joshi

[abousetta]

I am uploading the version I have and I am not able to recreate your problem. Have a look.

What I would recommend is replacing the textboxes in form2 with labels. That way the user can see them easier and also select and copy them.

abousetta