Macro para calcular semanas de fecha a fecha

Para Dante

Saludos

Que tal

Fijate que te quiero molestar con esto

Tengo este codigo que uso para agregar informacion:

'aqui es cuando agregamos

    Application.ScreenUpdating = False

    ActiveCell = cbo_nombre

    ActiveCell.Offset(0, 1) = comunidad

    ActiveCell.Offset(0, 2) = fecha_nac

    ActiveCell.Offset(0, 4) = fur

    ActiveCell.Offset(0, 5) = fpp

    ActiveCell.Offset(0, 6) = pri_con

    ActiveCell.Offset(0, 8) = seg_con

    ActiveCell.Offset(0, 10) = ter_con

    ActiveCell.Offset(0, 12) = cua_con

    ActiveCell.Offset(0, 14) = qui_con

    ActiveCell.Offset(0, 16) = sex_con

    ActiveCell.Offset(0, 18) = sep_con

    ActiveCell.Offset(0, 20) = oct_con

    ActiveCell.Offset(0, 22) = nov_con

Y lo que busco es que me calcule con macro cuantas semanas hay entre fur y pri-con (ejemplo: fur seria 10/06/2014 y pri_con 20/08/2014) quiero saber cuantas semanas hay entre la primera fecha (10/06/2014) y la segunda (20/08/2014) y me coloque el resultado en la columna H. (tambien que calcule entre fur y seg_con y lo coloque en la columna J)

Mas o menos seria asi

Calular semanas entre:

Fur y pri_con y colocar el resultado en columna H

Fur y seg_con y colocar el resultado de la columna J

Fur y ter_con y colocar el resultado en la columna L

Fur y cua_con y colocar el resultado en columna N

Fur y qui_con y colocar el resultado de la columna P

Fur y sex_con y colocar el resultado en la columna R

Fur y sep_con y colocar el resultado en columna T

Fur y oct_con y colocar el resultado de la columna V

Fur y nov_con y colocar el resultado en la columna X

Estos resultado deben aparecer en la hoja datos

En esa hoja estoy utilizando esta formula para hacer el calculo

=SI(G5="","",REDONDEAR.MAS(((G5-E5)/7,0))

El resultado de esta formula aparece en la columna H

Donde G5 es pri_con y E5 es fur

Pero cuando quiero agregar un nuevo registro las formulas no se ejecutan y desaparecen.

El userform donde esta el codigo es AGREGAR_D

En el menu que aparace despues de ingresar usuario y contraseña, el boton que uso para agregar informacion dice: MORALES I/MORALES II/MORALES III/NAVAJOA.

Luego en el siguiente userform seleccionas el optionbutton que dice MORALES III

Y luego el boton AGREGAR MORALES III a la derecha del userform.

Este problema tambien sucede cuando quiero modificar el registro.

El cogido para modificar es este:

'Actualizar el registro

Private Sub btn_modificar_Click()

For i = 1 To 24

    ActiveCell.Offset(0, i - 1).Value = Me.Controls("TextBox" & i).Value

Next i

Dim Ruta As String, Nombre As String, Version As String

Application.StatusBar = "Guardando BACKUP..."

Ruta = "C:\Users\RON\Documents\listados"

Nombre = Left(ActiveWorkbook.Name, 12) + " " + Format(Now, "yyyy.mm.dd hh.mm") & " bp.xlsm"

'Ruta = ActiveWorkbook.Path

'Nombre = Left(ActiveWorkbook.Name, 13) & "_BP.xlsm"

ActiveWorkbook.SaveCopyAs Filename:=Ruta & "\" & Nombre

Application.StatusBar = False

'Application.DisplayAlerts = False

'Application.EnableEvents = False

ActiveWorkbook. Save

Unload Me

End Sub

'

'Cerrar formulario

Private Sub btn_Salir_Click()

Unload Me

End Sub

'Llenar los cuadro de texto con los datos del registro elegido

Private Sub userform_initialize()

EliminarTitulo Me.Caption

Me.Height = Me.Height - 20

For i = 1 To 24

    Me.Controls("TextBox" & i).Value = ActiveCell.Offset(0, i - 1).Value

Next i

End Sub

El userform se llama: frmmodi

Aqui sucede lo mismo, modifico un registro y la formula desaparece.

Te envie el archivo con usuario y contraseña por correo