Adding and using a calendar

[oberon.black]

I have a userform that gives allows me to enter a description in
textbox and then it allows me to select expense or income then i
places that info in the a new column that i adjacent to a specifie
column that contains a formula I have created on my spreadsheet t
calculate the entry.

I wounld like to add a calendar to my userform that will also allow m
to add the date to the userform entry. Some dates maybe future som
dates maybe past but I would like to be able to look at my spreadshee
and see that:

081405
mortage

And it is fine if the date appears in description cell or I woul
prefer that it was in the cell above the description.

I have no earthly idea on how to do this!

Please provide detailed instructions on this on.

current code is

Code
-------------------

Private Sub CommandButton1_Click()
If OptionButton1 = True Then
Range("expense").EntireColumn.Insert
Worksheets("CGS").Cells(11, Range("expense").Column - 1).Formula = TextBox1.Value
Else
Range("income").EntireColumn.Insert
Worksheets("CGS").Cells(11, Range("income").Column - 1).Formula = TextBox1.Value
End If
Unload Me
End Sub

 

[oberon.black]

Well, I have inserted the calendar but still need to Update code to add
date to cell above the description..

 

[Ron de Bruin]

Hi see

http://www.rondebruin.nl/calendar.htm

Use this link on the page
http://www.fontstuff.com/vba/vbatut07.htm

 

[oberon.black]

this is not working.

I dont want to add the calendar as a separate userform. I have added
the calender to a userform that already exists, I just need to know how
to add the needed code to that userform that will allow me to select the
date form the calendar and have that date added to the cell above the
description.

Please view the code that I have supplied and advise.

Thanx

 

[Ron de Bruin]

When you select the date in the calendar you can use this
in the CommandButton1_Click() to copy it on the cell you want

Worksheets("CGS").Cells(11, Range("expense").Column - 1).Value = CDbl(Calendar1.Value)
<<Change the range>>

 

[oberon.black]

It works perfectly. Thank you so much for the help.