Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count >  1  Then Exit Sub
If Target.Column =  13  And Target <> "" Then
UserForm1.TextBox1.Value = Target.Value
UserForm1.Show
End If
tb = Sheets( 1 ).Cells(Target.Row,  6 ).Value
Sheets( 2 ).Cells( 2 ,  3 ).Value = Sheets( 1 ).Cells(Target.Row,  7 ).Value & "   " & Sheets( 1 ).Cells(Target.Row,  8 ).Value & "   " & Sheets( 1 ).Cells(Target.Row,  9 ).Value
Sheets( 2 ).Cells( 4 ,  3 ).Value = Sheets( 1 ).Cells(Target.Row,  13 ).Value
Sheets( 2 ).Cells( 6 ,  3 ).Value = Sheets( 1 ).Cells(Target.Row,  2 ).Value
Sheets( 2 ).Cells( 8 ,  3 ).Value = Sheets( 1 ).Cells(Target.Row,  7 ).Value & "   " & Sheets( 1 ).Cells(Target.Row,  8 ).Value & "   " & Sheets( 1 ).Cells(Target.Row,  9 ).Value
Set wb2 = Workbooks.Open("E:\EM\K3.xls",  0 , True, True)
        'R
    Set y2 = wb2.Worksheets( 3 ).Columns( 1 ).Find(what:=tb, LookIn:=xlValues, lookat:=xlWhole, MatchCase:=False)
    If Not y2 Is Nothing Then
            ThisWorkbook.Sheets( 2 ).Cells( 10 ,  3 ).Value = wb2.Worksheets( 3 ).Cells(y2.Row,  2 ).Value
            ThisWorkbook.Sheets( 2 ).Cells( 12 ,  3 ).Value = wb2.Worksheets( 3 ).Cells(y2.Row,  6 ).Value
           End If
'T
      Set y2 = wb2.Worksheets( 1 ).Columns( 2 ).Find(what:=tb, LookIn:=xlValues, lookat:=xlWhole, MatchCase:=False)
    If Not y2 Is Nothing Then
       ThisWorkbook.Sheets( 2 ).Cells( 14 ,  3 ).Value = wb2.Worksheets( 1 ).Cells(y2.Row,  3 ).Value & ", " & wb2.Worksheets( 1 ).Cells(y2.Row,  5 ).Value & ", " & wb2.Worksheets( 1 ).Cells(y2.Row,  6 ).Value & ", " & wb2.Worksheets( 1 ).Cells(y2.Row,  4 ).Value
    End If
wb2.Close False
End Sub