VBA Vlookup

[wangaa11]

Hello, I have a list of data that is roughly over 1000 rows and 10 columns although I only really need the first three columns. Below is an example of the data, at first I was looking to just use a vlookup based on "today's" date but the data extraction is not consistent. I only want to return the first three columns based on "today's" date. Any help or advice is greatly appreciated, I am trying to avoid a bunch of manual manipulation of the data if possible.

	A	B	C	D	E	F	G	H	I	J
1	11/26/2020 14:00	Smith John	smithj@hotmail.com	7057178888	Blank	CB	Service Location	Address	5	One on One
2	11/26/2020 14:05	Smith John	jsmith@gmail.com	4162222222	Blank	CB	Service Location	Address	5	One on One
3	11/26/2020 14:10	Smith John	xxxx@outlook.ca	5554446666	Blank	CB	Service Location	Address	5	One on One
4	11/27/2020 9:00 AM	Smith John	1234@xyz.ca	7057899999	Blank	CB	Service Location	Address	5	One on One
5	11/27/2020 2:00 PM	Smith Jane	smithj@outlook.ca	5551238888	Blank	CB	Service Location	Address	5	One on One
6	11/27/2020 2:00 PM	Last First Name	1234@hotmail.com	5554567777	Blank	CB	Service Location	Address	5	One on One
7	11/28/2020 11:00	doe Jane	456@hotmail.com	5554568888	Blank	CB	Service Location	Address	5	One on One
8	11/28/2020 14:00	doe john	123@gmail.com	5554568888	Blank	CB	Service Location	Address	5	One on One
9	11/28/2020 14:05	doe jj	789@xxx.com	5554568888	Blank	CB	Service Location	Address	5	One on One
10	11/28/2020 2:10 PM	smith h	xxxx@hotmail.com	5557891111	Blank	CB	Service Location	Address	5	One on One

 

[Peter_SSs]

Is the data in column A numeric or text?
What does the formula =ISNUMBER(A6) return? Also try that formula pointed at a few other cells in column A to see if the result is consistent.

 

[wangaa11]

Is the data in column A numeric or text?
What does the formula =ISNUMBER(A6) return? Also try that formula pointed at a few other cells in column A to see if the result is consistent.

I believe it is text, format states "general" and when I do ISNUMBER I get a "false".

I do only want to return columns A, B & C.

 

[Peter_SSs]

See if you can adapt/tweak this. Note that my dates are in d/m/y order and that I do not know if your column A dates will always use two digits for day &/or month.
Post back with more details and examples if this does not work for all cases for you (after adjusting for your m/d/y order)
The date here is 1 December as shown in A12 below.

20 12 01.xlsm
	A	B	C	D	E	F	G	H	I	J
1	30/11/2020 14:00	Smith John	smithj@hotmail.com	7057178888	Blank	CB	Service Location	Address	5	One on One
2	30/11/2020 14:05	Smith John	jsmith@gmail.com	4162222222	Blank	CB	Service Location	Address	5	One on One
3	30/11/2020 14:10	Smith John	xxxx@outlook.ca	5554446666	Blank	CB	Service Location	Address	5	One on One
4	1/12/2020 9:00 AM	Smith John	1234@xyz.ca	7057899999	Blank	CB	Service Location	Address	5	One on One
5	1/12/2020 2:00 PM	Smith Jane	smithj@outlook.ca	5551238888	Blank	CB	Service Location	Address	5	One on One
6	1/12/2020 15:00	Last First Name	1234@hotmail.com	5554567777	Blank	CB	Service Location	Address	5	One on One
7	2/12/2020 11:00	doe Jane	456@hotmail.com	5554568888	Blank	CB	Service Location	Address	5	One on One
8	2/12/2020 14:00	doe john	123@gmail.com	5554568888	Blank	CB	Service Location	Address	5	One on One
9	2/12/2020 14:05	doe jj	789@xxx.com	5554568888	Blank	CB	Service Location	Address	5	One on One
10	2/12/2020 2:10 PM	smith h	xxxx@hotmail.com	5557891111	Blank	CB	Service Location	Address	5	One on One
11
12	1/12/2020
13
14	1/12/2020 9:00 AM	Smith John	1234@xyz.ca
15	1/12/2020 2:00 PM	Smith Jane	smithj@outlook.ca
16	1/12/2020 15:00	Last First Name	1234@hotmail.com
17
18
Today

Cell Formulas
Range	Formula
A12	A12	=TODAY()
A14:C18	A14	=IFERROR(INDEX(A$1:A$10,AGGREGATE(15,6,(ROW(A$1:A$10)-ROW(A$1)+1)/(LEFT($A$1:$A$10,FIND(" ",$A$1:$A$10)-1)=TEXT($A$12,"d/mm/yyyy")),ROWS(A$14:A14))),"")

 

[wangaa11]

See if you can adapt/tweak this. Note that my dates are in d/m/y order and that I do not know if your column A dates will always use two digits for day &/or month.
Post back with more details and examples if this does not work for all cases for you (after adjusting for your m/d/y order)
The date here is 1 December as shown in A12 below.

20 12 01.xlsm
	A	B	C	D	E	F	G	H	I	J
1	30/11/2020 14:00	Smith John	smithj@hotmail.com	7057178888	Blank	CB	Service Location	Address	5	One on One
2	30/11/2020 14:05	Smith John	jsmith@gmail.com	4162222222	Blank	CB	Service Location	Address	5	One on One
3	30/11/2020 14:10	Smith John	xxxx@outlook.ca	5554446666	Blank	CB	Service Location	Address	5	One on One
4	1/12/2020 9:00 AM	Smith John	1234@xyz.ca	7057899999	Blank	CB	Service Location	Address	5	One on One
5	1/12/2020 2:00 PM	Smith Jane	smithj@outlook.ca	5551238888	Blank	CB	Service Location	Address	5	One on One
6	1/12/2020 15:00	Last First Name	1234@hotmail.com	5554567777	Blank	CB	Service Location	Address	5	One on One
7	2/12/2020 11:00	doe Jane	456@hotmail.com	5554568888	Blank	CB	Service Location	Address	5	One on One
8	2/12/2020 14:00	doe john	123@gmail.com	5554568888	Blank	CB	Service Location	Address	5	One on One
9	2/12/2020 14:05	doe jj	789@xxx.com	5554568888	Blank	CB	Service Location	Address	5	One on One
10	2/12/2020 2:10 PM	smith h	xxxx@hotmail.com	5557891111	Blank	CB	Service Location	Address	5	One on One
11
12	1/12/2020
13
14	1/12/2020 9:00 AM	Smith John	1234@xyz.ca
15	1/12/2020 2:00 PM	Smith Jane	smithj@outlook.ca
16	1/12/2020 15:00	Last First Name	1234@hotmail.com
17
18
Today

Cell Formulas
Range	Formula
A12	A12	=TODAY()
A14:C18	A14	=IFERROR(INDEX(A$1:A$10,AGGREGATE(15,6,(ROW(A$1:A$10)-ROW(A$1)+1)/(LEFT($A$1:$A$10,FIND(" ",$A$1:$A$10)-1)=TEXT($A$12,"d/mm/yyyy")),ROWS(A$14:A14))),"")

This helped thank you

 

[Peter_SSs]

This helped thank you

You're welcome.