copy data by loop

[delta]

TextBox 1 = 12/7/2005
TextBox 2 = 12/7/2015
means difference between to two TextBox is 11 years
i like data copy by loop in sheet 1 look like i attache image


▬▬▬▬▬▬▬▬▬ Mod edit : thread moved to appropriate forum !

​

 

[Chihiro]

Give us bit more detail. Is TextBox in worksheet or in UserForm?

If in UserForm. Something like...

Private Sub CommandButton1_Click()
Dim sDate As Date, eDate As Date
With Me
    sDate = CDate(.TextBox1.Value)
    eDate = CDate(.TextBox2.Value)
End With

With Sheet1.Range("A2:A" & (Year(eDate) - Year(sDate) + 2))
    .Formula = "=" & Year(sDate) & "+Row(A1)-1"
    .Value = .Value
End With
End Sub

 

[delta]

perfect answer as i wish
thanks a lot