Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Insert a date from a userform
Hello,
Don't know if you want the "to" date to be listed below B10, if you dont then reduce the for...next loop by 1 ie (to days-1) [Code Starts] Private Sub CommandButton1_Click() Dim startDate As Date Dim endDate As Date Dim off As Integer Dim days As Integer Dim counter As Integer startDate = TextBox1.Value endDate = TextBox2.Value days = DateDiff("d", startDate, endDate) Range("B10").Select off = 0 For counter = 0 To days ' change to days-1 if you dont want "to" date Selection.Offset(off, 0) = startDate + off off = off + 1 Next End Sub [Code Ends] Happy Coding ChasAA "leonidas" wrote: Hi, I have a userform with 2 textboxes. In textbox1 a "from" date should be entered by the user and in textbox2 a "to" date should be entered. When I click commandbutton1 (=OK) the "from date should be inserted in cell B10 and all the dates between the "from" and the "to" date should be inserted in the cells below. I only don't know how to do this. Can someone help me? Thanks in advance! -- leonidas ------------------------------------------------------------------------ leonidas's Profile: http://www.excelforum.com/member.php?action=getinfo&userid=35375 View this thread: http://www.excelforum.com/showthread.php?threadid=565510 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
UserForm to insert new data | Excel Discussion (Misc queries) | |||
Rename Userform and Insert animation | Excel Programming | |||
how to insert a chart in a userform? | Excel Programming | |||
How to insert Calendar for Userform | Excel Programming | |||
Insert row if box on userform is checked | Excel Programming |