ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   How can I use VB code to execute macro when double-clicking cell? (https://www.excelbanter.com/excel-programming/364120-how-can-i-use-vbulletin-code-execute-macro-when-double-clicking-cell.html)

JDay01

How can I use VB code to execute macro when double-clicking cell?
 
I have a range of cells on Sheet 1 (lets say, range C10:Z500). For each cell
in this range, I want to program it so that when a user double-clicks a cell,
it takes them to the same cell reference on Sheet 2. (i.e. if I click cell
G45 on the first sheet, it takes me to cell G45 on the second sheet). Can
anyone help me with the proper code for this action?

Don Guillett

How can I use VB code to execute macro when double-clicking cell?
 
try this idea
right click sheet tabview codeinsert thisSAVE
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Column < 1 Then Exit Sub
Application.Goto Sheets("sheet7").Range(Target.Address)
End Sub

--
Don Guillett
SalesAid Software

"JDay01" wrote in message
...
I have a range of cells on Sheet 1 (lets say, range C10:Z500). For each
cell
in this range, I want to program it so that when a user double-clicks a
cell,
it takes them to the same cell reference on Sheet 2. (i.e. if I click
cell
G45 on the first sheet, it takes me to cell G45 on the second sheet).
Can
anyone help me with the proper code for this action?




Bob Phillips

How can I use VB code to execute macro when double-clicking cell?
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Const WS_RANGE As String = "C10:Z500"
Dim rng As Range

On Error GoTo ws_exit
Application.EnableEvents = False

If Not Intersect(Target, Range(WS_RANGE)) Is Nothing Then
Set rng = Worksheets("Sheet2").Range(Target.Address)
Worksheets("Sheet2").Activate
rng.Select
End If

ws_exit:
Application.EnableEvents = True
On Error GoTo 0
End Sub

This is worksheet event code, which means that it needs to be
placed in the appropriate worksheet code module, not a standard
code module. To do this, right-click on the sheet tab, select
the View Code option from the menu, and paste the code in.

--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

"JDay01" wrote in message
...
I have a range of cells on Sheet 1 (lets say, range C10:Z500). For each

cell
in this range, I want to program it so that when a user double-clicks a

cell,
it takes them to the same cell reference on Sheet 2. (i.e. if I click

cell
G45 on the first sheet, it takes me to cell G45 on the second sheet).

Can
anyone help me with the proper code for this action?





All times are GMT +1. The time now is 09:37 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com