Adding and using a calendar

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

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

081405
mortage

And it is fine if the date appears in description cell or I would 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

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

Thanx

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

Hi see

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

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

--
Regards Ron de Bruin
http://www.rondebruin.nl


"oberon.black" <[email protected]> wrote in message
news:[email protected]...
>
> I have a userform that gives allows me to enter a description in a
> textbox and then it allows me to select expense or income then it
> places that info in the a new column that i adjacent to a specified
> column that contains a formula I have created on my spreadsheet to
> calculate the entry.
>
> I wounld like to add a calendar to my userform that will also allow me
> to add the date to the userform entry. Some dates maybe future some
> dates maybe past but I would like to be able to look at my spreadsheet
> and see that:
>
> 081405
> mortage
>
> And it is fine if the date appears in description cell or I would
> 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
>
> --------------------
>
>
> Thanx
>
>
> --
> oberon.black
> ------------------------------------------------------------------------
> oberon.black's Profile: http://www.excelforum.com/member.php...o&userid=26732
> View this thread: http://www.excelforum.com/showthread...hreadid=466628
>

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

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>>



--
Regards Ron de Bruin
http://www.rondebruin.nl


"oberon.black" <[email protected]> wrote in message
news:[email protected]...
>
> 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
>
>
> --
> oberon.black
> ------------------------------------------------------------------------
> oberon.black's Profile: http://www.excelforum.com/member.php...o&userid=26732
> View this thread: http://www.excelforum.com/showthread...hreadid=466628
>

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