Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

Macro Fecha escrita y calculo Edad

Gl@dys94

Member
Registrado
30 Ene 2021
Mensajes
92
Amigos y amigas

por favor necesito que me ayuden con una macro que cada vez que vaya ingresando fechas a partir de la fila 4 columna "H" y mas allá (infinito), jajaja, y que en la columna "I" se...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

Solución
Pon esta macro en la hoja.
Código:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
If Target.Address Like "$H$*" And Target.Cells.Count = 1 Then
   If IsDate(Target) Then
      Range("I" & Target.Row) = Day(Target) & " DE " & UCase(MonthName(Month(Target))) & " DE " & Year(Target)
      Range("J" & Target.Row) = DateDiff("yyyy", Target, Date)
      If Month(Target) > Month(Date) Or _
        (Month(Target) = Month(Date) And Day(Target) > Day(Date)) Then
         Range("J" & Target.Row) = Range("J" & Target.Row) - 1
      End If
   End If
End If
Application.EnableEvents = True
End Sub
para lo que quieres es mas facil una formula personalizada asi solo arrastras la formula cada vez que metas una fecha o bien convierte tus datos en una tabla insertada, pones la formula y cada que...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

Pon esta macro en la hoja.
Código:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
If Target.Address Like "$H$*"...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 
Volver
Arriba