Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Using a date to move a Worksheet
Hello form Steved I have an excel file with 2 worksheets Sheet1 is Named "Normal" Normal timetable. Sheet2 is Named "School" School Holiday timetable. Has anybody being able to apply a date to move worksheets Whats my objective? The both sheets are bus timetables What is required is that on 05-Jul-09 Sheet1 and sheet2 swap places Then on 18-Jul-09 Swap back. I Thankyou. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Using a date to move a Worksheet
You will need to change the date formats to satisfy your system requirements, but it compiled OK. You need to test it, I did not. Put in the ThisWorkbook code module. Private Sub Workbooks_Open() If DateValue(Date) = DateValue("7/5/09") Then Sheets("Normal").Move After:=Sheets("School") ElseIf DateValue(Date) = DateValue("7/18/09") Then Sheets("School").Move After:=Sheets("Normal") End If End Sub "Steved" wrote in message ... Hello form Steved I have an excel file with 2 worksheets Sheet1 is Named "Normal" Normal timetable. Sheet2 is Named "School" School Holiday timetable. Has anybody being able to apply a date to move worksheets Whats my objective? The both sheets are bus timetables What is required is that on 05-Jul-09 Sheet1 and sheet2 swap places Then on 18-Jul-09 Swap back. I Thankyou. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Using a date to move a Worksheet
Hello JLGWhiz I'll shall test it and let you know how I got on. Steved ps Thankyou. "JLGWhiz" wrote: You will need to change the date formats to satisfy your system requirements, but it compiled OK. You need to test it, I did not. Put in the ThisWorkbook code module. Private Sub Workbooks_Open() If DateValue(Date) = DateValue("7/5/09") Then Sheets("Normal").Move After:=Sheets("School") ElseIf DateValue(Date) = DateValue("7/18/09") Then Sheets("School").Move After:=Sheets("Normal") End If End Sub "Steved" wrote in message ... Hello form Steved I have an excel file with 2 worksheets Sheet1 is Named "Normal" Normal timetable. Sheet2 is Named "School" School Holiday timetable. Has anybody being able to apply a date to move worksheets Whats my objective? The both sheets are bus timetables What is required is that on 05-Jul-09 Sheet1 and sheet2 swap places Then on 18-Jul-09 Swap back. I Thankyou. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Using a date to move a Worksheet
Hi Steved, You should switch the dates in the If statement so that the later date is tested first. Otherwise, the earlier date will test true each time and the sheets will not change on the 18th. "Steved" wrote: Hello JLGWhiz I'll shall test it and let you know how I got on. Steved ps Thankyou. "JLGWhiz" wrote: You will need to change the date formats to satisfy your system requirements, but it compiled OK. You need to test it, I did not. Put in the ThisWorkbook code module. Private Sub Workbooks_Open() If DateValue(Date) = DateValue("7/5/09") Then Sheets("Normal").Move After:=Sheets("School") ElseIf DateValue(Date) = DateValue("7/18/09") Then Sheets("School").Move After:=Sheets("Normal") End If End Sub "Steved" wrote in message ... Hello form Steved I have an excel file with 2 worksheets Sheet1 is Named "Normal" Normal timetable. Sheet2 is Named "School" School Holiday timetable. Has anybody being able to apply a date to move worksheets Whats my objective? The both sheets are bus timetables What is required is that on 05-Jul-09 Sheet1 and sheet2 swap places Then on 18-Jul-09 Swap back. I Thankyou. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Move to a named worksheet from any worksheet in the same workbook | Excel Programming | |||
On opening a worksheet move focus to a cell based on date | Excel Worksheet Functions | |||
Move Range with a date to a Matching Monthly Worksheet | Excel Programming | |||
Unable to Insert Worksheet/Move and copy worksheet Excel 2003 | Excel Worksheet Functions | |||
How do I use vb to move from worksheet to worksheet in a workbook. | Excel Programming |