Here is one I like to use for setting variables (Options) in a file
that is used by other Macros.

Using the Macro below; I can toggle between True and False on the
Options and Colors for specific cells.

========================================
Available Options
Star Font Size =        16
Label Font Size =       8
Star Color =
Label Color =
Star Col Spacing =      15
Label Col Spacing =     15
Label Height Above * =  15
Show Legend Key =       TRUE
Show Data Table =       FALSE
Size Chart to Window?   TRUE
Month End Chart?        FALSE
Digits to Display?      1
Plot from zero? TRUE
Percent off the bottom =        90

========================================

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
  'Toggle True or False in cells
  If UCase(ActiveCell.Value) = "TRUE" Then
    ActiveCell.Value = "FALSE"
  Else
    If UCase(ActiveCell.Value) = "FALSE" Then ActiveCell.Value =
"TRUE"
  End If
  'Toggle Yellow or None color in WBS_Description Cells only
  Dim Cell As Range
  For Each Cell In Range("WBS1")
    If ActiveCell.Address = Cell.Address Then
      If ActiveCell.Interior.ColorIndex = 6 Then
        ActiveCell.Interior.ColorIndex = xlColorIndexNone
      Else
        ActiveCell.Interior.ColorIndex = 6
      End If
    End If
  Next Cell
  ActiveCell.Offset(1, 0).Select
End Sub

===========================================================

The Double Click Macro is great for menus.

Ken


On Oct 1, 2:11 am, Mr excel <excelkeec...@gmail.com> wrote:
> Thanks rajan babu, for that link.Can anybody quote some more examples in
> detail.I just got a little understanding of the function with arguments.But
> to enhance my knowledge i would like to study more examples...Pls provide me
> with any other examples.....
>
> On Sat, Oct 1, 2011 at 12:18 PM, rajan verma <rajanverma1...@gmail.com>wrote:
>
>
>
>
>
> > Please VIsit this Page..
> >http://www.cpearson.com/excel/Events.aspx
>
> > On Sat, Oct 1, 2011 at 12:09 PM, XLS S <xlst...@gmail.com> wrote:
>
> >> Hey Rajan Babu,
>
> >> which page?
>
> >> On Sat, Oct 1, 2011 at 11:52 AM, rajan verma 
> >> <rajanverma1...@gmail.com>wrote:
>
> >>>  HI,
> >>> Please visit this Page to know more about Worksheet Events..
>
> >>> Regards
> >>> Rajan
>
> >>>   On Sat, Oct 1, 2011 at 10:53 AM, Mr excel <excelkeec...@gmail.com>wrote:
>
> >>>> HI group,
>
> >>>>  This is a Great & amazing group in learning excel vba..
>
> >>>> *Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
> >>>> As Boolean)*
>
> >>>> *Dim st As String*
>
> >>>> *Dim sh As Worksheet*
>
> >>>> *Set sh = Sheets("Sheet2")*
>
> >>>> *st = Target.Address*
>
> >>>> *sh.Activate*
>
> >>>> *sh.Range(st).Activate*
>
> >>>> *ActiveCell.Value = sh.Name & st*
> >>>> *End Sub*
>
> >>>> I had a doubt regarding the above code.
> >>>> I had taken a sample code from one of  posts.What exactly does the code
> >>>> in Brackets mean, and when will this type of code in brackets used.Can 
> >>>> any
> >>>> body explain me in detail with some easily understandable examples..I m a
> >>>> beginner in excel vba...
> >>>> Thanks in advance...
>
> >>>> --
>
> >>>> ---------------------------------------------------------------------------­-------
> >>>> Some important links for excel users:
> >>>> 1. Follow us on TWITTER for tips tricks and links :
> >>>>http://twitter.com/exceldailytip
> >>>> 2. Join our LinkedIN group @http://www.linkedin.com/groups?gid=1871310
> >>>> 3. Excel tutorials athttp://www.excel-macros.blogspot.com
> >>>> 4. Learn VBA Macros athttp://www.quickvba.blogspot.com
> >>>> 5. Excel Tips and Tricks athttp://exceldailytip.blogspot.com
>
> >>>> To post to this group, send email to excel-macros@googlegroups.com
>
> >>>> <><><><><><><><><><><><><><><><><><><><><><>
> >>>> Like our page on facebook , Just follow below link
> >>>>http://www.facebook.com/discussexcel
>
> >>> --
> >>> Regards
> >>> Rajan verma
> >>> +91 9158998701
>
> >>> --
>
> >>> ---------------------------------------------------------------------------­-------
> >>> Some important links for excel users:
> >>> 1. Follow us on TWITTER for tips tricks and links :
> >>>http://twitter.com/exceldailytip
> >>> 2. Join our LinkedIN group @http://www.linkedin.com/groups?gid=1871310
> >>> 3. Excel tutorials athttp://www.excel-macros.blogspot.com
> >>> 4. Learn VBA Macros athttp://www.quickvba.blogspot.com
> >>> 5. Excel Tips and Tricks athttp://exceldailytip.blogspot.com
>
> >>> To post to this group, send email to excel-macros@googlegroups.com
>
> >>> <><><><><><><><><><><><><><><><><><><><><><>
> >>> Like our page on facebook , Just follow below link
> >>>http://www.facebook.com/discussexcel
>
> >> --
> >> .........................
>
> >> --
>
> >> ---------------------------------------------------------------------------­-------
> >> Some important links for excel users:
> >> 1. Follow us on TWITTER for tips tricks and links :
> >>http://twitter.com/exceldailytip
> >> 2. Join our LinkedIN group @http://www.linkedin.com/groups?gid=1871310
> >> 3. Excel tutorials athttp://www.excel-macros.blogspot.com
> >> 4. Learn VBA Macros athttp://www.quickvba.blogspot.com
> >> 5. Excel Tips and Tricks athttp://exceldailytip.blogspot.com
>
> >> To post to this group, send email to excel-macros@googlegroups.com
>
> >> <><><><><><><><><><><><><><><><><><><><><><>
> >> Like our page on facebook , Just follow below link
> >>http://www.facebook.com/discussexcel
>
> > --
> > Regards
> > Rajan verma
> > +91 9158998701
>
> > --
>
> > ---------------------------------------------------------------------------­-------
> > Some important links for excel users:
> > 1. Follow us on TWITTER for tips tricks and links :
> >http://twitter.com/exceldailytip
> > 2. Join our LinkedIN group @http://www.linkedin.com/groups?gid=1871310
> > 3. Excel tutorials athttp://www.excel-macros.blogspot.com
> > 4. Learn VBA Macros athttp://www.quickvba.blogspot.com
> > 5. Excel Tips and Tricks athttp://exceldailytip.blogspot.com
>
> > To post to this group, send email to excel-macros@googlegroups.com
>
> > <><><><><><><><><><><><><><><><><><><><><><>
> > Like our page on facebook , Just follow below link
> >http://www.facebook.com/discussexcel- Hide quoted text -
>
> - Show quoted text -

-- 
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links : 
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
 
To post to this group, send email to excel-macros@googlegroups.com

<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel

Reply via email to