Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to change display format - double click for precedent cells? | Excel Discussion (Misc queries) | |||
How to change syperlink from single click to double click | Excel Worksheet Functions | |||
Is there a double click event for cell? | Excel Discussion (Misc queries) | |||
How to change action of double-click left mouse button? | Excel Discussion (Misc queries) | |||
Zip + 4 format column then must double click to change - why? | Excel Discussion (Misc queries) |