2010 excel calendar

[astroelf]

Hi all,

Trying to find a calendar for 2010 in excel, a tab for every month and a simple looking calendar !
Driving me crazy.
Any suggestions.

Also attempting to format a WIP template, also any suggestions ?
Thanks in advance

[mbarron]

A quick Google search led me here.
http://office.microsoft.com/en-us/te...aspx?av=ZXL000

[astroelf]

thanks mbarron.
tried this one already and it doesn't work for me.
Im on a mac and although it does allow me to download and recommends stuffit expander to open the file I get and error #17540.
Its a .cab file which Im not sure of ?

[Bob Phillips]

How about this one http://www.cpearson.com/Excel/download.htm

[astroelf]

thanks for this one.
i also have seen this but could not find the actual download amongst all that info ?

[Bob Phillips]

Do you mean you hadn't seen it, or you cannot now see it?

[pvanrooijen]

Note: Chip Pearson's calendar gives me errors in vista-XL2007 even with the toolpacks added. I cannot figure out why?

I also suggest:

Martin Green's version.
Not that simple for beginners but explained in detail and with sample files.
A very good example of the power of vba.
Be aware of the NOTE in step 2.

Erlandsen version
Under 'Create a simple calendar'

LJZ Soft (free download)
Under XL Calendar 1.7.0

and finally
Ron de Bruin

Don't know which of the above would work with apple though.
Use 7-zip to unzip (see versions bottom page for MAC Os)

Good luck
Paul

[MaayanSV]

it is really useful, thank u pvaanrooijen

[Bob Phillips]

In Chip's calendar, change this code

[vba]


Range("StatusCell").Value = Format(TempDate, "mmm d, yyyy") _
& " " & Format(DayOfYear(TempDate), "##0") & _
NumberSuffix(DayOfYear(TempDate)) & " day of year." & _
" Days From Now: " & Format(DateDiff("d", Now(), TempDate), "##,##0") & _
" (Workdays: " & _
Format(Evaluate("NETWORKDAYS(" & """" & Format(Now(), "Short Date") & _
"""" & Application.International(xlListSeparator) & _
"""" & Format(TempDate, "Short Date") & """" & ")")) & ")"
[/vba]

to this

[vba]

If Val(Application.Version) < 12 Then

Range("StatusCell").Value = Format(TempDate, "mmm d, yyyy") _
& " " & Format(DayOfYear(TempDate), "##0") & _
NumberSuffix(DayOfYear(TempDate)) & " day of year." & _
" Days From Now: " & Format(DateDiff("d", Now(), TempDate), "##,##0") & _
" (Workdays: " & _
Format(Evaluate("NETWORKDAYS(" & """" & Format(Now(), "Short Date") & _
"""" & Application.International(xlListSeparator) & _
"""" & Format(TempDate, "Short Date") & """" & ")")) & ")"
Else

Range("StatusCell").Value = Format(TempDate, "mmm d, yyyy") _
& " " & Format(DayOfYear(TempDate), "##0") & _
NumberSuffix(DayOfYear(TempDate)) & " day of year." & _
" Days From Now: " & Format(DateDiff("d", Now(), TempDate), "##,##0") & _
" (Workdays: " & _
Format(Application.NetworkDays(Format(Now(), "Short Date"), Format(TempDate, "Short Date")))
End If
[/vba]

[Bob Phillips]

BTW, I am referring to the procedure ShowStatusCell