Jump to content

SALAVERRINO

Members
  • Content Count

    296
  • Joined

  • Last visited

Everything posted by SALAVERRINO

  1. Buenos días @Luis paz, gracias por el aporte brindado, el cual se soluciono, la primera opción de no aparecer la carpeta para guardar los PDF, sin embargo cuando comienza a imprimir los PDF de 1 en 1, se genera 1 solo archivo, pero solo esta guardando el ultimo registro asignado con el numero 98, pero los primeros registros no se muestran. Saludos y espero comentarios. 99 Boletas.pdf
  2. Buenas días a los integrantes de esté prestigioso Foro, en esta ocasión recurro a Uds para que me brinde su apoyo al guardar los archivos PDF, la siguiente macro lo encontré en un vídeo de youtube de ExceleInfo, el cual lo adapte a mi requerimiento, pero tengo algunos inconvenientes: Macro original: Option Explicit Sub ElegirAccion() Dim Elegir As Variant Dim i As Integer Dim miArchivo As String Dim a As String Dim Ruta As String Dim intInicial As Integer Dim intFinal As Integer Dim intConsecutivo As Integer Dim srtTitulo As String srtTitulo = "EXCELeINFO" intConsecutivo = ThisWorkbook.Sheets("Datos").Range("CONSECUTIVO").Value Elegir = InputBox("Elige la acción a ejecutar:" & vbNewLine & "1 = Imprimir" & _ vbNewLine & "2 = Guardar en PDF", srtTitulo) If Elegir <> 1 And Elegir <> 2 Then MsgBox "Debe elegir una opción correcta.", vbExclamation, srtTitulo ElseIf Elegir = 1 Then intInicial = InputBox("Introduce el ID inicial", srtTitulo) intFinal = InputBox("Introduce el ID final", srtTitulo) If intFinal < intInicial Or intFinal > intConsecutivo Then MsgBox "Valida el ID final.", vbExclamation, srtTitulo Else For i = intInicial To intFinal ThisWorkbook.Sheets("Imprimir").Range("F4").Value = i MsgBox "Imprimiendo ID '" & i & "'. Presione Aceptar para continuar...", vbInformation, srtTitulo 'ThisWorkbook.ActiveSheet.PrintOut Copies:=1 Next i End If ElseIf Elegir = 2 Then intInicial = InputBox("Introduce el ID inicial", srtTitulo) intFinal = InputBox("Introduce el ID final", srtTitulo) If intFinal < intInicial Or intFinal > intConsecutivo Then MsgBox "Valida el ID final.", vbExclamation, srtTitulo Else 'Propiedad FileDialog With Application.FileDialog(msoFileDialogFolderPicker) .InitialFileName = ActiveWorkbook.Path & " \ " .Title = "EXCELeINFO - Seleccionar carpeta" .Show If .SelectedItems.Count = 0 Then Else Ruta = .SelectedItems(1) For i = intInicial To intFinal ThisWorkbook.Sheets("Imprimir").Range("F4").Value = i MsgBox "Guardando en PDF ID '" & i & "'. Presione Aceptar para continuar...", _ vbInformation, srtTitulo ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ Ruta & "\" & i & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False Next i End If End With End If End If End Sub Macro modificada: Option Explicit Sub ElegirAccion() Dim i As Integer Dim intInicial As Integer Dim intFinal As Integer Dim intConsecutivo As Integer Dim srtTitulo As String Dim Ruta As String srtTitulo = "PRUEBITA" intConsecutivo = ThisWorkbook.Sheets("BOLETA PDF").Range("CONSECUTIVO").Value intInicial = Sheets("BOLETA PDF").Range("N4") intFinal = Sheets("BOLETA PDF").Range("M3") If intFinal < intInicial Or intFinal > intConsecutivo Then MsgBox "Valida el ID final.", vbExclamation, srtTitulo Else With Application.FileDialog(msoFileDialogFolderPicker) .InitialFileName = ActiveWorkbook.Path & " \ " .Title = "EXCELeINFO - Seleccionar carpeta" .Show If .SelectedItems.Count = 0 Then Else Ruta = .SelectedItems(1) For i = intInicial To intFinal ThisWorkbook.Sheets("BOLETA PDF").Range("B5").Value = i ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Ruta & "\" & i & " " & Sheets("BOLETA PDF").Range("I6") & ".pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False Next i End If End With End If End Sub *Al estas en la pestaña BOLETAS PDF y al presionar el botón IMPRIMIR PDF me muestra la carpeta donde se guardara los datos pdf, y lo que quiera es que guarde los pdf sin necesidad que mencione y muestre la carpeta a guardar. *Luego que se muestra la dirección a guardar los pdf, empiezan a generarse 1 x 1 cada ID (en esta ocasión son 98 registros de los cuales pueden ser más o menos) y lo que requiero es que se guarde en 1 solo archivos los 98 registros. *También si fuera posible mediante otra macro, en lugar de ir guardando por el ID los 98 registros sea con nombres y apellidos, que se ubican en la celda O4 (opcional). Adjunto link del archivo: https://drive.google.com/file/d/1ABlsmnrhXwBjLeLwYuTSi0_b1N_qWrqD/view?usp=sharing Desde ya agradezco tu apoyo. Saludos.
  3. Buenos días @avalencia @Gerson Pineda, por los aportes blindados y efectivamente es mucho mas factibles descargar el pdf y de ahi convertirlo a excel con diversos convertidores pdf, por lo que agradezco la atención y daría como TEMA SOLUCIONADO.
  4. Buenos días a los integrantes de este prestigioso foro, en ocasión recurro a Uds, para solicitar su aporte en una macro que permita convertir o extraer los datos del archivo pdf que se encuentran resaltados de color azul al excel bajo la estructura del confeccionado del mismo archivo que serán ubicados desde la celda B2. Desde ya agradezco su apoyo y colaboración. ARCHIVO PDF A EXCEL.xlsx IE_enero-2020.pdf
  5. Buenas noches a los integrantes @Snake @johnmpl @GabrielRaigosa por sus excelente aportes los cuales me ayudaron mucho en como unificar 2 fórmulas en 1 y a través de ese criterio las adapte a otras fórmulas, por lo que les agradezco su apoyo y colaboración, por lo que daría como TEMA SOLUCIONADO. Bendiciones.
  6. Buenas tardes a los integrantes del foro, en esta ocasión recurro a uds, para que brinde su apoyo en como unificar la formula siguiente 1º formula: REDONDEAR(SI(Y(A3<>"WEJ1";A3<>"WEJ2";A3<>"WEJ3");0;SI(B3>1000;C3*15%;0));2), 2º formula: REDONDEAR(SI(Y(A3<>"MEJ1";A3<>"MEJ2";A3<>"MEJ3");0;SI(B3>1000;C3*8%;0));2) ya que actualmente la trabajo 2 celdas y luego sumo ambos resultados, como se aprecia en el siguiente archivo que adjunto, desde ya agradezco su apoyo y colaboración. Saludos. UNIFICAR FORMULA.xlsx
  7. Buenos días @DiegoPC y @johnmpl por sus aportes brindados, el cual me ayudo mucho a mejorar el programa que actualmente vengo trabajando para el caso de los feriados. Saludos y benciones, por lo que daria como TEMA SOLUCIONADO.
  8. Buenas tardes @DiegoPC, casualmente eso es lo hago, pero la idea ver si hay alguna fórmula que pudiera hacerlo. Gracias.
  9. Buenos dias a los integrantes de este prestigioso foro, en esta ocasión recurro a uds., para que me brinde su apoyo en cómo realizar el cambio automático del valor año de una determina fecha y que el cambio sea sobre la misma celda, es decir si tengo un valor en la celda B2 (01-01-18) se convierta automáticamente en (01-01-19) y así sucesivamente como se aprecia el resultado en la celda C2 y D2 para el próximo año, ya que por el momento tengo que estar reemplazando el valor del año, adjunto archivo para mejor detalle y esto es con el fin de realizar el cálculo de feriados. Desde ya agradezco su atención por el apoyo. AYUDA CON FORMULA FECHA.xlsx
  10. Buenas tardes @isidrod los aportes me ayudaron mucho, por lo que daria TEMA SOLUCIONADO
  11. Hola @johnmpl gracias por el aporte, por lo quedaría como TEMA SOLUCIONADO. Gracias.
  12. Buenas tardes a los integrantes de este prestigioso foro, en esta ocasion recurro a Uds, para que me ayuden con una formula, el cual me permita quitar el ultimo decimal como se aprecia en la celda D4 para asi obtener resultado final que se encuentra en la celda D4. Desde ya agradezco su apoyo y colaboracion, adjunto archivo Saludos redondeos.xlsx
  13. Buenos días a los integrantes de este foro, en esta ocasión requiero de su apoyo con una macro el cual me permita importar datos de un archivo (BASE DE DATOS a otro archivo IMPORTA, sin que el archivo origen se abra, desde la fila A2, he encontrado varios ejemplos pero todos indican de un ruta especifica, para mi caso la ruta del archivo es variable, ya que los archivos están siempre ubicados en unidades distintas. Desde ya agradezco su apoyo y colaboración. BASE DE DATOS.xlsx IMPORTA.xlsx
  14. Buenos días a los integrantes de este foro, en esta ocasión recurro a uds, para que brinde su apoyo en como mejorar la siguiente macro, lo que requiero es que me permita seleccionar la ruta donde se encuentra el archivo a utilizar, ya que esta macro ejecuta todos los archivos que se encuentran en dicha carpeta (previamente haber copiado todos los archivos a una carpeta determinada) y lo otro sería que si solo mostrara los archivos que empiecen con el nombre CONSOLIDADO xxxxxxxx.xlsm o CONSOLIDADO xxxxxxxx.xlsx, para lo cual adjunto archivos como ejemplos. archivo principal: MUESTRA FORMULARIO.xlsm Private Sub CommandButton2_Click() Dim ruta As String Dim fichero As String Dim wbOrigen As Workbook Dim uFO, uFD, uFF As Long Application.ScreenUpdating = False Application.DisplayAlerts = False Application.AskToUpdateLinks = False Set wbOrigen = ThisWorkbook ruta = ThisWorkbook.Path & "\" For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then fichero = ruta & ListBox1.List(i) Workbooks.Open (fichero) Sheets("PLANILLA").Activate uFO = Range("A" & Rows.Count).End(xlUp).Row uFD = wbOrigen.Sheets("PLANILLA").Range("C" & Rows.Count).End(xlUp).Row + 1 Range("B8:BE" & uFO).Copy wbOrigen.Sheets("PLANILLA").Range("B" & uFD) ActiveWorkbook.Close (False) End If Next i Range("B8:BE8").Borders.LineStyle = xlContinuous Application.ScreenUpdating = True Application.DisplayAlerts = True Application.AskToUpdateLinks = True MsgBox "PROCESO TERMINADO" End Sub Dede ya agradezco su apoyo y coloración. MUESTRA FORMULARIO.xlsm CONSOLIDADO CORDILLERA 24-7-2019 11-20-10 HRS.xlsx CONSOLIDADO ELITE FAITH 24-7-2019 16-45-53 HRS.xlsx
×
×
  • Create New...

Important Information

Privacy Policy