Find top 2 data from data set

[riya]

Hi All,
Good Day,
Can you please suggest how to find top two data from the data sets.

 

[msharma864512]

Please see if this one helps

 

[riya]

T

Please see if this one helps

Thank you.. Can we do it from VBA?

 

[msharma864512]

J

T

Thank you.. Can we do it from VBA?

Attached here is the file, just click on "Top2"Button

 

[riya]

J


Attached here is the file, just click on "Top2"Button

Why i am getting wrong result for Newark and Vancovour city, I think we also have to validate City with country ..

 

[riya]

at

Why i am getting wrong result for Newark and Vancovour city, I think we also have to validate City with country ..

Attached is the file for ref.

 

[Chihiro]

Personally, I'd just use PivotTable and use TOP N filter.

Sub Demo()
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Record")
    .ClearAllFilters
    If [F2].Value = 0 Or [F2].Value > .PivotItems.Count Then
        Exit Sub
    Else
        .PivotFilters.Add2 _
            Type:=xlTopCount, DataField:=ActiveSheet.PivotTables("PivotTable1"). _
            PivotFields("Sum of Populations"), Value1:=[F2].Value
    End If
End With
End Sub

See attached.