Delete Rows of Data in Given Date Range

[Nathan95]

Hey All I have created a userform where users need to input Start Date (tbstartdate), End Date (tbenddate) and employer number (tbPnumber), based on this user form I want the code to be able to remove/Delete all the rows of data from the table that is located in sheet "Mark Leave" that falls between the date range and matches the employer number that was inputted in the user form. The Employer number gets inputted in Column B and Date gets inputted in Column D in the "Mark Leave" sheet.

Any help will be greatly appreciated

 

[Nathan95]

Given what I read in this post and see that @bebo021999 has put some effort into this, and looking at the code he submitted in post #13, he had to pick up those variable names from something that I did not see. All that being said, I tried to make this so it can be easily converted to pick up the required data from some other source and substituted in. I used an InputBox to enter the variables in the interim and essentially used his code with some minor changes. This code tested on your supplied data, which I believe to be a Range of data as opposed to a Table.

Sub remove()

    Dim lRow As Long, cel As Range, i As Long, rw As String, spl
   
    rw = Application.InputBox("Please enter P Number, Start Date, End Date separated by comma's only", _
        "Data Entry", "P Number,Start Date,End Date", , , , , 2)
    spl = Split(rw, ",")
    If UBound(spl) <> 2 Or rw = "" Then
        MsgBox "Please make sure all three pieces of data are separated by a comma", vbCritical
        Exit Sub
    End If
    With Worksheets("Mark Leave")
        lRow = .Cells(Rows.Count, "B").End(xlUp).Row
        For Each cel In .Range("B2:B" & lRow)
            If cel.Value = Trim(spl(0)) And CDate(cel.Offset(0, 2)) >= Trim(spl(1)) _
            And CDate(cel.Offset(0, 2)) <= Trim(spl(2)) Then cel.Value = ""
        Next
        .Range("B2:B" & lRow).SpecialCells(4).EntireRow.Delete
    End With
   
End Sub

Perfect thanks alot this worked

 

[igold]

You're welcome, we were both happy to help. Thanks for the feedback.