Re: Date for ToggleHeadings macro

Tech-Archive recommends: Speed Up your PC by fixing your registry

From: Antonyo (antonio_atala_at_hotmail.com)
Date: 03/09/05 

Date: Tue, 8 Mar 2005 23:08:12 -0600

Hello Again

Can You take a look to this link?
This is part of the WorkBook

http://www.geocities.com/antonioata/Furniture.xls

    Regards
    Antonyo

"Dave Peterson" <ec35720@netscapeXSPAM.com> escribió en el mensaje
news:422DD5BC.D0412DEA@netscapeXSPAM.com...
> They're named ",1", ",2", ..., ",12"????
>
> That looks highly unusual to me.
>
> Are they named "sheet 1" (with a space), "sheet1" (no space) or just "1"
(no
> ***)?
>
>
>
> Antonyo wrote:
> >
> > Hello Again
> >
> > I have 12 Sheets named -
> > ,1
> > ,2
> > ,3
> > ,4
> > ,5
> > ,6
> > ,7
> > ,8
> > ,9
> > ,10
> > ,11
> > ,12
> > Regards
> > Antonyo
> >
> > "Dave Peterson" <ec35720@netscapeXSPAM.com> escribió en el mensaje
> > news:422DB5E3.7929895B@netscapeXSPAM.com...
> > > You have 12 sheets named: Jan, Feb, Mar, ..., Dec?
> > >
> > > If yes, then how about something like:
> > >
> > > Option Explicit
> > > Sub auto_open()
> > >
> > > Dim wks As Work***
> > > Dim CurMonth As String
> > >
> > > CurMonth = Format(Date, "mmm")
> > >
> > > For Each wks In ThisWorkbook.Worksheets
> > > With wks
> > > .Select
> > > ActiveWindow.DisplayHeadings _
> > > = CBool((LCase(.Name) = LCase(CurMonth)))
> > > End With
> > > Next wks
> > >
> > > End Sub
> > >
> > > Although I do agree with Tim. The first thing I would do is show
those
> > headers.
> > >
> > >
> > > Antonyo wrote:
> > > >
> > > > I Have 12 sheets, one for every month of the year
> > > > Jan is *** 1,Feb Is *** 2 and so on
> > > > I need the Headings to show on march (*** 3 ) if is march
> > > > if is April (*** 4) I need march off and April on
> > > > Is this Possible
> > > >
> > > > Antonyo
> > > >
> > > > "Dave Peterson" <ec35720@netscapeXSPAM.com> escribió en el mensaje
> > > > news:422C61DC.2132CD5A@netscapeXSPAM.com...
> > > > > If you name the macro auto_open, it'll run when you open the
workbook.
> > > > >
> > > > > Then you can check the date to see if it should continue:
> > > > >
> > > > > Sub auto_open()
> > > > > if format(date,"mmyyyy") = "042005" then
> > > > > ActiveWindow.DisplayHeadings = Not _
> > > > > ActiveWindow.DisplayHeadings
> > > > > else
> > > > > 'do nothing
> > > > > end if
> > > > > End Sub
> > > > >
> > > > > Antonyo wrote:
> > > > > >
> > > > > > Is there a way to start this macro by it self for the whole mont
of
> > > > april
> > > > > > 2005?
> > > > > >
> > > > > > Thanks in advance
> > > > > >
> > > > > > Sub ToggleHeadings()
> > > > > > ActiveWindow.DisplayHeadings = Not _
> > > > > > ActiveWindow.DisplayHeadings
> > > > > > End Sub
> > > > >
> > > > > --
> > > > >
> > > > > Dave Peterson
> > >
> > > --
> > >
> > > Dave Peterson
>
> --
>
> Dave Peterson

Quantcast