Вопрос : ошибка -19785 антуража

Hey all

I имеет одного потребителя макинтоша то были ошибки Sync опыта с модернизировать ее к профилю EWS.

Her кажется работает правильно даже при ошибки показывая в ошибке log.

Error показывает вверх как: Ошибка -19785

We бежит леопард снежка/антураж, котор EWS 13.0.5.

Have проверило ее учет обменом/сравнило его к нашим другим потребителям антуража и все кажется, что находит в месте. Эта ошибка начиная управлять мной вверх по стене.

Anyhelp было бы appreciated.

Thanks
class=

Ответ : ошибка -19785 антуража

Побегите прикрепленное Кодий. (Я делал его путем записывать, так, очень эффективный!)

Я надеюсь вы имеет данные только в колонках 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:

Затемните I как интежер iий = ряд («A1»). Конец (xlDown). Рядок Application.ScreenUpdating = ложно Ряд («D1»). Отборно ActiveCell.FormulaR1C1 = «количество» Ряд («D2»). Отборно ActiveCell.FormulaR1C1 = _ «=SUMPRODUCT ((RC [- 3] =R2C1: R» & I & «C1) * (RC [- 2] =R2C2: R» & I & «C2), R2C3: R» & I & «C3)» Ряд («D2»). Отборно Selection.Copy Ряд (выбор, Selection.End (xlDown)). Отборно ActiveSheet.Paste Application.CutCopyMode = ложно Selection.Copy Ряд («D2»). Отборно Затир Selection.PasteSpecial: =xlPasteValues, деятельность: =xlNone, _ SkipBlanks : =False, транспонирует: =False Ряд («C2»). Отборно Application.CutCopyMode = ложно Selection.EntireColumn.Delete Ряд («A1»). Отборно Ряд («A1: Действие c» & I) .AdvancedFilter: =xlFilterCopy, CopyToRange: =Range (_ «D1»), уникально: =True Ряд («A1: C1»). Отборно Selection.EntireColumn.Delete Ряд («A1»). Отборно Application.ScreenUpdating = True Подводная лодка конца