Jump to content

Extraer datos Reporte de Consolidados


SALAVERRINO

Recommended Posts

Buenos días a los miembros de este prestigioso foro, en esta ocasión quisiera pedir su apoyo en como mejorar la macro, en cuanto a la dirección donde se ejecuta dicha macro, cuando presiono el botón de formulario Union Plla 601, por defecto me lleva a una carpeta diferente a la cual estoy trabajando ejemplo: > Este equipo > Documentos, y quisiera que cuando ejecuta la rutina del botón de formulario Union Plla 601, me muestre los datos en la carpeta que estoy trabajando.

 

Sub abrir()
Application.ScreenUpdating = False
file = Application.GetOpenFilename
If file = False Then
Exit Sub
Else
Workbooks.OpenText Filename:=file
End If

a = ActiveWorkbook.Name
    UserForm1.Show
    Range("B8:AO17").Copy
    'Range("B8:AO" & Range("B" & Rows. Count).End(xlup). Row). Copy 'permite copiar consolidados globales.
    
Windows("PLANTILLA ELECTRONICA.xlsm").Activate
    
    n = Range("b8").Value
    
    If n <> Empty Then
        Range("b8").End(xlDown).Offset(1, 0).Select
    Else
        Range("b8").Select
    End If

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    'Range("B3").Select
    Range("B1").Select
    Windows(a).Activate
    Application.CutCopyMode = False
    ActiveWindow.Close savechanges:=False
Application.ScreenUpdating = True
Copiando
End Sub

Agradezco desde ya su gentil ayuda y colaboración.

Link to post
Share on other sites

Buenos días Dr Hyde, el archivo adjuntado esta OK y copie la rutina a mi archivo donde deseo trabajar, pero solo quedo un pequeño detalle por culminar, la dirección que menciona en msg box, como dijo esta OK, pero porque no se mantiene en esa misma dirección, para así poder trabajar con los archivos que se encuentran en esa carpeta (dirección).

Agradezco tu paciencia y ayuda Dr Hyde.

Link to post
Share on other sites

Archived

This topic is now archived and is closed to further replies.

Guest
This topic is now closed to further replies.


  • Posts

    • BUEN DIA MI ESTIMADO @AlexanderS molestandote de nuevo, queria saber si me puedes ayudar con este archivo: tengo un archivo "01 PCP.xlsx - v02 - copia" el cual entre otras hojas contiene tres principalmente, y son: "Proy.-Comer"      -       "BD_Recetas"      -      "Mat_Stock" En la hoja "Proy.-Comer" tenemos en color naranja las semanas del año, y en color amarillo los productos, y en plomo las cantidades (que se digitan manualmente). ***Lo que necesito es que en la hoja "BD_Recetas" , a partir de la celda "M65"  Sume la cantidad correspondiente a la semana según el producto de la columna en color amarillo "L10:L193" Y sus cantidades (celdas de color plomo), y luego lo multiplique por la cantidad según corresponda de la columna "H65" y que si la celda de la columna H dice caja que lo deje en "0", y asi sucesivamente para las demás semanas  (se puede apreciar en la formula).*** En la Hoja  "Mat_Stock",  a partir de la celda "I7" ***Quiero sumar por semana la cantidad del material a utilizar, en la columna A que esta en amarillo los códigos y tiene que sumar por semana según el código de la hoja "BD_Recetas" en la columna "F" de color naranja (Se puede ver también en la formula de las celdas)***   esto es para tratar de automatizar lcon una macro el archivo de calculo de materiales por semana.   DE ANTEMANO MUCHAS GRACIAS POR LA AYUDA. 01 PCP.xlsx - v02 (1).xlsm
    • Luis Caballero, muchas gracias funciona muy bien mil gracias
    • Hola! Necesito hacer una columna donde cada celda sea un combobox, y que aparezca la opción de autocompletar. Encontré algo similar en este post:  Sin embargo, la macro que comentan no me está funcionando. Me aparece el error 1004: "No se puede activar la aplicación de origen de este objeto." Alguien podría ayudarme? Gracias!
    • La verdad es que con ese enlace no me entero de lo que hay que hacer. Gracias
    • ikani siento molestarte, me diste este código para que si modificaba la columna "a" se rellenaran la celda E, pero como no tengo ni idea he cambiado la tabla y ahora necesito que cuando la columna "C16" se modifique se incluya en la columna "b16" la fecha y así es las siguientes celdas.
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy