Hello,
I have 2 sheets, Sheet1 "Capture" Sheet2 "BD TASK TRACKER". I am trying to have a link for each opportunity on Sheet1 that you will click and it will find the tasks associated with the Capture reference. Both sheets have the same format, Column A "Client" Column B "Title" ,etc. etc.
I used the following code below and it works, however, every cell that you click on in the sheet can activate. I only want the cells in Column A to work as the cell to be double-clicked.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
With Worksheets("BD TASK TRACKER")
.Select
.Range("A3").AutoFilter Field:=1, Criteria1:=Target.Value
.Range("A4").AutoFilter Field:=1, Criteria1:=Target.Value
.Range("A5").AutoFilter Field:=1, Criteria1:=Target.Value
.Range("A6").AutoFilter Field:=1, Criteria1:=Target.Value
.Range("A7").AutoFilter Field:=1, Criteria1:=Target.Value
.Range("A8").AutoFilter Field:=1, Criteria1:=Target.Value
.Range("A9").AutoFilter Field:=1, Criteria1:=Target.Value
.Range("A10").AutoFilter Field:=1, Criteria1:=Target.Value
I have 2 sheets, Sheet1 "Capture" Sheet2 "BD TASK TRACKER". I am trying to have a link for each opportunity on Sheet1 that you will click and it will find the tasks associated with the Capture reference. Both sheets have the same format, Column A "Client" Column B "Title" ,etc. etc.
I used the following code below and it works, however, every cell that you click on in the sheet can activate. I only want the cells in Column A to work as the cell to be double-clicked.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
With Worksheets("BD TASK TRACKER")
.Select
.Range("A3").AutoFilter Field:=1, Criteria1:=Target.Value
.Range("A4").AutoFilter Field:=1, Criteria1:=Target.Value
.Range("A5").AutoFilter Field:=1, Criteria1:=Target.Value
.Range("A6").AutoFilter Field:=1, Criteria1:=Target.Value
.Range("A7").AutoFilter Field:=1, Criteria1:=Target.Value
.Range("A8").AutoFilter Field:=1, Criteria1:=Target.Value
.Range("A9").AutoFilter Field:=1, Criteria1:=Target.Value
.Range("A10").AutoFilter Field:=1, Criteria1:=Target.Value