Hola:

Me han pasado un libro de excel, Consolidado Mensual, que me carga una macro, esta me copia el rango de los libros existentes en una carpeta determinada.

Ahora este rango ha variado y me piden que se amplíe hasta la columna L, pero no sé como hacerlo.

Os adjunto los ficheros, espero que me podáis echar una mano.

Muchas Gracias

Nefe.rar

HolaNn.... le he echado un vistazo en principio donde pone "e" pon "L" y donde pone ":e" pon ":L"

Fue lo primero que hice, pero no funciona, de hecho la macro corre, pero no muestra ningún dato:numbness:

Tienes razón solo debes cambiar las "L" que aparecen en esta linea de codigo

    Set D = Cells(Rows.Count, "L").End(xlUp)
    If D.Row > 44 Then
      If D.Offset(, 1) <> "" Then Set D = Cells(Rows.Count, "L").End(xlUp)
      Range([a45], D).Copy C
    End If
  End If

  ActiveWorkbook.Close False
  myFile = Dir

Loop

[a:L].Columns.AutoFit   '"<La de esta linea tambien"
Application.ScreenUpdating = True
MsgBox "Proceso terminado."
End Sub
[/PHP]

Esto te añade las columnas que faltan hasta la "L" de la hoja " Tabelle1 de cada archivo SAP al consolidado. El número final de filas a copiar viene dado por la ultima fila con datos de la columna "L". Espero que te sirva.