Displaying Name if current date is their Birthday

[Haree]

Hi all
I have 2 Sheets

Sheet 1 has the following columns
Column 1 = Customer Name
Column 2 = Customer Phone
Column 3 = Customer Date of Birth

Sheet 2 has 2 columns

Customer Name
Customer Phone

If today is a customers birthday i want it to pull it from sheet 1 and display in sheet 2

PS: The list will be updated regularly

Any help will be greatly appreciated. Thanks in advance

 

[Muhammad_Usman]

You can use Pivot table to Filter Name. Just Change Date and Refresh Pivot table.

28-08-21 Exp.xlsx
	A	B	C	D	E	F	G	H	I	J
1	Customer Name	Customer Phone	Customer Date of Birth				DOB	8/28/2021
2	A	111	8/28/2021
3	B	222	8/22/2021				Name	Number
4	C	333	8/23/2021				A	111
5	D	444	8/24/2021				E	555
6	E	555	8/28/2021
7	F
8
9
Sheet1

 

[footoo]

Here's a macro :

Sub v()
With Sheets("Sheet2")
    .UsedRange.Offset(1).ClearContents
    .Range("A2:B" & Sheets("Sheet1").Cells(Rows.Count, 1).End(3).Row).FormulaR1C1 = _
        "=IF(MONTH(Sheet1!RC3) & DAY(Sheet1!RC3)=MONTH(TODAY()) & DAY(TODAY()),Sheet1!RC,1)"
    .[A:A].SpecialCells(xlCellTypeFormulas, 1).EntireRow.Delete
    .UsedRange = .UsedRange.Value
End With
End Sub