Year get from textbox value in userform

[nidhipatel]

my userform contain 2 textbBox
TextBox1.value = start date
TextBox2.value = end date

e.g
TextBox1.value = 14/8/85
TextBox2.value = 28/10/91

in sheet1 from range "A1" to show start date year to end date year by vba and
using for loop.in above example show result as below

1985
1986
1987
1988
1989
1990
1991

 

[Yongle]

Hi
Try this...

Place in UserForm code module

Private Sub CommandButton1_Click()
    Dim r As Integer, a As Integer
    For a = Year(TextBox1.Value) To Year(TextBox2.Value)
        r = r + 1
        Sheets("Sheet1").Cells(r, 1).Value = a
    Next
End Sub

 

[nidhipatel]

Great !
Thanks a lot.......

 

[Yongle]

Thanks for the feedback