is it possible for excel to move on to the day using the pc clock,

i have a doc that uses sheets for each day of week as in


Sub ADDSHEET()
For G = 31 To 1 Step -1
Sheets.Add.Name = G & ".01.08"
Next G
End Sub

so would it be possoible to add a extra command so it would open the
corresponding sheet dependant on date

hope this makes sense

tia

JKF

Sub pick_today()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If ws.Name = Format(Now, "dd.mm.yy") Then
ws.Select
End If
Next
End Sub

You could place the code into a workbook_open event if you chose to.

Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If ws.Name = Format(Now, "dd.mm.yy") Then
ws.Select
End If
Next
End Sub


Gord Dibben MS Excel MVP

On Thu, 24 Jan 2008 18:13:33 -0000, "jkf" wrote:

is it possible for excel to move on to the day using the pc clock,

i have a doc that uses sheets for each day of week as in


Sub ADDSHEET()
For G = 31 To 1 Step -1
Sheets.Add.Name = G & ".01.08"
Next G
End Sub

so would it be possoible to add a extra command so it would open the
corresponding sheet dependant on date

hope this makes sense

tia

JKF

thank you worked a treat

many thanks

JKF

"Gord Dibben" <gorddibbATshawDOTca wrote in message
...
Sub pick_today()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If ws.Name = Format(Now, "dd.mm.yy") Then
ws.Select
End If
Next
End Sub

You could place the code into a workbook_open event if you chose to.

Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If ws.Name = Format(Now, "dd.mm.yy") Then
ws.Select
End If
Next
End Sub


Gord Dibben MS Excel MVP

On Thu, 24 Jan 2008 18:13:33 -0000, "jkf" wrote:

is it possible for excel to move on to the day using the pc clock,

i have a doc that uses sheets for each day of week as in


Sub ADDSHEET()
For G = 31 To 1 Step -1
Sheets.Add.Name = G & ".01.08"
Next G
End Sub

so would it be possoible to add a extra command so it would open the
corresponding sheet dependant on date

hope this makes sense

tia

JKF

Thanks for the feedback.

Gord

On Thu, 24 Jan 2008 20:20:53 -0000, "jkf" wrote:

thank you worked a treat

many thanks

JKF

"Gord Dibben" <gorddibbATshawDOTca wrote in message
.. .
Sub pick_today()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If ws.Name = Format(Now, "dd.mm.yy") Then
ws.Select
End If
Next
End Sub

You could place the code into a workbook_open event if you chose to.

Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If ws.Name = Format(Now, "dd.mm.yy") Then
ws.Select
End If
Next
End Sub


Gord Dibben MS Excel MVP

On Thu, 24 Jan 2008 18:13:33 -0000, "jkf" wrote:

is it possible for excel to move on to the day using the pc clock,

i have a doc that uses sheets for each day of week as in


Sub ADDSHEET()
For G = 31 To 1 Step -1
Sheets.Add.Name = G & ".01.08"
Next G
End Sub

so would it be possoible to add a extra command so it would open the
corresponding sheet dependant on date

hope this makes sense

tia

JKF

Another option based on Gord's code:

Private Sub Workbook_Open()
Dim ws As Worksheet
set ws = nothing
on error resume next
set ws = worksheets(Format(Date, "dd.mm.yy")) 'I like date, Gord likes Now!
on error goto 0
if ws is nothing then
beep 'no sheet by that name
else
application.goto ws.range("a1"), scroll:=true
end if
End Sub

ps. If you use Gord's code, you may want to add:
Exit For
after the
ws.select
line

There's no reason to keep looking.

jkf wrote:

is it possible for excel to move on to the day using the pc clock,

i have a doc that uses sheets for each day of week as in

Sub ADDSHEET()
For G = 31 To 1 Step -1
Sheets.Add.Name = G & ".01.08"
Next G
End Sub

so would it be possoible to add a extra command so it would open the
corresponding sheet dependant on date

hope this makes sense

tia

JKF

--

Dave Peterson

Thanks for the input Dave.

As usual, way ahead of me<g

I like posting my amateur code so's I learn how to do it correctly.

BUT...........I don't seem to be too swift on the learning part.


Gord


On Thu, 24 Jan 2008 17:48:38 -0600, Dave Peterson
wrote:

Another option based on Gord's code:

Private Sub Workbook_Open()
Dim ws As Worksheet
set ws = nothing
on error resume next
set ws = worksheets(Format(Date, "dd.mm.yy")) 'I like date, Gord likes Now!
on error goto 0
if ws is nothing then
beep 'no sheet by that name
else
application.goto ws.range("a1"), scroll:=true
end if
End Sub

ps. If you use Gord's code, you may want to add:
Exit For
after the
ws.select
line

There's no reason to keep looking.

jkf wrote:

is it possible for excel to move on to the day using the pc clock,

i have a doc that uses sheets for each day of week as in

Sub ADDSHEET()
For G = 31 To 1 Step -1
Sheets.Add.Name = G & ".01.08"
Next G
End Sub

so would it be possoible to add a extra command so it would open the
corresponding sheet dependant on date

hope this makes sense

tia

JKF

You're welcome.

I know what you mean! (Where's Tom!?!)

Gord Dibben wrote:

Thanks for the input Dave.

As usual, way ahead of me<g

I like posting my amateur code so's I learn how to do it correctly.

BUT...........I don't seem to be too swift on the learning part.

Gord

On Thu, 24 Jan 2008 17:48:38 -0600, Dave Peterson
wrote:

Another option based on Gord's code:

Private Sub Workbook_Open()
Dim ws As Worksheet
set ws = nothing
on error resume next
set ws = worksheets(Format(Date, "dd.mm.yy")) 'I like date, Gord likes Now!
on error goto 0
if ws is nothing then
beep 'no sheet by that name
else
application.goto ws.range("a1"), scroll:=true
end if
End Sub

ps. If you use Gord's code, you may want to add:
Exit For
after the
ws.select
line

There's no reason to keep looking.

jkf wrote:

is it possible for excel to move on to the day using the pc clock,

i have a doc that uses sheets for each day of week as in

Sub ADDSHEET()
For G = 31 To 1 Step -1
Sheets.Add.Name = G & ".01.08"
Next G
End Sub

so would it be possoible to add a extra command so it would open the
corresponding sheet dependant on date

hope this makes sense

tia

JKF

--

Dave Peterson