Crear una consolidación de datos en VBA - Create a Data Consolidation in VBA

[A.Maurizio]

Hola a todos, mi nombre es A.Maurizio
Y mi problema es este:
Estoy tratando de crear una Consolidación de datos en VBA
¡Intenté escribir este código pero veo que no funciona!
¿Puedes decirme por qué?
¡Gracias saludos sinceros a todos y feliz año nuevo!

 

Traslation :
------------------------------------------------------------------------------------------------------

Hello everyone My name is A.Maurizio
And my problem is this:
I'm trying to create a Consolidation of data in VBA
I tried to write this code but I see it does not work!
Can you tell me why?
Thanks Sincere greetings to All and Happy New Year!

Consolida_Dati_By_A_Maurizio.zip

[Leopoldo Blancas]

Hola @A.Maurizio,

También tienes que pasar el dato de Filiale di Bussinasco y de Filiale di Vicenza en una primer columna que se agregue para identificar los registros de quien son?

Saludos.

[Leopoldo Blancas]

Pues revisando tu Macro solo tiene un detalle....

myPath = Application.Path & "\RiepilogoSerena\"

Cambia por:

myPath = ActiveWorkbook.Path & "\RiepilogoSerena\"

y Funciona.

Te mando mi propuesta, ya que puede haber mas archivos a consolidar.

Option Base 1
Public aArray(100), cPath$, nArchivos&
Sub Cargar_Archivos()
Dim fs, carpeta, Archivo, subcarpeta As Object, n&, m&
    Set fs = CreateObject("Scripting.FileSystemObject")
    cPath = ActiveWorkbook.Path & "\RiepilogoSerena\"
    Set carpeta = fs.GetFolder(cPath)
    n = 1
    For Each Archivo In carpeta.Files
        aArray(n) = Archivo.Name
        n = n + 1
    Next
    nArchivos = n - 1
    Call Consolidar_LBV
End Sub
Sub Consolidar_LBV()
Dim Origen, Destino, uf&, ufd&
	Application.ScreenUpdating = False
    Set Destino = Workbooks("Consolida_Dati_By_Maury.xlsm").Sheets("Foglio1")
    For n = 1 To nArchivos
        Workbooks.Open cPath & aArray(n)
        Set Origen = Workbooks(aArray(n)).Sheets("Foglio1")
        uf = Origen.Range("A" & Rows.Count).End(xlUp).Row
        ufd = Destino.Range("A" & Rows.Count).End(xlUp).Row + IIf(n = 1, 0, 2)
        Origen.Range("A1:l" & uf).Copy Destino.Range("A" & ufd)
        Workbooks(aArray(n)).Close
    Next n
	Application.ScreenUpdating = True
End Sub

Saludos.

[Leopoldo Blancas]

Dos Tip... que me han ayuda mucho...  como la del Editor de VBA...

Ver->Ventana Inmediato y escribes es esa Ventana Print myPath y das ENTER. Y te aparece el Resultado de "INMEDIATO"...

Después de :  

cPath = ActiveWorkbook.Path & "\RiepilogoSerena\"

Con:

MsgBox cPath

Sabes si es correcta la ruta deseada.

Y de esa manera vas avanzando...

Saludos.

[A.Maurizio]

Gracias leopoldo blancas
Eres grande !!!!!
Sin ti nunca hubiera llegado hasta allí.
¿Ahora lo estudio bien para ver en qué me equivoqué?
Pero también es agradable la última sugerencia que me enviaste para ver la ruta correcta del archivo.
Gracias gracias gracias
Aquí siempre tienes la oportunidad de aprender mucho.
Feliz año nuevo para ti y tu familia; Y a todos los miembros del Foro.
Un saludo Sinceri de A.Maurizio

 

Traslation :
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Thanks Leopoldo Blancas
You are great !!!!!
Without you I would never have arrived there
Now I study it well to see where I was wrong?
But it is also nice the last suggestion you sent me to view the correct file path.
Thanks thanks thanks !!!!!
Here you always have the chance to learn a lot.
Happy New Year to you and your family; And to all the members of the Forum.
Greetings Sinceri from A.Maurizio

[Leopoldo Blancas]

De nada... por aquí andamos...

[Gerson Pineda]

Hace 21 horas, Leopoldo Blancas dijo:

Sabes si es correcta la ruta deseada.

¿Pero a que te refieres?, la ruta, será siempre correcta

 

Saludos

[Leopoldo Blancas]

Hace 22 horas, Leopoldo Blancas dijo:

Pues revisando tu Macro solo tiene un detalle....

myPath = Application.Path & "\RiepilogoSerena\"

Cambia por:

myPath = ActiveWorkbook.Path & "\RiepilogoSerena\"

y Funciona.

 

 

Hola @Gerson Pineda,

Me refiero a que como vez en el código original de nuestro amigo @A.Maurizio esta Application.Path y es por eso que no funcionaba su código, ya que el que el deseaba era el que te da ActiveWorkBook.Path y una forma de corroborar si se trata de la ruta deseada es con MsgBox o Ventana Inmediato. 

o es igual Application.Path y ActiveWorkBook.Path ???

Saludos.

[Gerson Pineda]

Ahora me queda claro, es que pensé, que tu estabas dudando, de VBA, sobre la obtención de la ruta

 

Saludos! 

[Leopoldo Blancas]

Hace 6 minutos , Gerson Pineda dijo:

Ahora me queda claro, es que pensé, que tu estabas dudando, de VBA, sobre la obtención de la ruta

No, yo nunca dudo de VBA, se que "él" sabe mas que yo...

Saludos.