Roster update with all values inbetween MIN and MAX dates.

[troy001100]

Hi.

Warning *** learner below ***

I am trying to update our team roster so that we can update multiple days of leave.

Currently it is working with 1 record at a time.

I have modify it by putting in another field so I can populate MIN and MAX date. I was hoping it would action all days from the MIN to MAX but it just actions the two dates populated.

So I am hoping someone can look at my code below and help me in the right direction.

Thank you


'''

Private Sub cbbAdd_Click()

Dim LeaveDateMin As Date
LeaveDateMin = txtLeaveDate.Text
Dim LeaveDateMax As Date
LeaveDateMax = txtLeaveDateMax.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) = LeaveDateMin
.Range(2) = FirstName
.Range(3) = LeaveType
.Range(5) = LeaveDateMax
.Range(6) = FirstName
.Range(7) = LeaveType


End With
End Sub