Journée de travail de la Fonction pour ajouter des jours de travail

Je suis en train d'exécuter du code basé sur des dates dans la D de la colonne. Le code ci-dessous fonctionne. Mais le "si" une partie de la mise en forme conditionnelle doit être de + 30 jours de travail, pas plus de trente jours. Je suis en supposant que la JOURNÉE de travail en fonction d'aide avec cela. Mais quand j'essaie de + journée de travail(30) et des choses comme ça, je ne suis pas d'aller n'importe où.

For Each oKey In oDictionary.keys
    Editing_Sheet.Range("A1").CurrentRegion.AutoFilter Field:=1,    Criteria1:=CStr(oKey)
    LastRowFiltered = Editing_Sheet.Cells(Rows.Count, "A").End(xlUp).Row
        If Range("D" & LastRowFiltered) <= Date + 30 Then
         'run code'
  • Aussi mon VBA n'est pas de reconnaître quoi que ce soit avec la journée de travail en fonction
InformationsquelleAutor New2VBA | 2015-02-26