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