Jump to content

JSDJSD

Members
  • Posts

    1,528
  • Joined

  • Last visited

  • Days Won

    122

Everything posted by JSDJSD

  1. Dale un vistazo a esto: Como Convertir uno o varios archivos de PDF a Excel con MACROS // SIN PROGRAMAS GRATIS y CONVERTIDORES - Aprende y Enseña Excel (xn--aprendeyenseaexcel-y0b.com)
  2. Pues sin archivo creo que nadie podrá darte una solución
  3. Solo quería mostrar mi admiración hacia ti, pero si tu lo quieres así pues cambio la palabra Maestro por GRAN ENTUSIASTA DE EXCEL (con mayúsculas), un saludo.
  4. Pues eso, sigue los consejos del Maestro Héctor Miguel que en esto de vba es uno de los muy grandes, un saludo
  5. Una vez listados todos los archivos de carpetas y su carpetas que quieres hacer ?
  6. For cont = 1 To 16361 With Hoja1 letra = Split(Cells(cont).Address, "$")(1) ufh1 = .Range(letra & Columns.Count).End(xlUp).Row If ufh1 > 1 Then letcol = .Range(letra & 1).Column MsgBox letcol Exit For End If End With Next cont
  7. Private Sub CommandButton1_Click() primeracol = Cells(1, 1).End(xlToRight).Column MsgBox "Primera columna con datos en fila 1 es: " _ & "La columna " & "** " & primeracol & " **" End Sub
  8. Aquí es donde tienes la modificación con respecto al anterior archivo.
  9. Prueba a ver que tal Disponibilidad v4.0.2.xlsm
  10. https://docs.microsoft.com/es-es/office/vba/language/reference/user-interface-help/specified-dll-function-not-found-error-453
  11. Si pasas información más detallada del funcionamiento de tu archivos quizás se puede hacer algo con macros
  12. El Maestro Antoni te la la solución, pero me gustaría que me dieras los datos de una de las búsquedas en las que te muestra el mensaje, ya que por más intentos que hago no me ha salido ninguno y así veo el motivo de dicho mensaje.
  13. Private Sub CommandButton1_Click() With Hoja1 For cont = 2 To .Range("A" & Rows.Count).End(xlUp).Row .Cells(cont, 8) = Application.WorksheetFunction.Sum(Range(.Cells(cont, 3), .Cells(cont, 6))) .Cells(cont, 9) = .Cells(cont, 8) / .Cells(cont, 7) Next cont End With End Sub Con esto puedes probar creando un botón y suponiendo que los datos los tienes en la hoja1, de todos modos si puedes subir tu archivo como dice el Maestro Antoni mejor que mejor
  14. Luego cuando llegue a casa te mando el archivo modificado
  15. Prueba y comenta TxtID = Application.WorksheetFunction.Max(Hoja10.Columns(1)) + 1 Disponibilidad v3.9.2.xlsm
×
×
  • Create New...

Important Information

Privacy Policy