Pytanie : otoczenie błąd -19785

Hej all

I mieć jeden MAC użytkownik który hej być doświadczenie Sync błąd od EWS.

Her profil wydawać się praca prawidłowo wyrównywać z the błąd w the błąd log.

Error pokazywać wyrównywać: Błąd -19785

We biegać Śnieżny Lampart/Otoczenie EWS 13.0.5.

Have sprawdzać jej Wymieniać konto/porównywać ono nasz inny Otoczenie użytkownik i jej wydawać się na miejscu. Ten błąd w górę the ściana.

Anyhelp być appreciated.

Thanks

Odpowiedź : otoczenie błąd -19785

Biegać the dołączać kod. (I robić ono, w ten sposób, bardzo skuteczny!)

I mieć nadzieję ty mieć dane tylko w Kolumna 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:

Ćmić i Jako Integer
i = Pasmo ("A1"). Końcówka (xlDown). Rząd

Application.ScreenUpdating = Fałszywy

    Pasmo ("D1"). Wybiórka
    ActiveCell.FormulaR1C1 = "Ilość"
    Pasmo ("D2"). Wybiórka
    ActiveCell.FormulaR1C1 = _
        "=SUMPRODUCT ((RC [- 3] =R2C1: R" & i & "C1) * (RC [- 2] =R2C2: R" & i & "C2), R2C3: R" & i & "C3)"
    Pasmo ("D2"). Wybiórka
    Selection.Copy
    Pasmo (Wybór, Selection.End (xlDown)). Wybiórka
    ActiveSheet.Paste
    Application.CutCopyMode = Fałszywy
    Selection.Copy
    Pasmo ("D2"). Wybiórka
    Selection.PasteSpecial Pasta: =xlPasteValues, Operacja: =xlNone, SkipBlanks _
        : =False, Przestawiać: =False
    Pasmo ("C2"). Wybiórka
    Application.CutCopyMode = Fałszywy
    Selection.EntireColumn.Delete
    Pasmo ("A1"). Wybiórka
    Pasmo ("A1: C" & i) .AdvancedFilter Akcja: =xlFilterCopy, CopyToRange: =Range (_
        "D1"), Unikalny: =True
    Pasmo ("A1: C1"). Wybiórka
    Selection.EntireColumn.Delete
    Pasmo ("A1"). Wybiórka

Application.ScreenUpdating = Prawdziwy

Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us