How to use selection change instead of double click event?

G

ghost

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
 
J

Jon Peltier

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top