Question : erreur -19785 d'entourage

Hé l'all

I ont un utilisateur d'imper que c'a été des erreurs de synchro d'expérience depuis la promouvoir au profil d'EWS.

Her semble travaille correctement même avec les erreurs montrant dans l'erreur log.

Error révèle comme : L'erreur -19785

We courent le léopard de neige/entourage qu'EWS 13.0.5.

Have a vérifié son compte d'échange/l'a comparé à nos autres utilisateurs d'entourage et tout semble être in place. Cette erreur commençant à me conduire vers le haut du mur. le

Anyhelp serait appreciated.

Thanks
class= de

Réponse : erreur -19785 d'entourage

Courir le code ci-joint. (Je l'ai fait par l'enregistrement, ainsi, pas très efficace !)

J'espère que vous avez des données seulement dans les colonnes A, B, C.

1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 : 14 : 15 : 16 : 17 : 18 : 19 : 20 : 21 : 22 : 23 : 24 : 25 : 26 : 27 : 28 : 29 : 30 : 31 : 32 :

Obscurcir I comme nombre entier i = gamme (« A1 »). Extrémité (xlDown). Rangée Application.ScreenUpdating = faux Gamme (« D1 »). Choisi ActiveCell.FormulaR1C1 = « quantité » Gamme (« D2 »). Choisi ActiveCell.FormulaR1C1 = _ « =SUMPRODUCT ((RC [- 3] =R2C1 : R » et I et « C1) * (RC [- 2] =R2C2 : R » et I et « C2), R2C3 : R » et I et « C3) » Gamme (« D2 »). Choisi Selection.Copy Gamme (choix, Selection.End (xlDown)). Choisi ActiveSheet.Paste Application.CutCopyMode = faux Selection.Copy Gamme (« D2 »). Choisi Pâte de Selection.PasteSpecial : =xlPasteValues, opération : =xlNone, _ de SkipBlanks : Le =False, transposent : =False Gamme (« C2 »). Choisi Application.CutCopyMode = faux Selection.EntireColumn.Delete Gamme (« A1 »). Choisi Gamme (« A1 : Action de C » et d'i).AdvancedFilter : =xlFilterCopy, CopyToRange : =Range (_ « D1 »), unique : =True Gamme (« A1 : C1 »). Choisi Selection.EntireColumn.Delete Gamme (« A1 »). Choisi Application.ScreenUpdating = rectifient Sous-marin d'extrémité