Jump to content

Archived

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

SALAVERRINO

Extraer datos Reporte de Consolidados

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.

Share this post


Link to post
Share on other sites

cambia el principio de la macro que quede asi

ChDir ActiveWorkbook.Path
file = Application.GetOpenFilename

con eso debe mostrar los archivos de la carpeta en donde este el libro de excel que tengas abierto.

Share this post


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.

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




×
×
  • Create New...

Important Information

Privacy Policy