| Home | Forums | Reviews | Articles | Register |
 |
| Thread Tools | Rate Thread |
|
Guest
Posts: n/a
|
|
|
|
||
|
|
| |
|
Guest
Posts: n/a
|
|
|
|
|
||
|
Guest
Posts: n/a
|
|
|
|
|
||
|
Guest
Posts: n/a
|
|
|
|
|
||
|
Guest
Posts: n/a
|
|
|
|
|
||
|
Guest
Posts: n/a
|
|
|
|
|
||
|
Guest
Posts: n/a
|
Yes, that would prolly work.
I didn't know you could add sheethandlers to the Thisworkbook object. If one needed different eventhandlers for each type of sheet one added, one could use the technique you demonstrated here, to route behaviour. But for this particular project I'll stick to Ockham's razor  thx again Ward > You can use ThisWorkbook level events but you'll need to check the > current sheet is your UpLoad sheet > > ' code in a normal module > Public gwsUpload As Worksheet > > Sub test() > > Set gwsUpload = ActiveWorkbook.Worksheets.Add > > End Sub > > Function IsUploadSheet() As Boolean > > On Error GoTo errExit > If Not gwsUpload Is Nothing Then > IsUploadSheet = (ActiveSheet Is gwsUpload) > End If > > errExit: > > End Function > > ' ''''' code in Thisworkbook module > > Private Sub Workbook_SheetActivate(ByVal Sh As Object) > If IsUploadSheet = True Then > MsgBox "UploadSheet sheet activated" > End If > End Sub > > Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _ > ByVal Target As Range) > If IsUploadSheet = True Then > MsgBox Target.Address & " on UploadSheet sheet" > End If > > End Sub > > Regards, > Peter T > > > "King Albert II" <(E-Mail Removed)> wrote in message > news:Xns9D8C80CA08D8Ckingalbert2forpresid@69.16.176.253... >> >> Peter, >> >> When the user doubleclicks the evented worksheet, the handler checks >> if a particular column is doubleclicked, and if yes proceeds to load >> a form in memory and populates that with row info. >> The evented sheet has too many columns to fit on a 21" screen. In the >> row of the clicked cell, there are some cells that need to be >> visualized closely together, so I use a form with some controls. >> >> >> >> What I wanted to do was create a sheet from scratch using >> ....Worksheets.Add, and then attach an event to it. Similar to adding >> clickable DOM objects to a html page. >> >> After posting here I discovered a page by Chip Pearson explaining how >> to, but it is too involved for this project. Since I only need to add >> one worksheet in this particular subroutine, I'll go easy and unhide >> an existing sheet, with a hardcoded eventhandler. For the enduser >> it's the same magic. >> >> >> >> thx for your help >> >> >> Ward >> >> >> >> >> See "Creating An Event Procedure" here : >> >> http://www.cpearson.com/excel/vbe.aspx , >> >> >> >> >> "Peter T" <peter_t@discussions> wrote in >> news:(E-Mail Removed): >> >>> Not sure what you are asking, and what the relevance of the >>> DoubleClick event is. Maybe you simply want something like this >>> >>> Private Sub Workbook_NewSheet(ByVal Sh As Object) >>> If TypeName(Sh) = "Worksheet" Then >>> Set gwsUpload = Sh >>> MsgBox Sh.Name & " assigned to gwsUpLoad" >>> ' code ? >>> End If >>> End Sub >>> >>> I am assuming gwsUpload is a global worksheet variable declared in a >>> normal module >>> >>> If(?) you have a Form Ingave showing it might be better to update a >>> Property in the Form and call some routine in the Form. >>> >>> Regards, >>> Peter T >>> >>> "King Albert II" <(E-Mail Removed)> wrote in message >>> news:Xns9D8C6EFFA467Dkingalbert2forpresid@69.16.176.253... >>>> Hi, >>>> >>>> >>>> I'd like to attach the eventhandler below, to any sheet that I add >>>> in code like so : Set wsUpload = ThisWorkbook.Worksheets.Add >>>> >>>> >>>> >>>> >>>> Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, >>>> Cancel As Boolean) >>>> >>>> >>>> Call bereikenmaken >>>> If target.Column = Range("womschrijving").Column Then >>>> Load Ingave >>>> Call tonen(target) >>>> Ingave.Show >>>> End If >>>> >>>> >>>> End Sub >>>> >>>> >>>> >>>> >>>> >>>> How can I do that ? >>>> >>>> thx >>>> >>>> Ward >>> >> > > |
|
|
|
|
|||
|
Guest
Posts: n/a
|
|
|
|
|
||
|
Guest
Posts: n/a
|
|
|
|
|
||
|
|
| |
|
| Thread Tools | |
| Rate This Thread | |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Udfs and eventhandler for excel in managed code | param.kalkal@gmail.com | Microsoft Excel Programming | 0 | 15th Feb 2007 10:52 AM |
| eventhandler in code asp.net 2.0 | =?Utf-8?B?Q2h1Y2sgUA==?= | Microsoft ASP .NET | 2 | 16th Nov 2006 02:16 PM |
| declaritive or code behind eventhandler assignment? | =?Utf-8?B?UGhpbA==?= | Microsoft ASP .NET | 2 | 27th Jan 2006 09:41 PM |
| Best Way to Encapsulate Toolbar and Associated EventHandler Code | Terry McGinty | Microsoft Dot NET Framework Forms | 0 | 20th Sep 2004 05:41 PM |
| excel - macro code to open a protected sheet, enter passowrd, and then protect sheet | arunjoshi | Microsoft Excel Programming | 1 | 2nd May 2004 03:50 PM |
