Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Event macro
One annoyance I have with Event macros is that I have to select
another cell afterwards so that I can work in the VBE to make changes to the macro. Even if I exit out of IE after invoking the following Event macro, I still have to select a cell so that I can edit the macro. Is there a way around this? You can test the following by double-clicking on either of the following cells, and then trying to edit the event macro. A2: userid.htm A3: strings.htm Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim filename As String, IEpath As String Dim RetVal As Long IEpath = "C:\program files\internet explorer\iexplore.exe" If ActiveCell.Column = 1 Then If Right(LCase(ActiveCell.Value), 4) = ".htm" Then filename = "http://www.mvps.org/dmcritchie/excel/" _ & Trim(ActiveCell.Value) Shell IEpath & " " & filename, vbNormalFocus End If End If End Sub --- HTH, David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001] My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm Search Page: http://www.mvps.org/dmcritchie/excel/search.htm |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Event macro
David
You could uncheck Tools - Options - Edit Directly in Cells. I would think that you could do that programmatically, but it doesn't appear to work. The event says BEFORE double click, but I don't think that's entirely accurate. -- Dick Kusleika MVP - Excel www.dicks-clicks.com Post all replies to the newsgroup. "David McRitchie" wrote in message ... One annoyance I have with Event macros is that I have to select another cell afterwards so that I can work in the VBE to make changes to the macro. Even if I exit out of IE after invoking the following Event macro, I still have to select a cell so that I can edit the macro. Is there a way around this? You can test the following by double-clicking on either of the following cells, and then trying to edit the event macro. A2: userid.htm A3: strings.htm Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim filename As String, IEpath As String Dim RetVal As Long IEpath = "C:\program files\internet explorer\iexplore.exe" If ActiveCell.Column = 1 Then If Right(LCase(ActiveCell.Value), 4) = ".htm" Then filename = "http://www.mvps.org/dmcritchie/excel/" _ & Trim(ActiveCell.Value) Shell IEpath & " " & filename, vbNormalFocus End If End If End Sub --- HTH, David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001] My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm Search Page: http://www.mvps.org/dmcritchie/excel/search.htm |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Event macro
Hi Dave,
Thanks that works, and completely solves the problem. I'll have to think of Cancel = True in terms of being done with editing a cell rather than just something thrown in to turn off the normal right-click (context) menu when doing my own right-click Event macros.. . I placed it just before my invocation of Internet Explorer , which is after the last use of the activecell. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _ Cancel As Boolean) Dim filename As String, IEpath As String Dim filename As String, IEpath As String IEpath = "C:\program files\internet explorer\iexplore.exe" If ActiveCell.Column = 1 Then If Right(LCase(ActiveCell.Value), 4) = ".htm" Then filename = "c:\website\dmcritchie\excel\" _ & Trim(ActiveCell.Value) Cancel = True '--no need or further need to edit cell Shell IEpath & " " & filename, vbNormalFocus End If ElseIf ...[clipped] Full coverage on my "Fix 404, Page Not Found, Link Errors" http://www.mvps.org/dmcritchie/excel/fix404.htm I'll have to write a note to myself about subject title not being very descriptive. --- HTH, (full coverage on my fix404.htm page) David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001] My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm Search Page: http://www.mvps.org/dmcritchie/excel/search.htm "Dave Peterson" wrote .. Try adding Cancel = true At the end of your macro. This says not to stay in the cell to try to edit it. (won't hurt if you have edit directly in cells on or off.) David McRitchie wrote: One annoyance I have with Event macros is that I have to select another cell afterwards so that I can work in the VBE to make changes to the macro. Even if I exit out of IE after invoking the following Event macro, I still have to select a cell so that I can edit the macro. Is there a way around this? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Event Macro help | Excel Discussion (Misc queries) | |||
Event Macro running another macro inside | Excel Discussion (Misc queries) | |||
It seems to me that I need an event Macro, | Excel Worksheet Functions | |||
'Event' macro | New Users to Excel | |||
Event Macro | Excel Discussion (Misc queries) |