Calculate Age with vlookup to fill a text box

[brendalpzm]

I have these activeX controls fields:
EmpNoBox = Employee Number (TextBox)
AgeBox = Final result with age (TextBox)
**These 2 are located in the "Registro" worksheet

In a different worksheet called "Base_Externos" I have a data base with the employees information, employee number is located in the A column and their birthdays on the C column, full range of data base is A:D.

I want the user to type their employee number and the AgeBox to be filled with their age by looking up their birthdates and comparing it with today date, this for the cases that the user clicks on their birthday so it should shouw up the age up to the present date. All this triggered by an activeX control button called SearchButton.

 

[James006]

Hi,
For the Age formula in years-months-days, you can test following:

=DATEDIF(C2,TODAY(),"y")&" y "&DATEDIF(C2,TODAY(),"ym")&" m "&DATEDIF(C2,TODAY(),"md")&" d "

 

[brendalpzm]

Hi,
For the Age formula in years-months-days, you can test following:

=DATEDIF(C2,TODAY(),"y")&" y "&DATEDIF(C2,TODAY(),"ym")&" m "&DATEDIF(C2,TODAY(),"md")&" d "

Hi, But in this case I'm looking for a VBA solution

 

[James006]

OK ...
In VBA, you can use Evaluate("yourAgeFormula") to get your result

 

[brendalpzm]

OK ...
In VBA, you can use Evaluate("yourAgeFormula") to get your result

thanks! it worked

 

[James006]

Glad you could solve your problem