Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.templates,microsoft.public.excel.misc
external usenet poster
 
Posts: 6
Default Seeking a 'special' calendar template

I'm looking for a specific calendar template for use with Excel 2003.

It's for use as a meeting planner, and what I want ideally is to be able
to have one worksheet displaying a standard calendar view something like
this one: http://tinyurl.com/bmnetp (OR
http://office.microsoft.com/en-us/te...33&av=Z XL000
)
....where I can add an entry for a meeting into one date within a
displayed month, and that links to a row in a second worksheet within
the same workbook which contains details of all the meetings. That
worksheet would have columns for categories like "Date" "Time" "Title",
"Speaker", "Speaker invited Y/N?", "Speaker fee" etc etc

The cell in the 'calendar' worksheet would contain just "Speaker" and
"Title", say.

It would be easy to set up these as two entirely separate worksheets -
ie a 'calendar' one and a 'meeting details' one; and I could achieve
what I want by inserting manual links between the two, for every single
meeting, but it would be prohibitively fiddly and time-consuming: is
there an off-the-shelf solution?

Thanks
David
  #2   Report Post  
Posted to microsoft.public.excel.misc,microsoft.public.excel.templates
external usenet poster
 
Posts: 3,346
Default Seeking a 'special' calendar template

Hi,

You could write a macro to transfer the data. You would need a consistant
entry style, for example Speaker - Title. Suppose you entered Titles in A1
and B1 of sheet2. Then something like this:

Here is some sample code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim isect As Range
Set isect = Application.Intersect(Target, Range("Input"))
If Not isect Is Nothing Then
With Sheets("Sheet2")
If .Range("A2") = "" Then
.Range("A2") = Left(Target, InStr(1, Target, "-") - 1)
.Range("B2") = Mid(Target, InStr(1, Target, "-") + 1)
Else
.Range("A1").End(xlDown).Offset(1, 0) = Left(Target,
InStr(1, Target, "-") - 1)
.Range("B1").End(xlDown).Offset(1, 0) = Mid(Target, InStr(1,
Target, "-") + 1)
End If
End With
End If
End Sub


1. To add this code to your file, press Alt+F11,
2. In the VBAProject window, top left side, find your sheet name under your
file name and double click it.
3. Paste in or type the code above.

For this example you will need to select all the dates on all the months
(using the Ctrl key) and then name that selection Input by clicking in the
Name Box, left side of the Formula Bar, typing in the name and pressing Enter.

Modify as needed.

--
If this helps, please click the Yes button

Cheers,
Shane Devenshire


"Lobster" wrote:

I'm looking for a specific calendar template for use with Excel 2003.

It's for use as a meeting planner, and what I want ideally is to be able
to have one worksheet displaying a standard calendar view something like
this one: http://tinyurl.com/bmnetp (OR
http://office.microsoft.com/en-us/te...33&av=Z XL000
)
....where I can add an entry for a meeting into one date within a
displayed month, and that links to a row in a second worksheet within
the same workbook which contains details of all the meetings. That
worksheet would have columns for categories like "Date" "Time" "Title",
"Speaker", "Speaker invited Y/N?", "Speaker fee" etc etc

The cell in the 'calendar' worksheet would contain just "Speaker" and
"Title", say.

It would be easy to set up these as two entirely separate worksheets -
ie a 'calendar' one and a 'meeting details' one; and I could achieve
what I want by inserting manual links between the two, for every single
meeting, but it would be prohibitively fiddly and time-consuming: is
there an off-the-shelf solution?

Thanks
David

Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Calendar Template brihem New Users to Excel 1 January 9th 09 07:01 PM
seeking template to track tokens played in arcade game and payout arcademanager Setting up and Configuration of Excel 3 June 23rd 08 11:29 AM
calendar template jmj56 Excel Discussion (Misc queries) 1 July 4th 06 02:25 AM
calendar template rita Excel Discussion (Misc queries) 2 March 6th 06 12:04 AM
Calendar template RCB Excel Discussion (Misc queries) 0 December 28th 04 12:27 PM


All times are GMT +1. The time now is 06:15 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"