Delete Overlapping Date Ranges VBA

[SBF12345]

I would like to produce a short script that has the ability to loop through a table of cells and delete rows that meet an overlap criteria.

I have three columns for each row. Column 1 is a random number. Column 2 is a starting date value. Column 3 is a ending date value. I would like to test each row against every other row to check for overlapping dates. If the dates overlap I would like to delete the entire row that has the larger random number between the two rows that have overlapping dates.

Any ideas or psuedo code that would accomplish this goal?

Thanks!

 

[SBF12345]

To break the question down a bit...How is best to define a range given a startdate and an enddate? With a defined range of date values using a startdate and an enddate (as the contents of the cells) I would then like to use the intersect function with a conditional statement to determine any overlap.

 

[Akuini]

I would like to produce a short script that has the ability to loop through a table of cells and delete rows that meet an overlap criteria.

I have three columns for each row. Column 1 is a random number. Column 2 is a starting date value. Column 3 is a ending date value. I would like to test each row against every other row to check for overlapping dates. If the dates overlap I would like to delete the entire row that has the larger random number between the two rows that have overlapping dates.

Any ideas or psuedo code that would accomplish this goal?

Thanks!

I don't quite understand what you meant.
By 'overlap' you mean if a date falls between two dates?
Can you post some data sample?

 

[Akuini]

To break the question down a bit...How is best to define a range given a startdate and an enddate? With a defined range of date values using a startdate and an enddate (as the contents of the cells) I would then like to use the intersect function with a conditional statement to determine any overlap.

If what you mean is populate each date between 2 dates to a range, here's an example:
The codes generates dates between 2 dates starting from A5 down.

Sub toDate()

Dim stDate As Date
Dim enDate As Date
Dim d As Date

    Range("A2") = DateSerial(2018, 5, 10)
    Range("B2") = DateSerial(2018, 5, 15)
    
    stDate = CDate(Range("A2"))
    enDate = CDate(Range("B2"))
    
    i = 5
    For d = stDate To enDate
       Range("A" & i) = d
       i = i + 1
    Next

End Sub