Jump to content

manoleteup

Members
  • Content Count

    8
  • Joined

  • Last visited

About manoleteup

  • Rank
    Newbie

Converted

  • Campos Array
  1. Hola, tengo una macro que me abre un archivo xlam para poder cargarlo en Excel. Ccomo puedo abrir ese complemento desde la misma macro para que puedan utilizarlo, y al finalizar la funcionalidad del complemento como puedo seguir con otros procesos. Sub PortalPago() 'Funciones de Macro No Visibles Application.ScreenUpdating = False Dim Finfo As String Dim FilterIndex As Long Dim Title As String Dim FileName As Variant 'Configura filtro de Archivos Finfo = "Complemento Excel (*.xlam),*.xlam" FilterIndex = 1 'Establecer el título del cuadro de diálogo Title = "Seleccione un archivo Complemente Excel" 'Obtiene nombre de Archivo FileName = Application.GetOpenFilename(Finfo, FilterIndex, Title) 'Validacion If FileName = False Then MsgBox "No hay Archivos Seleccionados" Call PortalPago Else Workbooks.Open FileName MsgBox "Complemento Cargado Correctamente" Application.Run "'Consolidar Datos (DATA).xlam'!RunRDBMergeForm" End If End Sub
  2. 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.
  3. 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.
  4. Adjunto el archivo donde rescato la data... INFOVENT_CARGA_JPS_2018 - copia.xlsx
  5. 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
  6. amigo si deseas escríbeme directamente a mi corrreo y te envio el archivo.... manoleteup@gmail.com
  7. tienes algún correo para conversar? Sacar Informe CAV Outlook.xlsm
  8. 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
×
×
  • Create New...

Important Information

Privacy Policy