I made a birthday list

[TLS49]

NEW FAMILY & FRIENDS BIRTHDAYS.xlsb
	A	B	C	D
1	NAME OF PERSON	BIRTHDAY	AGE	BIRTHDAY NOTIFCATION
2	TONY	Monday, July 30, 1990	30	HAPPY BIRTHDAY TONY
3	THOMAS	Monday, July 12, 1943	77
4	JANE	Friday, August 31, 1945	74
5	LINDA	Thursday, December 10, 1964	55
6	KIMBERLY	Thursday, July 14, 1966	54
7	JOHN	Wednesday, September 7, 1966	53
8	GARY	Friday, March 21, 1969	51
9	JEFF	Friday, December 12, 1969	50
10	THOMAS II	Friday, May 15, 1970	50
11	ALAN	Friday, March 16, 1973	47
12	KORI	Tuesday, July 2, 1985	35
13	CODIE	Sunday, February 17, 1991	29
14	KYLE	Sunday, February 17, 1991	29
15	KATE	Thursday, January 26, 1995	25
16	EMIELY	Friday, August 2, 1996	23
BIRTHDAY

Cell Formulas
Range	Formula
C2:C16	C2	=IF(B2="","",ROUNDDOWN((TODAY()-B2)/365.25,0))
D2:D16	D2	=IF(DAY(B2)&MONTH(B2)=DAY(TODAY())&MONTH(TODAY()),"HAPPY BIRTHDAY "&A2,"")

I want birthday date in order after date pass go at bottom of list.

Thanks you much

Thomas

 

[MARK858]

If you mean sort by Month and day try putting the formula in E2, drag down, select all your data and sort on Column E (please note that my dates are in dd/mm/yyyy order.

Book1
	A	B	C	D	E
1	NAME OF PERSON	BIRTHDAY	AGE	BIRTHDAY NOTIFCATION
2	JANE	31/07/1945	75	HAPPY BIRTHDAY JANE	31/07/2020
3	EMIELY	02/08/1996	23		02/08/2020
4	JOHN	07/09/1966	53		07/09/2020
5	LINDA	10/12/1964	55		10/12/2020
6	JEFF	12/12/1969	50		12/12/2020
7	KATE	26/01/1995	25		25/01/2021
8	CODIE	17/02/1991	29		16/02/2021
9	KYLE	17/02/1991	29		16/02/2021
10	ALAN	16/03/1973	47		16/03/2021
11	GARY	21/03/1969	51		21/03/2021
12	THOMAS II	15/05/1970	50		15/05/2021
13	KORI	02/07/1985	35		02/07/2021
14	THOMAS	12/07/1943	77		12/07/2021
15	KIMBERLY	14/07/1966	54		14/07/2021
16	TONY	30/07/1990	30		30/07/2021
Sheet5

Cell Formulas
Range	Formula
C2:C16	C2	=IF(B2="","",ROUNDDOWN((TODAY()-B2)/365.25,0))
D2:D15	D2	=IF(DAY(B2)&MONTH(B2)=DAY(TODAY())&MONTH(TODAY()),"HAPPY BIRTHDAY "&A2,"")
E2:E16	E2	=IF(DATE(2020,MONTH(B2),DAY(B2))<TODAY(),DATE(2020,MONTH(B2),DAY(B2))+365,DATE(2020,MONTH(B2),DAY(B2)))
D16	D16	=IF(DAY(B16)&MONTH(B16)=DAY(TODAY())&MONTH(TODAY()),"HAPPY BIRTHDAY "&B16,"")

 

[TLS49]

Thanks you for help. How I have column E automatically sort when I open the file oldest to newest? I need help with vba code for that

Thanks You

Thomas

 

[MARK858]

Code goes in the ThisWorkbook module.

Private Sub Workbook_Open()
Sheets("BIRTHDAY").Range("A1:E" & Sheets("BIRTHDAY").Range("A" & Rows.Count).End(xlUp).Row).Sort Sheets("BIRTHDAY").Columns("E"), xlAscending, , , , , , xlYes
End Sub

 

[Phuoc]

=IF(DAY(B2)&MONTH(B2)=DAY(TODAY())&MONTH(TODAY()),"HAPPY BIRTHDAY "&A2,"")

1. Birthday = 11/2; Today = 1/12 => "HAPPY BIRTHDAY "?

2. Birthday = 29/2 => 4 years will be only once "HAPPY BIRTHDAY "?