Ejecutar macro en función de fecha y condición

Hola de nuevo,

Quería ver si me podíais ayudar con un macro de visual basic. Tengo una hoja de excel donde en una columna A anotamos la fecha de entrada de los pedidos y en otra B le ponemos un "0" mientras el pedido esta en fábrica. El caso es que quiero que se me active una macro de alarma cuando la celda en B sea 0 y hayan pasado más de 8 días desde la fecha de la columna A.

Estuve intentándolo con el siguiente macro pero no tengo mucha idea de lenguaje de macros y me da que algo no estoy haciendo bien ¿podríais ayudarme?

Mil gracias por adelantado

Private Sub Worksheet_Calculate()

Dim FormulaRange As Range

Dim MyLimit As Double

Dim Hoy As Date

Dim Fecha As Date

Fecha = Format(Range("A5:A100"), "dd/mm/yy")

Hoy = Format(Now(), "dd/mm/yy")

F = DateDiff("d", Hoy, Fecha)
Set FormulaRange = Me.Range("B5:B100")

On Error GoTo EndMacro:

For Each FormulaCell In FormulaRange.Cells

With FormulaCell

If FormulaCell.Value = "0" Then

Else

If Abs(F) > 8 Then

Call Mail_with_outlook1

End If

End If

End With

Next FormulaCell
ExitMacro: Exit Sub
EndMacro:

Application.EnableEvents = True
MsgBox "Some Error occurred." _ & vbLf & Err.Number _ & vbLf & Err.Description
End Sub

0

Añade tu respuesta

Haz clic para o