DrDrainage
New Member
- Joined
- Apr 17, 2019
- Messages
- 1
Thanks in advance for the help.
The calculation sheet has several API keys that determine distances between multiple start points compared to one end point. The data dump sheet list all my end points that I want to know the optimum distance. Instead of manually going line by line, I would like to automate this as much as possible.
Below is what I recorded. What I need help on is modifying my current script. I want to keep the columns the same for the initial copying, pasting into the same 3 cells on Calculation, and copying the same 2 cells on Calculation. Then pasting the 2 cells in column K & L on Data Dump for the same row the initial copying values came from. Then go down one more row, repeat the process, until the last row.
Sub Test()
'
' Test Macro
'
'
Range("G2:I2").Select
Selection.Copy
Sheets("Calculation").Select
Range("E5").Select
ActiveSheet.Paste
Range("H5:I5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Data Dump").Select
Range("K2" ).Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
The calculation sheet has several API keys that determine distances between multiple start points compared to one end point. The data dump sheet list all my end points that I want to know the optimum distance. Instead of manually going line by line, I would like to automate this as much as possible.
Below is what I recorded. What I need help on is modifying my current script. I want to keep the columns the same for the initial copying, pasting into the same 3 cells on Calculation, and copying the same 2 cells on Calculation. Then pasting the 2 cells in column K & L on Data Dump for the same row the initial copying values came from. Then go down one more row, repeat the process, until the last row.
Sub Test()
'
' Test Macro
'
'
Range("G2:I2").Select
Selection.Copy
Sheets("Calculation").Select
Range("E5").Select
ActiveSheet.Paste
Range("H5:I5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Data Dump").Select
Range("K2" ).Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub