Insertar fecha que falta en la columna y si se repite la fecha la brinque y siga el proceso
En la columna A tengo fechas consecutivas quiero en un macro que inserte la fecha que falta y si se repite la brinque y siga el proceso hasta llegar a la ultima fecha ejemplo
01/07/2019 02/07/2016 03/07/2016 03/04/2016 07/07/2019 09/07/2019 15/07/2019 15/07/2019 15/07/2019 18/07/2019 20/07/2019 30/07/2019 estas fechas están hacia abajo en la columna A
1 Respuesta
Respuesta de Aneudys Martinez
Si aun no la tiene sera una solución
Sub InsertarFecha()
For Each celda In Range("a2:a10000")
fecha = CDate(celda.Offset(1, 0)) - CDate(celda)
If fecha > 1 Then
celda.Offset(1, 0).EntireRow.Insert
celda.Offset(1, 0) = celda + 1
End If
If celda.Offset(1, 0) = "" Then
celda.Offset(1, 0) = celda + 1
If Month(celda.Offset(-1, 0)) <> Month(celda.Offset(1, 0)) Then
MsgBox "es un mes diferente"
celda.Offset(1, 0) = ""Exit Sub
End If
End If
Next
end sub
