| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Detecting double click
I'm using the following to launch some VBA when a cell is double
clicked. ++++++++ Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim rng As Range Dim MyLastRow As String Set rng =Worksheets("Sheet1").Range("A1").SpecialCells(xlC ellTypeLastCell) MyLastRow = rng.Row rows = "J1:J" & MyLastRow If Not Intersect(Target, Range(rows)) Is Nothing Then Cancel = True ********* Code here End If End Sub ++++++++++ Howver, I'd like to change that so any cell in the range S2 to CD5972 achieves the same result. Is that possible? Thanks - Kirk |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Detecting double click
Private Sub Worksheet_BeforeDoubleClick( _
ByVal Target As Range, Cancel As Boolean) Dim sAddr as String sAddr = "S2:CD5972" If Not Intersect(Target, Range(s)) Is Nothing Then Cancel = True ********* Code here End If End Sub -- Regards, Tom Ogilvy "kirkm" wrote in message ... I'm using the following to launch some VBA when a cell is double clicked. ++++++++ Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim rng As Range Dim MyLastRow As String Set rng =Worksheets("Sheet1").Range("A1").SpecialCells(xlC ellTypeLastCell) MyLastRow = rng.Row rows = "J1:J" & MyLastRow If Not Intersect(Target, Range(rows)) Is Nothing Then Cancel = True ********* Code here End If End Sub ++++++++++ Howver, I'd like to change that so any cell in the range S2 to CD5972 achieves the same result. Is that possible? Thanks - Kirk |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Detecting double click
Kirk,
Excuse me for horning in, but I believe Tom meant the line to be: If Not Intersect(Target, Range(sAddr)) Is Nothing Then hth, Doug "Tom Ogilvy" wrote in message ... Private Sub Worksheet_BeforeDoubleClick( _ ByVal Target As Range, Cancel As Boolean) Dim sAddr as String sAddr = "S2:CD5972" If Not Intersect(Target, Range(s)) Is Nothing Then Cancel = True ********* Code here End If End Sub -- Regards, Tom Ogilvy "kirkm" wrote in message ... I'm using the following to launch some VBA when a cell is double clicked. ++++++++ Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim rng As Range Dim MyLastRow As String Set rng =Worksheets("Sheet1").Range("A1").SpecialCells(xlC ellTypeLastCell) MyLastRow = rng.Row rows = "J1:J" & MyLastRow If Not Intersect(Target, Range(rows)) Is Nothing Then Cancel = True ********* Code here End If End Sub ++++++++++ Howver, I'd like to change that so any cell in the range S2 to CD5972 achieves the same result. Is that possible? Thanks - Kirk |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Detecting double click
Thanks VERY much to both of you.
That's working wonderfully Cheers - Kirk |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Detecting double click
Yes I did. Thanks for the correction. That is the second time I have done
that <blush (this week). -- Regards, Tom Ogilvy "Doug Glancy" wrote: Kirk, Excuse me for horning in, but I believe Tom meant the line to be: If Not Intersect(Target, Range(sAddr)) Is Nothing Then hth, Doug "Tom Ogilvy" wrote in message ... Private Sub Worksheet_BeforeDoubleClick( _ ByVal Target As Range, Cancel As Boolean) Dim sAddr as String sAddr = "S2:CD5972" If Not Intersect(Target, Range(s)) Is Nothing Then Cancel = True ********* Code here End If End Sub -- Regards, Tom Ogilvy "kirkm" wrote in message ... I'm using the following to launch some VBA when a cell is double clicked. ++++++++ Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim rng As Range Dim MyLastRow As String Set rng =Worksheets("Sheet1").Range("A1").SpecialCells(xlC ellTypeLastCell) MyLastRow = rng.Row rows = "J1:J" & MyLastRow If Not Intersect(Target, Range(rows)) Is Nothing Then Cancel = True ********* Code here End If End Sub ++++++++++ Howver, I'd like to change that so any cell in the range S2 to CD5972 achieves the same result. Is that possible? Thanks - Kirk |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Detecting double click
Well, I usually make tow typos in each anwser <g
Doug "Tom Ogilvy" wrote in message ... Yes I did. Thanks for the correction. That is the second time I have done that <blush (this week). -- Regards, Tom Ogilvy "Doug Glancy" wrote: Kirk, Excuse me for horning in, but I believe Tom meant the line to be: If Not Intersect(Target, Range(sAddr)) Is Nothing Then hth, Doug "Tom Ogilvy" wrote in message ... Private Sub Worksheet_BeforeDoubleClick( _ ByVal Target As Range, Cancel As Boolean) Dim sAddr as String sAddr = "S2:CD5972" If Not Intersect(Target, Range(s)) Is Nothing Then Cancel = True ********* Code here End If End Sub -- Regards, Tom Ogilvy "kirkm" wrote in message ... I'm using the following to launch some VBA when a cell is double clicked. ++++++++ Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim rng As Range Dim MyLastRow As String Set rng =Worksheets("Sheet1").Range("A1").SpecialCells(xlC ellTypeLastCell) MyLastRow = rng.Row rows = "J1:J" & MyLastRow If Not Intersect(Target, Range(rows)) Is Nothing Then Cancel = True ********* Code here End If End Sub ++++++++++ Howver, I'd like to change that so any cell in the range S2 to CD5972 achieves the same result. Is that possible? Thanks - Kirk |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| How to change syperlink from single click to double click | Excel Worksheet Functions | |||
| Detecting Double Entries | Excel Programming | |||
| userform label double-click goes to click event | Excel Programming | |||
| Click on graph bar to execute a double-click in a pivot table cell | Charts and Charting in Excel | |||
| Mouse Over Graph, Capture Information on Click(Double Click) | Excel Programming | |||
![kirkm[_6_] is offline](https://www.excelbanter.com/images/SultanThemeVB3R/statusicon/user_offline.gif)
Linear Mode
