Display conditional formatted rows in the top

[RAJESH1960]

I HAVE CREATED A BIRTHDAY LIST OF FAMILY AND FRIENDS. IF I GIVE A FORMULA IN CELL I1 AS = TODAY()

USING CONDITIONAL FORMATTING THE CELLS OF THAT ROW/ROWS ARE HIGHLIGHTED ON THE DAY MENTIONED IN CELL I1.

I HAVE TO SCROLL DOWN TO FIND OUT WHOSE BIRTHDAY IT IS TODAY.

IF THERE ARE MORE THAN 1 BIRHTDAY ON THAT DAY THEN IT DISPLAYS IN DIFFERENT ROWS.

IS THERE ANY WAY,TO CREATE A CODE, SO THAT THE BIRTHDAY ROWS ARE DISPLAYED IN THE TOP ROWS.

 

[RAJESH1960]

Found the solution.....

 

[Renzi13]

@RAJESH1960 How did you end up doing this? I need to do something similar.

 

[RAJESH1960]

@RAJESH1960 How did you end up doing this? I need to do something similar.

I created 2 macros with this code.
Option Explicit

Sub GoToBirthday()
'
' GoToBirthday Macro
'

'
Sheets("List of Birthdays").Select
Range("A2").Select
Selection.AutoFilter
ActiveWorkbook.Worksheets("List of Birthdays").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("List of Birthdays").AutoFilter.Sort.SortFields.Add( _
Range("I1:I262"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue. _
Color = RGB(146, 208, 80)
With ActiveWorkbook.Worksheets("List of Birthdays").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Sub RefreshAll()
'
' RefreshAll Macro
'

'
Range("C1").Select
Sheets("List of Birthdays").Select
Range("B1").Select
Selection.AutoFilter
ActiveWorkbook.Worksheets("List of Birthdays").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("List of Birthdays").Sort.SortFields.Add2 Key:= _
Range("A2:A262"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
:=xlSortNormal
With ActiveWorkbook.Worksheets("List of Birthdays").Sort
.SetRange Range("A1:J262")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("B2").Select
End Sub

I have typed the formula in cell J1 as = today() and formula in range column J2:J =IF(MONTH(C2)<>MONTH($I$1),"",IF(DAY(C2)<>DAY($I$1),"","HAPPY BIRTHDAY"))