Arrastrar formula al detectar valor fila

[dbuera]

Buenas tardes,

Recurro a ustedes, para intentar que alguien me ayude a dar con la macro adecuada.
Tengo un documento, con registros de personas (nombres, apellidos, fechas de nacimiento...) y otra columna de edad que se calcula con la fecha de nacimiento mediante la siguiente formula

[COLOR=#141414][FONT=Georgia]=SIFECHA(--SUSTITUIR(F5;".";"/");HOY();"y")[/FONT][/COLOR]

, pero cada vez que ingreso un registro desde la 1a hoja, con la fecha de nacimiento no se me actualiza la edad, he probado con esta macro pero no me funciona, solo si la ejecuto manualmente.

[COLOR=#141414][FONT=Georgia]Sub RellenarColumnaI()[/FONT][/COLOR]

[COLOR=#141414][FONT=Georgia]Range("I2").AutoFill Destination:=Range("I2:I" & Range("A" & Rows.Count).End(xlUp).Row)[/FONT][/COLOR]

[COLOR=#141414][FONT=Georgia]End Sub[/FONT][/COLOR]

Me gustaría cada vez que se ingrese un registro con su fecha de nacimiento se actualizara su edad automáticamente.

Contraseña: macro

Muchas gracias,

Un saludo

Adjuntos:

• 
  arrastrar columna edad.rar

 

[bmacias]

Y si haces que el codigo se ejecute cada vez que cambie la celda F5....

Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range

' La variable KeyCells contiene la celda que
' causara que el macro se ejecute cuand haya habido un cambio en la casilla.
Set KeyCells = Range("f5")

If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then

' Ponga su codigo aqui.
Range("I2").AutoFill Destination:=Range("I2:I" & Range("A" & Rows.Count).End(xlUp).Row)

End If
End Sub


El codigo no es de mi cosecha, sino lo tome de la pagina de apoyo de Microsoft.

Saludos,

Benjamin