Input an ID number, find it among 65 ranges, obtain birth year

[leosampieri]

Hello everyone,
thanks in advance for your time.
I've got this problem:
1. I have a list of almost 24K ID numbers.
2. I have a table with ranges, saying: "from ID #1.000.000 to ID #2.000.000 was born in 1920"; and so with another 65 ranges, saying from this ID to that ID was born in this year. Look: https://snag.gy/lGVoQ1.jpg
3. So, I must check every ID I have with these conditions. Of course, I need to obtain the year that ID was born.

How can I get this done?
Thanks !

 

[Paul Ked]

Hi and welcome to the forum.

This will do what you want:

Sub KedForum2()
    Dim Srch As Long, lr As Long, rw As Long, Fnd As Long, Str1 As String, Str2 As String
    With Sheet1 'Change the sheet of the data here
        lr = .Cells(.Rows.Count, 7).End(xlUp).Row
        Srch = InputBox("Enter the ID you want to search for (leave out the period marks!)", "ID needed...")
        For rw = 2 To lr
            Str1 = .Cells(rw, 7)
            Str1 = (Left(Str1, 1) & Mid(Str1, 3, 3) & Right(Str1, 3))
            Str2 = .Cells(rw, 8)
            Str2 = (Left(Str2, 1) & Mid(Str2, 3, 3) & Right(Str2, 3))
            If Srch >= CLng(Str1) And Srch <= CLng(Str2) Then
                MsgBox "The year born is " & .Cells(rw, 9), , "Found year..."
                Exit Sub
            End If
        Next
    End With
    MsgBox "Sorry, year not found.", vbInformation, "Oh dear..."
End Sub

The code assumes you are using Sheet1 for your data, change it if this is not correct.

When you run it you will be prompted to enter the ID Number without the periods.

The sub then strips out the periods from the data and changes the string to a real number.

It then compares the number to the entered one to find the date.

 

[Nishant94]

Are you looking for something like this:

Unknown
	A	B	C	D	E	F
1	Table				Lookup Value	Year
2	1.000.000	2.000.000	1920		2.102.321	1921
3	2.000.001	2.500.000	1921
4	2.500.001	3.000.000	1922
5	3.000.001	3.500.000	1923
6	3.500.001	4.000.000	1924
7	4.000.001	4.500.000	1925
8	4.500.001	5.000.000	1926
9	5.000.001	5.500.000	1927
10	5.500.001	6.000.000	1928
11
Sheet1

Cell Formulas
Range	Formula
F2	=LOOKUP(E2,$A$2:$C$10)

 

[leosampieri]

Hi and welcome to the forum.

This will do what you want:

Sub KedForum2()
    Dim Srch As Long, lr As Long, rw As Long, Fnd As Long, Str1 As String, Str2 As String
    With Sheet1 'Change the sheet of the data here
        lr = .Cells(.Rows.Count, 7).End(xlUp).Row
        Srch = InputBox("Enter the ID you want to search for (leave out the period marks!)", "ID needed...")
        For rw = 2 To lr
            Str1 = .Cells(rw, 7)
            Str1 = (Left(Str1, 1) & Mid(Str1, 3, 3) & Right(Str1, 3))
            Str2 = .Cells(rw, 8)
            Str2 = (Left(Str2, 1) & Mid(Str2, 3, 3) & Right(Str2, 3))
            If Srch >= CLng(Str1) And Srch <= CLng(Str2) Then
                MsgBox "The year born is " & .Cells(rw, 9), , "Found year..."
                Exit Sub
            End If
        Next
    End With
    MsgBox "Sorry, year not found.", vbInformation, "Oh dear..."
End Sub

The code assumes you are using Sheet1 for your data, change it if this is not correct.

When you run it you will be prompted to enter the ID Number without the periods.

The sub then strips out the periods from the data and changes the string to a real number.

It then compares the number to the entered one to find the date.

Paul!, thanks for your time. Really.
I'll try the code.
Let me as you a question: shall I be able to enter the 24K ID's all at once?
Thanks again,

 

[leosampieri]

Are you looking for something like this:

Unknown

	A	B	C	D	E	F
1	Table				Lookup Value	Year
2	1.000.000	2.000.000	1920		2.102.321	1921
3	2.000.001	2.500.000	1921
4	2.500.001	3.000.000	1922
5	3.000.001	3.500.000	1923
6	3.500.001	4.000.000	1924
7	4.000.001	4.500.000	1925
8	4.500.001	5.000.000	1926
9	5.000.001	5.500.000	1927
10	5.500.001	6.000.000	1928
11

<colgroup><col style="width: 25pxpx"><col><col><col><col><col><col></colgroup><thead>
</thead><tbody>
</tbody>

Sheet1​

Worksheet Formulas Cell Formula F2 =LOOKUP(E2,$A$2:$C$10) <thead> </thead><tbody> </tbody>

<tbody>
</tbody>

Nishant, I'll try that out.
It's true that LOOKUP looks for the nearest value, too. I did not know that.
Regards, thanks a lot for your time.

 

[Fluff]

Cross posted https://www.excelforum.com/excel-fo...ind-it-among-65-ranges-obtain-birth-year.html

While we do not prohibit Cross-Posting on this site, we do ask that you please mention you are doing so and provide links in each of the threads pointing to the other thread (see rule 13 here along with the explanation: Forum Rules). This way, other members can see what has already been done in regards to a question, and do not waste time working on a question that may already be answered.

 

[Paul Ked]

Let me as you a question: shall I be able to enter the 24K ID's all at once?

No, one at a time as per

an ID

in your title.

 

[leosampieri]

Cross posted https://www.excelforum.com/excel-fo...ind-it-among-65-ranges-obtain-birth-year.html

While we do not prohibit Cross-Posting on this site, we do ask that you please mention you are doing so and provide links in each of the threads pointing to the other thread (see rule 13 here along with the explanation: Forum Rules). This way, other members can see what has already been done in regards to a question, and do not waste time working on a question that may already be answered.

Yes, you're right. I had not thought about that.
Sorry.

 

[leosampieri]

Thanks!

 

[leosampieri]

Are you looking for something like this:

Unknown

	A	B	C	D	E	F
1	Table				Lookup Value	Year
2	1.000.000	2.000.000	1920		2.102.321	1921
3	2.000.001	2.500.000	1921
4	2.500.001	3.000.000	1922
5	3.000.001	3.500.000	1923
6	3.500.001	4.000.000	1924
7	4.000.001	4.500.000	1925
8	4.500.001	5.000.000	1926
9	5.000.001	5.500.000	1927
10	5.500.001	6.000.000	1928
11

<colgroup><col style="width: 25pxpx"><col><col><col><col><col><col></colgroup><thead>
</thead><tbody>
</tbody>

Sheet1​

Worksheet Formulas Cell Formula F2 =LOOKUP(E2,$A$2:$C$10) <thead> </thead><tbody> </tbody>

<tbody>
</tbody>

This worked, thanks !!