Pop up window when click/double click a cell

[kuldeepnagar]

Dear All
I have two sheets with some information on skill level of a team and with year of experience. Machine_A sheet is summary of no. of skilled person. Machine_D is sheet of data base. Let us assume i have 10 expert engineer in machine installation category. Machine_A sheet shows no. 10. When i double click or click that cell, it should show me name of all that 10 engineers in a pop up window. If possible, It should show year of experience with name. Under the name of engineer, no shown is year of experience. I am unable to attach my file due to forum rule but i am pasting my data here
Machine_A sheet

	Croma
	up to 10.21.08	12.15.10 to 15.30.12
	Installation	Calibration (with Gauge)	Calibration (with Laser)	Installation	Calibration (with Gauge)	Calibration (with Laser)
Expert	12	13	2	11	12	2
Intermediate	1	1	2	2	2	1
Beginner	1	1	3	1	1	4
Fresher	1	0	8	1	0	7

<colgroup><col><col><col><col><col><col><col></colgroup><tbody>
</tbody>

Machine_D sheet

		Croma
Dept.	Engineer	up to 10.21.08	12.15.10 to 15.30.12
15		Installation	Calibration (with Gauge)	Calibration (with Laser)	Installation	Calibration (with Gauge)	Calibration (with Laser)
Service	Mohan R	Expert	Expert	Expert	Expert	Expert	Expert
		14	14	10	14	14	10
Service	More Mahesh	Expert	Expert	Fresher	Expert	Expert	Fresher
		12	12		10	10
Service	Jigar Gajjar	Fresher	Expert	Expert	Fresher	Expert	Expert
		0	0	0	0	0	0
Service	Sunil Verma	Expert	Expert	Fresher	Expert	Expert	Fresher
		7	7	0	7	7	0
Service	Anup Jain	Expert	Expert	Fresher	Expert	Expert
		4	4		3	3
Service	Rangan Hariharan	Expert	Expert	Intermediate	Expert	Expert	Intermediate
Service	Rathish Unni	Expert	Expert	Fresher	Expert	Expert	Fresher
		2	2	0	2	2	0
Service	Govindraj Shinoy	Expert	Expert	Fresher	Expert	Expert	Fresher
		4	4		4	4
Service	Prayag OC	Expert	Expert	Fresher	Expert	Expert	Fresher
		2	2	0	0	0	0
Service	Vikas TK	Beginner	Beginner	Beginner	Beginner	Beginner	Beginner
Service	Arun Kumar	Expert	Expert	Intermediate	Expert	Expert	Beginner
		10	10	6	10	10	6
Service	Arun Kumar N	Expert	Expert	Fresher	Expert	Expert	Fresher
Service	Kuldeep Nagar	Expert	Expert	Beginner	Intermediate	Intermediate	Beginner
		4	4	4	4	4	4
Service	Ravi Kumar	Expert	Expert	Fresher	Expert	Expert	Fresher
		8	8		8	8
Service	Jithin Dev	Intermediate	Intermediate	Beginner	Intermediate	Intermediate	Beginner

<colgroup><col><col><col><col><col><col><col><col></colgroup><tbody>
</tbody>

I'll be thankful for a quick support since i need to submit this sheet by tomorrow.
Kind Regards.

 

[DanteAmor]

Try the following.

---

Put the following code in the events of the "Machine_A" sheet

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    UserForm1.Show
    Cancel = True
End Sub

---

Create a userform with a listbox and a commandbutton

---

Put the following code in the userform

Private Sub UserForm_Activate()
    Dim sh As Worksheet, skill As String, i As Long
    
    Set sh = Sheets("Machine_D")
    col = ActiveCell.Column + 1
    skill = Cells(ActiveCell.Row, "A").Value
    For i = 4 To sh.Cells(Rows.Count, col).End(xlUp).Row
        If sh.Cells(i, col).Value = skill Then
            ListBox1.AddItem sh.Cells(i, "B").Value
            ListBox1.List(ListBox1.ListCount - 1, 1) = sh.Cells(i + 1, col).Value
        End If
    Next
End Sub


Private Sub CommandButton1_Click()
    Unload Me
End Sub

---

Check my test file

https://www.dropbox.com/s/v05opqsirdgbscg/Pop up window.xlsm?dl=0

 

[kuldeepnagar]

Dear DanteAmor Thank you so much for your quick and prompt support. I tried exactly what you said and able to get list with name but not year of experience. Also i have three category of engineer and it is showing all three together where as i want only from corresponding category. Please find attached my file. help me in getting it done.
https://www.dropbox.com/s/domkj4c67wigcoi/Skill Matrix_1.xlsm?dl=0

 

[DanteAmor]

Dear DanteAmor Thank you so much for your quick and prompt support. I tried exactly what you said and able to get list with name but not year of experience. Also i have three category of engineer and it is showing all three together where as i want only from corresponding category. Please find attached my file. help me in getting it done.
https://www.dropbox.com/s/domkj4c67wigcoi/Skill Matrix_1.xlsm?dl=0

Add this line to see years of experience

 ListBox1.ColumnCount = 2

You did not mention that you had 3 categories, nor do you comment how to identify the range of each of them, but in your sheet there are only empty rows between one category and another, but that is not a pattern to identify where each category meets and where it ends.

But, Try this:

Private Sub UserForm_Activate()
    Dim sh As Worksheet, skill As String, i As Long
    
    Set sh = Sheets("CMM_D")
    col = ActiveCell.Column + 1
    skill = Cells(ActiveCell.Row, "B").Value
    
    If Range("A" & ActiveCell.Row).MergeCells Then
        cat = Range("A" & ActiveCell.Row).MergeArea.Cells(1, 1)
        cat = WorksheetFunction.Trim(Left(cat, InStr(1, cat, "(") - 1))
    End If
    ListBox1.ColumnCount = 2
    
    For i = 4 To sh.Cells(Rows.Count, col).End(xlUp).Row
        If sh.Cells(i, col).Value = skill And sh.Cells(i, "B").Value = cat Then
            ListBox1.AddItem sh.Cells(i, "C").Value
            ListBox1.List(ListBox1.ListCount - 1, 1) = sh.Cells(i + 1, col).Value
        End If
    Next
End Sub