PDA

View Full Version : 2010 excel calendar



astroelf
01-23-2010, 06:18 PM
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
01-23-2010, 08:49 PM
A quick Google search led me here.
http://office.microsoft.com/en-us/templates/CT103589901033.aspx?av=ZXL000

astroelf
01-23-2010, 11:53 PM
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
01-24-2010, 03:54 AM
How about this one http://www.cpearson.com/Excel/download.htm

astroelf
01-24-2010, 12:45 PM
thanks for this one.
i also have seen this but could not find the actual download amongst all that info ?

Bob Phillips
01-24-2010, 04:08 PM
Do you mean you hadn't seen it, or you cannot now see it?

pvanrooijen
01-25-2010, 12:46 PM
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 (http://www.fontstuff.com/vba/vbatut07.htm).
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 (http://www.erlandsendata.no/english/index.php?d=endownloadtools)
Under 'Create a simple calendar'

LJZ Soft (free download) (http://www.ljzsoft.com/download.htm)
Under XL Calendar 1.7.0

and finally
Ron de Bruin (http://www.rondebruin.nl/calendar.htm)

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

Good luck
Paul

MaayanSV
02-01-2010, 02:28 AM
it is really useful, thank u pvaanrooijen :bow:

Bob Phillips
02-01-2010, 03:22 AM
In Chip's calendar, change this code




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") & """" & ")")) & ")"


to this



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

Bob Phillips
02-01-2010, 03:22 AM
BTW, I am referring to the procedure ShowStatusCell