Saltar al contenido

manoleteup

Miembros
  • Contador de contenido

    7
  • Unido

  • Última visita

Sobre manoleteup

  • Rango
    Novato

Configuraciones

  • Campo que utilizas como separador de argumentos ;
  1. manoleteup

    Ejecutacion On Error GoTo SIERROR

    Encontré el error, se debía a que en esta hoja de calculo habían parámetros String (#N/A). Al ejecutar la linea " Application.WorksheetFunction.Sum(Range("E2:AB1000")) ", solo permite valores numéricos. Gracias a todos por el apoyo.
  2. manoleteup

    Ejecutacion On Error GoTo SIERROR

    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.
  3. manoleteup

    Ejecutacion On Error GoTo SIERROR

    Adjunto el archivo donde rescato la data... INFOVENT_CARGA_JPS_2018 - copia.xlsx
  4. manoleteup

    Ejecutacion On Error GoTo SIERROR

    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
  5. manoleteup

    Ayuda Con Un Buscar y Pegar

    amigo si deseas escríbeme directamente a mi corrreo y te envio el archivo.... [email protected]
  6. manoleteup

    Ayuda Con Un Buscar y Pegar

    tienes algún correo para conversar? Sacar Informe CAV Outlook.xlsm
  7. manoleteup

    Ayuda Con Un Buscar y Pegar

    En una planilla tengo una base de datos de certificados diferenciados en VEH y MNP, todos ellos estan asociados a una Placa y a un código de compra. Lo que necesito es separ los VEH en una hoja y los MNP en otra hoja con sus respectivas placas y código dde compra... Para luego poder hacer un cruze de información con más planillas. Pero necesito separar los dos tipos de dcertificsdos es sus planillas que queden copiados en sus respectivas hojas. Favor de. su ayuda
×

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.