Cuestión : error -19785 de la comitiva

Hey el all

I tiene un usuario del mac que parezca ése ha sido errores de la sinc. de la experiencia desde el aumento de ella al perfil de EWS.

Her trabaje incluso con los errores que demostraban en el error log.

Error aparezca correctamente como: El error -19785

We está funcionando el leopardo de nieve/la comitiva que EWS 13.0.5.

Have comprobó su cuenta del intercambio/que la comparó a nuestros otros usuarios de la comitiva y todo parece ser in place. Este error que comienza a conducirme encima de la pared. el

Anyhelp sería appreciated.

Thanks
 class= del

Respuesta : error -19785 de la comitiva

Funcionar con el código atado. (Lo he hecho registrando, así pues, no muy eficiente!)

Espero que usted tenga datos solamente en las columnas 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:

Amortiguar i como número entero
i = gama (“A1”). Extremo (xlDown). Fila

Application.ScreenUpdating = falso

    Gama (“D1”). Selecto
    ActiveCell.FormulaR1C1 = “cantidad”
    Gama (“D2”). Selecto
    ActiveCell.FormulaR1C1 = _
        “=SUMPRODUCT ((RC [- 3] =R2C1: R” y i y “C1) * (RC [- 2] =R2C2: R” y i y “C2), R2C3: R” y i y “C3)”
    Gama (“D2”). Selecto
    Selection.Copy
    Gama (selección, Selection.End (xlDown)). Selecto
    ActiveSheet.Paste
    Application.CutCopyMode = falso
    Selection.Copy
    Gama (“D2”). Selecto
    Goma de Selection.PasteSpecial: =xlPasteValues, operación: =xlNone, _ de SkipBlanks
        : El =False, transporta: =False
    Gama (“C2”). Selecto
    Application.CutCopyMode = falso
    Selection.EntireColumn.Delete
    Gama (“A1”). Selecto
    Gama (“A1: Acción de C” y de i) .AdvancedFilter: =xlFilterCopy, CopyToRange: =Range (_
        “D1”), único: =True
    Gama (“A1: C1”). Selecto
    Selection.EntireColumn.Delete
    Gama (“A1”). Selecto

Application.ScreenUpdating = verdad

Submarino del extremo
Otras soluciones  
 
programming4us programming4us