Saltar al contenido
manoleteup

Ejecutacion On Error GoTo SIERROR

Recommended Posts

Al llegar a la hoja 5 de un DOC, salta al error On Error GoTo SIERROR que tiene un MsgBox "REVISE LOS DATOS DE ENTRADA, SE PRODUJO UN ERROR".
Lo raro es que tengo el mismo codigo para dos archivos mas con la misma estructura y no me saltan al error.

Dejo el codigo:

Sub CARGA_JPS1()
    'Funciones de Macro No Visibles
    Application.ScreenUpdating = False

    'Variables
    Dim RUTA_JPS As String
    Dim WS_Count As Integer
    Dim I As Integer

    'Limpia Informacion en +REPO_JPS
    Sheets("+REPO_JPS").Select
    Rows("4:4").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp

    'Ubicacion del Archivo'
    Sheets("CONTROL").Select
    RUTA_JPS = Range("H13").Value
 
    On Error GoTo SIERROR

    'Abre Archivo en RUTA'
    Workbooks.Open RUTA_JPS

    Windows("INFOVENT_CARGA_JPS_2018.xlsx").Activate

    'Cuenta Cantidad de Hojas En Libro
    WS_Count = ActiveWorkbook.Worksheets.Count

    For I = 1 To WS_Count
                
        Windows("INFOVENT_CARGA_JPS_2018.xlsx").Activate
        'Se pociciona en la Hoja Correspondiente
       'Cuando llega a la hoja 5 se cae justo aqui...
       ActiveWorkbook.Worksheets(I).Select

        If Application.WorksheetFunction.Sum(Range("E2:AB1000")) = 0 Then
            'Cierra el archivo y lo guarda
            Workbooks("INFOVENT_CARGA_JPS_2018.xlsx").Close SAVECHANGES:=False

            'Vuelve al Doc INFOVENT_AUTOMATICO_3
            Windows("INFOVENT_AUTOMATICO_3.xlsm").Activate

            MsgBox "CARGA DE DATOS FACTURACION JPS, TERMINADA"
            GoTo SALIR
        Else

            Windows("INFOVENT_CARGA_JPS_2018.xlsx").Activate
            'Se pociciona en la Hoja Correspondiente
            ActiveWorkbook.Worksheets(I).Select

            'Copia Base Completa del la Hoja
            Rows("1:1").Select
            Selection.Find(What:="(FIN)", After:=ActiveCell, LookIn:=xlFormulas, _
                LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                MatchCase:=False, SearchFormat:=False).Activate
            Selection.FindNext(After:=ActiveCell).Select
            ActiveCell.Offset(1, 0).Select
            Range(Selection, Selection.End(xlToLeft)).Select
            Range(Selection, Selection.End(xlDown)).Select
            Selection.Copy
            
            'Vuelve al Doc INFOVENT_AUTOMATICO_3
            Windows("INFOVENT_AUTOMATICO_3.xlsm").Activate
            'Pega Base Completa de la hoja
            Sheets("+REPO_JPS").Select
            Range("B1").Select
            Selection.End(xlDown).Select
            ActiveCell.Offset(1, 0).Activate
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
                SkipBlanks:=False, Transpose:=False
            Application.CutCopyMode = False
        End If
    Next I

SALIR:
    'Ordena Columnas Para Base
    Sheets("+REPO_JPS").Select
    Columns("J:J").Select
    Selection.Cut
    Columns("F:F").Select
    Selection.Insert Shift:=xlToRight
    Columns("K:K").Select
    Selection.Cut
    Columns("H:H").Select
    Selection.Insert Shift:=xlToRight
    
    'Copia Encabezado
    Sheets("+REPO_ECB").Select
    Rows("1:1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("+REPO_JPS").Select
    Rows("1:1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False

    Sheets("+REPO_JPS").Select
    Range("c1").Select
    Selection.End(xlDown).Select
    Selection.Copy

    Sheets("CONTROL").Select
    Range("e13").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False

    Sheets("CONTROL").Select
    Call VALIDA_sii_JPS
    
Exit Sub
    Sheets("+REPO_JPS").Select
SIERROR:
    MsgBox "REVISE LOS DATOS DE ENTRADA, SE PRODUJO UN ERROR"
End Sub

 

Compartir este mensaje


Enlace a mensaje
Compartir con otras webs
Hace 3 horas, Antoni dijo:

Quita On Error GoTo SIERROR y verás en que punto del código se te produce el error.

Este es el error que me aparece cuando ejecuta esto:

If Application.WorksheetFunction.Sum(Range("E2:AB1000")) = 0 Then

Solo sucede cuando entra a la hoja 5.


image.png.80b45455abe9688a81ea71fde86319f1.png

Compartir este mensaje


Enlace a mensaje
Compartir con otras webs
Invitado
Este tema está cerrado a más respuestas.

×

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.