UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se puede subir archivos al foro, favor de hacerlo en servidor externo (Dropbox, Drive...) y dejan link. "Sin archivo no hay respuestas"

Favor de leer "Todos los temas" Click aquí.

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1 Macro consolida el 19/07/17, 08:15 pm

newbieM


Buenas tardes,

Tengo un problema espero puedan ayudarme.
Tengo esta macro incompleta, que tiene que abrir los archivos de una carpeta (ZONA_ESTE_SEMANA_1) y pegarlos en un solo archivo, el problema es que tengo que usar el código que me ponen y completar el paso 3, modificando un poco lo anterior y no tengo idea como ya que no le entiendo al código.

¿Podrían ayudarme por favor?


Muchas gracias de antemano!
Archivos
archivos.zip
No tienes los permisos para descargar los archivos.
(34 KB)

2 Re: Macro consolida el 19/07/17, 10:11 pm

Igtelo

avatar

3 Re: Macro consolida el 20/07/17, 01:08 pm

newbieM


Hola Igtelo,
Muchas gracias por los ejemplo.

Me podrías ayudar a cambiar nada mas el paso 2 o explicarme que hace ese código por favor.

Sub Recopilacion()
    Dim Categoria, Sku, Descripcion, Unidades, Costo_unitario, Precio_unitario, Margen_unitario, Costo_total, Venta_total, Margen_total
    Dim i
    Dim WS_origen, WS_destino
    Dim Ruta, Nombre_File
   
    Ruta = "C:\BD_Ventas\"
    Nombre_File = Dir(Ruta)
   
    WS_destino = ActiveWorkbook.Name
   
        Categoria = Range("A6")
        Sku = Range("B6")
        Descripcion = Range("C6")
        Unidades = Range("D6")
        Costo_unitario = Range("E6")
        Precio_unitario = Range("F6")
        Margen_unitario = Range("G6")
        Costo_total = Range("H6")
        Venta_total = Range("I6")
        Margen_total = Range("I6")
       
       
    i = WorksheetFunction.CountA(Columns("A:J"))
   
    While Nombre_File <> ""
        'Paso1: Abro el archivo_origen
        Workbooks.Open Filename:=Ruta & Nombre_File
        WS_origen = ActiveWorkbook.Name
       
        'Paso2: Obtener los datos
   
   Range(Cells(2, "K"), Cells(i, "K")) = Categoria
   Range(Cells(2, "L"), Cells(i, "L")) = Sku
   Range(Cells(2, "L"), Cells(i, "L")) = Descripcion
   Range(Cells(2, "L"), Cells(i, "L")) = Unidades
   
        With Range("A6")
       
            Range(.Offset(0, 0), Selection.End(xlDown)).Select
            Range(.Offset(0, 0), Selection.End(xlToRight)).Select
                    Selection.Copy
        End With
        'Paso3: Pegar los datos
       
        With Range("A2")
            
        End With
        'Paso4: Cerrar el origen
        Windows(WS_origen).Activate
        Application.DisplayAlerts = False
        ActiveWindow.Close
        Application.DisplayAlerts = True
        Nombre_File = Dir
    Wend
   
    MsgBox "Fin de proceso", vbInformation, "Aviso"
End Sub

4 Re: Macro consolida el 20/07/17, 01:29 pm

newbieM


Ya me abre los archivos pero no me pega nada.
Necesito usar ese código porque es lo que vimos en clase Sad

5 Re: Macro consolida el 20/07/17, 02:02 pm

Igtelo

avatar
Hola NewbieM.

Te apoyo con otro enlace de como puedes encontrar la ayuda de VBA.

http://www.universoexcelforo.com/t1461-encontrar-ayuda-en-vba-p-nuestras-macros-videotutorial

Newbie, si estás estudiando, hay que hacerlo sino nunca vas a avanzar, siento adoptar esta postura pero en lugar de ayudarte te perjudicaría.

Por otro lado tienes que corregir tu declaración de variables (DIM), debes definir de que tipo serán, como las tienes todas son de tipo variant...

Saludos
Ignacio Téllez

Contenido patrocinado


Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.