Bienvenido a la mayor comunidad de usuarios EXCEL

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

Regístrate gratis

Ayuda con Fechas

Cristhi@n

Member
Registrado
2 Ene 2021
Mensajes
96
Estimados

buenas noches necesito ayuda con una macro en la que quiero lo siguiente:
1.- En la columna I al ingresar la fecha en la columna J se escribe automáticamente.
2.- En la columna AI...
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
'Fechas Ingresos y Término contrato
If Target.Address Like "$I$*" And Target.Cells.Count = 1 Then
If IsDate(Target) Then
Range("J" & Target.Row) = Day(Target) & " DE " & UCase(MonthName(Month(Target))) & " DE " & Year(Target) ''Fecha Ingreso Escrita
Range("AI" & Target.Row) = Target + 90
Range("AJ" & Target.Row) = Day(Target + 90) & " DE " & UCase(MonthName(Month(Target + 90))) & " DE " & Year(Target + 90) ''Fecha Ingreso Escrita
End If
End If
'Fechas Ingresos y Término contrato
If Target.Address Like "$I$*" And Target.Cells.Count = 1 Then
If IsDate(Target) Then
Range("J" & Target.Row) = Day(Target) & " DE " &...
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í
 
Prácticamente lo tenías, lo que te faltaba saber es que las fórmulas no activan el evento Change, por eso hay que obtener la columna AJ cuando cambie la columna I.
Código:
Private Sub...
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