Insert a date from a userform

  • Thread starter Thread starter leonidas
  • Start date Start date
L

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!
 
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
 
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)
 
Back
Top