Copiar datos de una columna a celda fija de otro libro y pegar en columna libro de origen
Publicado por Edson (3 intervenciones) el 25/10/2018 21:15:10
Hola espero me pudieran apoyar para hacer un macro mas sencilla.
Quiero copiar la celda (D2) del libro "Lotes" y pegarla en la celda combinada "C15:F15" del libro "Calculadora" y copiar la celda (E2) del libro "Lotes" y pegarla en la celda combinada "C16:F16" del libro "Calculadora" (esto cambiara las coordenadas UTM a latitud y longitud) posteriormente copiar los resultados de las celdas C20,D20,E20 del libro "Calculadora" y pegarlas en la celdas F2,G2,H2 del libro "lotes" y copiar las celdas C21,D21,E21 del libro "Calculadora y pegarlas en las celdas I2,J2,K2.
Hice una macro pero solo lo realiza para lo que explique anteriormente y me gustaria que continuara con los valores de las columnas D Y E siguientes del libro "Lotes" espero me haya explicado, adjunto una imagen para que sea mas explicito mi descripcion.
MACRO
Quiero copiar la celda (D2) del libro "Lotes" y pegarla en la celda combinada "C15:F15" del libro "Calculadora" y copiar la celda (E2) del libro "Lotes" y pegarla en la celda combinada "C16:F16" del libro "Calculadora" (esto cambiara las coordenadas UTM a latitud y longitud) posteriormente copiar los resultados de las celdas C20,D20,E20 del libro "Calculadora" y pegarlas en la celdas F2,G2,H2 del libro "lotes" y copiar las celdas C21,D21,E21 del libro "Calculadora y pegarlas en las celdas I2,J2,K2.
Hice una macro pero solo lo realiza para lo que explique anteriormente y me gustaria que continuara con los valores de las columnas D Y E siguientes del libro "Lotes" espero me haya explicado, adjunto una imagen para que sea mas explicito mi descripcion.
MACRO
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
34
35
36
Sub Copiar()
'
' Copiar Macro
'
' Acceso directo: CTRL+ñ
'
Windows("Lotes_VMD_Puntos Excel.xlsx").Activate
Range("D2").Select
Application.CutCopyMode = False
Selection.CopyWindows("CalculadoraGO.xls").Activate
Range("C15:F15").Select
ActiveSheet.PasteWindows("Lotes_VMD_Puntos Excel.xlsx").Activate
Range("E2").Select
Application.CutCopyMode = False
Selection.CopyWindows("CalculadoraGO.xls").Activate
Range("C16:F16").Select
ActiveSheet.PasteRange("C20:E20").Select
Application.CutCopyMode = False
Selection.CopyWindows("Lotes_VMD_Puntos Excel.xlsx").Activate
Range("F2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("CalculadoraGO.xls").Activate
Range("C21:E21").Select
Application.CutCopyMode = False
Selection.CopyWindows("Lotes_VMD_Puntos Excel.xlsx").Activate
Range("I2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
- Captura.rar(337,5 KB)
Valora esta pregunta
0