Calendar Add in

M

marcus

Does andyone know how to get the calendar add in to work

I want to pick up info from a spreadsheet and post in on
the calendar.

I.E
Spreadsheet:
cells A1 = 01 jan 2004
cells B1 = Marcus
cells c1 = Birthday

Calendar
To state Marcus Birthday on the calendar on the 1st Jan
2004.

Marcus
 
S

Steff_DK

Dim sngDate As String
sngDate = Range("A1").Value
Calendar1.Value = sngDate

I guess

Calendar1.value = Range("A1")

will work as well...

Depending on where your calendar object is placed you'll need t
specify what sheets, forms etc the objects are on.
e.g. With workbooks("Book1").Sheets("sheet1").Range("A1")...


Stef
 
M

Marcus

Steff

many thanks

This is work.... However My major problem is getting text
inside the calender gridcell.

Is this possible. I cant see the point of a calendar if
you cant update with appointments etc. I was hoping for a
Userform1.calendar1.text command.

Does anyone have any ideas ?

Thanks
Marcus
 
Top