Excel - apoyo para mejorar esta macro!

   
Vista:

apoyo para mejorar esta macro!

Publicado por JOSE LUIS (1 intervención) el 05/06/2014 00:31:09
tengo la siguiente macro, lo que dese hacer es lo siguiente:
que el valor del archivo para abrir lo tome de una celda, y asi cuando cambie el valor del 112 a 113, y al ejecutar la macro con un click a un boton.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Selection.Copy
    Application.CutCopyMode = False
    Workbooks.Open Filename:= _
        "\\Qbserver\operación\2014\REPORTES DIARIOS 2014\SAL 2014\RD-14-001-1000\RD-14-SAL-112.xlsx" _
        , UpdateLinks:=0
    Range("P3:R3").Select
    Selection.Copy
    Windows("libro1.xlsx").Activate
    Sheets("Hoja4").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("RD-14-SAL-112.xlsx").Activate
    Range("A11:E34").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("libro1.xlsx").Activate
    Range("B2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("RD-14-SAL-112.xlsx").Activate
    ActiveWindow.SmallScroll Down:=-15
    Range("K11:R34").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("libro1.xlsx").Activate
    Range("f2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("RD-14-SAL-112.xlsx").Activate
    ActiveWorkbook.Close
    Sheets("hoja4").Select
    Range("B1").Select

de antemano gracias por su apoyo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder