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.
de antemano gracias por su apoyo
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.CopyApplication.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.CopyWindows("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.CopyWindows("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.CopyWindows("libro1.xlsx").Activate
Range("f2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("RD-14-SAL-112.xlsx").Activate
ActiveWorkbook.CloseSheets("hoja4").Select
Range("B1").Select
de antemano gracias por su apoyo
Valora esta pregunta
0