Vraag : gevolg fout -19785

Hey all

I heeft één MACgebruiker dat dat de fouten van ervaringsSync sinds de bevordering van haar aan profiel EWS.

Her schijnt aan de werken correct zelfs met de fouten die is geweest in de fout log.

Error zoals verschijnt tonen: De fout -19785

We stelt de Luipaard van de Sneeuw/Gevolg EWS 13.0.5.

Have controleerde in werking haar die rekening van de Uitwisseling/het vergelijkt bij onze andere gebruikers van het Gevolg en alles schijnt op zijn plaats te zijn. Deze fout die me beginnen op te drijven de muur.

Anyhelp zou appreciated.

Thanks
 zijn

Antwoord : gevolg fout -19785

Stel de code in werking in bijlage. (ik heb het door niet zeer efficiënt te registreren, dat gedaan!)

Ik hoop u gegevens slechts in Kolommen A, B, C. hebt.
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:

Schemerige I als Geheel
i = Waaier („A1“). Eind (xlDown). Rij

Application.ScreenUpdating = Vals

    Waaier („D1“). Selecteer
    ActiveCell.FormulaR1C1 = „Hoeveelheid“
    Waaier („D2“). Selecteer
    ActiveCell.FormulaR1C1 = _
        „=SUMPRODUCT ((RC [- 3] =R2C1: R“ & I & „C1) * (RC [- 2] =R2C2: R“ & I & „C2), R2C3: R“ & I & „C3)“
    Waaier („D2“). Selecteer
    Selection.Copy
    Waaier (Selectie, Selection.End (xlDown)). Selecteer
    ActiveSheet.Paste
    Application.CutCopyMode = Vals
    Selection.Copy
    Waaier („D2“). Selecteer
    Selection.PasteSpecial kleef: =xlPasteValues, Verrichting: =xlNone, SkipBlanks _
        : =False, herschik: =False
    Waaier („C2“). Selecteer
    Application.CutCopyMode = Vals
    Selection.EntireColumn.Delete
    Waaier („A1“). Selecteer
    Strek me uit („A1: C“ & I) Actie .AdvancedFilter: =xlFilterCopy, CopyToRange: =Range (_
        „D1“), Uniek: =True
    Waaier („A1: C1“). Selecteer
    Selection.EntireColumn.Delete
    Waaier („A1“). Selecteer

Application.ScreenUpdating = Waar

Sub van het eind
Andere oplossingen  
 
programming4us programming4us