Is there any way to select two latest/oldest rows by date?

[jaik22]

[TABLE="width: 289"]
<colgroup><col span="3"><col></colgroup><tbody>[TR]
[TD]A  Cloumn`[/TD]
[TD]B Column[/TD]
[TD]C Column   [/TD]
[TD]D Column[/TD]
[/TR]
[TR]
[TD]Good[/TD]
[TD="align: right"]52[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]4/12/2017 0:00[/TD]
[/TR]
[TR]
[TD]Good[/TD]
[TD="align: right"]53[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]4/12/2017 0:00[/TD]
[/TR]
[TR]
[TD]Good[/TD]
[TD="align: right"]4234[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]4/12/2017 0:00[/TD]
[/TR]
[TR]
[TD]Good[/TD]
[TD="align: right"]5232[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]4/12/2017 0:00[/TD]
[/TR]
[TR]
[TD]Good[/TD]
[TD="align: right"]42342[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]4/12/2017 0:00[/TD]
[/TR]
[TR]
[TD]Good[/TD]
[TD="align: right"]24442[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]3/30/2018 0:00[/TD]
[/TR]
[TR]
[TD]Bad[/TD]
[TD="align: right"]41233[/TD]
[TD="align: right"]0[/TD]
[TD="align: right"]4/12/2017 0:00[/TD]
[/TR]
</tbody>[/TABLE]

Hi Guys, I am trying to select two latest and two oldest data in the dataset above.
Is there any easy function for selecting latest and oldest using vba?

Thank you!

 

[Tetra201]

What exactly do you need to select?

 

[jaik22]

[TABLE="class: cms_table, width: 289"]
<tbody>[TR]
[TD]A Cloumn`[/TD]
[TD]B Column[/TD]
[TD]C Column[/TD]
[TD]D Column[/TD]
[/TR]
[TR]
[TD]Good[/TD]
[TD="align: right"]52[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]4/12/2016 0:00[/TD]
[/TR]
[TR]
[TD]Good[/TD]
[TD="align: right"]53[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]4/12/2017 0:00[/TD]
[/TR]
[TR]
[TD]Good[/TD]
[TD="align: right"]4234[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]4/12/2016 0:00[/TD]
[/TR]
[TR]
[TD]Good[/TD]
[TD="align: right"]5232[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]4/12/2017 0:00[/TD]
[/TR]
[TR]
[TD]Good[/TD]
[TD="align: right"]42342[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]4/12/2018 0:00[/TD]
[/TR]
[TR]
[TD]Good[/TD]
[TD="align: right"]24442[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]3/30/2018 0:00[/TD]
[/TR]
[TR]
[TD]Bad[/TD]
[TD="align: right"]41233[/TD]
[TD="align: right"]0[/TD]
[TD="align: right"]4/12/2017 0:00[/TD]
[/TR]
</tbody>[/TABLE]

My mistake. Dataset should've look like this. So I am trying to select two of latest dates (2018) and two of oldest (2016)

Thank you

 

[tonyyy]

One approach...

Sub LatestOldest()
Dim rng As Range, rng2 As Range, r As Range
Set rng = Range("D1:D" & Cells(Rows.Count, 4).End(xlUp).Row)
For Each r In rng
    If r = WorksheetFunction.Large(rng, 1) Or _
        r = WorksheetFunction.Large(rng, 2) Or _
        r = WorksheetFunction.Small(rng, 1) Or _
        r = WorksheetFunction.Small(rng, 2) Then
        If Not rng2 Is Nothing Then
            Set rng2 = Application.Union(rng2, r)
        Else
            Set rng2 = r
        End If
    End If
Next r
rng2.EntireRow.Select
End Sub

Cheers,

tonyyy

 

[Tetra201]

@jaik22:

Looks like you've got the answer -- courtesy by tonyyy.

If you need to select just the cells with the latest/oldest dates, remote the "EntireRow." from the code.

 

[jaik22]

Thank you so much for the support guys!