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

-------------------


Than

--
oberon.blac
-----------------------------------------------------------------------
oberon.black's Profile: http://www.excelforum.com/member.php...fo&userid=2673
View this thread: http://www.excelforum.com/showthread.php?threadid=46662

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


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

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" wrote in message
news:oberon.black.1v7f6b_1126458321.6338@excelforu m-nospam.com...

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


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

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" wrote in message
news:oberon.black.1v7nig_1126469126.6205@excelforu m-nospam.com...

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.


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