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.


×
×
  • Create New...

Important Information

Privacy Policy