How to use selection change instead of double click event?
 

Hi,
I am using the following code to autofilter a list if the user wants to see
more details of employee training. The problem is, if I want to see more
details I have to double click first on employee ID and click on a link
beside employee ID. What I want is, once I click on the link, the link takes
me to the sheet of training and filter employee ID and training of him. How
to adjust the blow code?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Dim cell As Range
Sheets("a1").Rows.EntireRow.Interior.ColorIndex = xlNone
Sheets("a1").Rows.EntireRow.Hidden = False
If Target.Column < 2 Then Exit Sub
For Each cell In Sheets("a1").Range("a2:a200")
If cell.Value = ActiveCell.Value Then
cell.EntireRow.Interior.ColorIndex = 6
Else
cell.EntireRow.Hidden = True
Cells(1, 1).EntireRow.Hidden = False
End If
Next cell
End Sub

How to use selection change instead of double click event?
 

I don't really understand your description of the problem. But did you try
putting the code into the following?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub


- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services, Inc.
http://PeltierTech.com/WordPress/
_______


"ghost" wrote in message
...
Hi,
I am using the following code to autofilter a list if the user wants to
see
more details of employee training. The problem is, if I want to see more
details I have to double click first on employee ID and click on a link
beside employee ID. What I want is, once I click on the link, the link
takes
me to the sheet of training and filter employee ID and training of him.
How
to adjust the blow code?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Dim cell As Range
Sheets("a1").Rows.EntireRow.Interior.ColorIndex = xlNone
Sheets("a1").Rows.EntireRow.Hidden = False
If Target.Column < 2 Then Exit Sub
For Each cell In Sheets("a1").Range("a2:a200")
If cell.Value = ActiveCell.Value Then
cell.EntireRow.Interior.ColorIndex = 6
Else
cell.EntireRow.Hidden = True
Cells(1, 1).EntireRow.Hidden = False
End If
Next cell
End Sub