Insert a date from a userform

[leonidas]

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!

 

[Guest]

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

 

[Bob Phillips]

With Worksheets("Sheet1").Range("B10")
.Value = CDate(TextBox1.Text)
.AutoFill .Resize(CDate(TextBox2.Text) - CDate(TextBox1.Text) + 1)
End With


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)