Agregar la palabra años a la edad con macro

disculpa que te moleste

intento que aparezca la palabra años a la par de la edad pero no funciona,

solo aparece el numero sin la palabra años.

ActiveCell.Offset(0, 2) = fecha_nac (fecha de nacimiento)

ActiveCell.Offset(0, 4) = fur              (otra fecha)

If fur <> "" And fecha_nac <> "" And IsDate(fur) And IsDate(fcha_nac) Then

ActiveCell.Offset(0, 3).FormulaR1C1 = "=DATEDIF(RC[-1],RC[1],""y"")"

ActiveCell.Offset(0, 3) = ActiveCell.Offset(0, 3) & " años"

Application.CutCopyMode = False

End If

gracias

1 Respuesta

Respuesta
1

Cambia estas líneas

ActiveCell.Offset(0, 3).FormulaR1C1 = "=DATEDIF(RC[-1],RC[1],""y"")"
ActiveCell.Offset(0, 3) = ActiveCell.Offset(0, 3) & " años"

Por estas:

ActiveCell.Offset(0, 3).FormulaR1C1 = "=DATEDIF(RC[-1],RC[1],""y"")"
edad = ActiveCell.Offset(0, 3)
ActiveCell.Offset(0, 3) = edad & " años"

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas