VBA Userform macro help for range dates

[troy101]

hi.

I currently have a excel macro that allows the end user to update the roster based on a single date.

It will have a userform pop out they fill in leave date, first name, leave type. Then click ADD.

This will go to leave the tab and add that information to the next blank row under the 'tblEmployees'

So what I having been trying to work out is how do I do the above but with a range of dates.
IE. 07/10/2022 - 15/10/2022

I have attached 2 images:

Userform (what end user fills in)
tblemployees (where it updates)


Below is the code for this:


Private Sub cbbAdd_Click()
Dim LeaveDate As Date
LeaveDate = txtLeaveDate.Text
Dim FirstName As String
FirstName = FirstNameCombo.Text
Dim LeaveType As String
LeaveType = LeaveTypeCombo.Text
Dim wsh As Worksheet
Set wsh = ThisWorkbook.Worksheets("Leave")
Set tbl = wsh.ListObjects("tblEmployees")
Dim lRow As ListRow
Set lRow = tbl.ListRows.Add
With lRow
.Range(1) = LeaveDate
.Range(2) = FirstName
.Range(3) = LeaveType
End With
End Sub



Thank you
Troy

[arnelgp]

you name the New Textbox as txtLeaveEnd, then you can modify your code:


Private Sub cbbAdd_Click()
Dim LeaveDate As Date
'LeaveDate = txtLeaveDate.Text
Dim FirstName As String
FirstName = FirstNameCombo.Text
Dim LeaveType As String
LeaveType = LeaveTypeCombo.Text
Dim wsh As Worksheet
Set wsh = ThisWorkbook.Worksheets("Leave")
Set tbl = wsh.ListObjects("tblEmployees")
Dim lRow As ListRow
For LeaveDate = CDate(txtLeaveStart.Text) To CDate(txtLeaveEnd.Text)
Set lRow = tbl.ListRows.Add
With lRow
.Range(1) = LeaveDate
.Range(2) = FirstName
.Range(3) = LeaveType
End With
Next
End Sub

[troy101]

Thank you, that worked.