Ayuda macro calculo tipo documento con fecha de nacimiento

[anfegam]

Buenas tardes me podrian ayudar con la siguiente macro :

Tengo un archivo de excel con la informacion de usuarios tengo la fecha de nacimiento pero en una columna d debo de poner el tipo de documento dependiendo del calculo de la edad de la persona tengo la fecha de nacimiento pero debo calcular la edad y colocar el tipo de documento según los años.

Ejemplo si es cedula se pone cc, si es tarjeta de identidad se pone ti, si es registro civil se pone rc.

Las reglas son : se pone registro civil di tiene de 0 a 7 años

Tarjeta de identidad si tiene de 8 a 17 años

Y cedula de 18 en adelante

Necesito que haga el calculo entre la fecha de nacimiento y la fecha actual y coloque el tipo de documento en la celda d les agradezco mucho su ayuda

[Haplox]

¿Y si subes el archivo para poder trabajar sobre él? Así se puede trabajar con los rangos, las celdas, etc.

Recuerda que es TU duda, si hay que montar una hoja como la tuya, crear la macro, depurarla, etc... ¿o solo necesitas una guía?

Si es así, deberías crear un bucle con las celdas del rango de usuario, para esa celda retar

CDate(Now)-CDate(fNacimiento) (que habrás definifdo antes como valor de la celda correspondiente) y comparar el número de días que te da esa resta con los que necesites.

Entonces en la celda correspondiente ingresas lo que necesites. Todo esto, para cada caso, dentro de un If..End If (que a su vez están dentro del bucle que has creado)

[anfegam]

Hace 16 horas, Haplox dijo:

¿Y si subes el archivo para poder trabajar sobre él? Así se puede trabajar con los rangos, las celdas, etc.

Recuerda que es TU duda, si hay que montar una hoja como la tuya, crear la macro, depurarla, etc... ¿o solo necesitas una guía?

Si es así, deberías crear un bucle con las celdas del rango de usuario, para esa celda retar

CDate(Now)-CDate(fNacimiento) (que habrás definifdo antes como valor de la celda correspondiente) y comparar el número de días que te da esa resta con los que necesites.

Entonces en la celda correspondiente ingresas lo que necesites. Todo esto, para cada caso, dentro de un If..End If (que a su vez están dentro del bucle que has creado)

 

ejemplo.xlsx

[Mauricio_ODN]

Saludos a ambos.

Dejo una posible solución. Nos comentas.

ejemplo.xlsm

[aaquino]

Para lo que necesitas, no es necesaria una macro, puedes hacer uso de fórmulas:

=SI(SIFECHA(A7,HOY(),"y")<=7, "rc",SI(Y(SIFECHA(A7,HOY(),"y")>7,SIFECHA(A7,HOY(),"y")<18),"ti","cc"))

Te adjunto archivo con ejemplo

Calculo de fechas.xlsx