JSDJSD

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)

Pues sin archivo creo que nadie podrá darte una solución

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.

Pues eso, sigue los consejos del Maestro Héctor Miguel que en esto de vba es uno de los muy grandes, un saludo

Una vez listados todos los archivos de carpetas y su carpetas que quieres hacer ?

Prueba y comenta Consulta.xlsm

Es esto lo que necesitas....

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

A ver a hora

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

Prueba a ver que tal

Pues entonces quedo a la espera

Aquí es donde tienes la modificación con respecto al anterior archivo.

Prueba a ver que tal Disponibilidad v4.0.2.xlsm

https://docs.microsoft.com/es-es/office/vba/language/reference/user-interface-help/specified-dll-function-not-found-error-453

Si pasas información más detallada del funcionamiento de tu archivos quizás se puede hacer algo con macros

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.

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

Sube tu archivo

Por pocooo, un saludo.

Prueba y comentaDisponibilidad v3.9.2.xlsm

Luego cuando llegue a casa te mando el archivo modificado

Prueba y comenta TxtID = Application.WorksheetFunction.Max(Hoja10.Columns(1)) + 1 Disponibilidad v3.9.2.xlsm