|
Macro - Code Missing
I have the following code to get information copied from one sheet to another
What i would like to happen is the cell i highlight and then press the macro button the information is copied to to that position, and not to keep defaulting to the one shown in the macro Is there a peice of code i need to add to overcome this, any help you can give will be much appreciated Sheets("Pilot Valve Material").Select Range("A2:B53").Select Selection.Copy Sheets("Stock Transactions").Select Range("A1597").Select ActiveSheet.Paste ActiveWindow.SmallScroll Down:=27 Sheets("Pilot Valve Material").Select Range("C2:C53").Select Application.CutCopyMode = False Selection.Copy Sheets("Stock Transactions").Select Range("C1597").Select ActiveSheet.Paste Sheets("Pilot Valve Material").Select Range("D2:E53").Select Application.CutCopyMode = False Selection.Copy Sheets("Stock Transactions").Select Range("D1597").Select ActiveSheet.Paste End Sub |
Macro - Code Missing
Activate sheet 'Stock Transactions' and select the copy location and try the
below macro.. Sub Macro() Sheets("Pilot Valve Material").Range("A2:E53").Copy _ Sheets("Stock Transactions").Range(ActiveCell.Address) End Sub If this post helps click Yes --------------- Jacob Skaria "Shane" wrote: I have the following code to get information copied from one sheet to another What i would like to happen is the cell i highlight and then press the macro button the information is copied to to that position, and not to keep defaulting to the one shown in the macro Is there a peice of code i need to add to overcome this, any help you can give will be much appreciated Sheets("Pilot Valve Material").Select Range("A2:B53").Select Selection.Copy Sheets("Stock Transactions").Select Range("A1597").Select ActiveSheet.Paste ActiveWindow.SmallScroll Down:=27 Sheets("Pilot Valve Material").Select Range("C2:C53").Select Application.CutCopyMode = False Selection.Copy Sheets("Stock Transactions").Select Range("C1597").Select ActiveSheet.Paste Sheets("Pilot Valve Material").Select Range("D2:E53").Select Application.CutCopyMode = False Selection.Copy Sheets("Stock Transactions").Select Range("D1597").Select ActiveSheet.Paste End Sub |
Macro - Code Missing
Jacob - thank you for coming back so quickly
I am so sorry but i don't understand (very new to macro's) where i need to add the sub Macro Could you advise please "Jacob Skaria" wrote: Activate sheet 'Stock Transactions' and select the copy location and try the below macro.. Sub Macro() Sheets("Pilot Valve Material").Range("A2:E53").Copy _ Sheets("Stock Transactions").Range(ActiveCell.Address) End Sub If this post helps click Yes --------------- Jacob Skaria "Shane" wrote: I have the following code to get information copied from one sheet to another What i would like to happen is the cell i highlight and then press the macro button the information is copied to to that position, and not to keep defaulting to the one shown in the macro Is there a peice of code i need to add to overcome this, any help you can give will be much appreciated Sheets("Pilot Valve Material").Select Range("A2:B53").Select Selection.Copy Sheets("Stock Transactions").Select Range("A1597").Select ActiveSheet.Paste ActiveWindow.SmallScroll Down:=27 Sheets("Pilot Valve Material").Select Range("C2:C53").Select Application.CutCopyMode = False Selection.Copy Sheets("Stock Transactions").Select Range("C1597").Select ActiveSheet.Paste Sheets("Pilot Valve Material").Select Range("D2:E53").Select Application.CutCopyMode = False Selection.Copy Sheets("Stock Transactions").Select Range("D1597").Select ActiveSheet.Paste End Sub |
Macro - Code Missing
You can replace your existing macro with the new macro..
If this post helps click Yes --------------- Jacob Skaria "Shane" wrote: Jacob - thank you for coming back so quickly I am so sorry but i don't understand (very new to macro's) where i need to add the sub Macro Could you advise please "Jacob Skaria" wrote: Activate sheet 'Stock Transactions' and select the copy location and try the below macro.. Sub Macro() Sheets("Pilot Valve Material").Range("A2:E53").Copy _ Sheets("Stock Transactions").Range(ActiveCell.Address) End Sub If this post helps click Yes --------------- Jacob Skaria "Shane" wrote: I have the following code to get information copied from one sheet to another What i would like to happen is the cell i highlight and then press the macro button the information is copied to to that position, and not to keep defaulting to the one shown in the macro Is there a peice of code i need to add to overcome this, any help you can give will be much appreciated Sheets("Pilot Valve Material").Select Range("A2:B53").Select Selection.Copy Sheets("Stock Transactions").Select Range("A1597").Select ActiveSheet.Paste ActiveWindow.SmallScroll Down:=27 Sheets("Pilot Valve Material").Select Range("C2:C53").Select Application.CutCopyMode = False Selection.Copy Sheets("Stock Transactions").Select Range("C1597").Select ActiveSheet.Paste Sheets("Pilot Valve Material").Select Range("D2:E53").Select Application.CutCopyMode = False Selection.Copy Sheets("Stock Transactions").Select Range("D1597").Select ActiveSheet.Paste End Sub |
Macro - Code Missing
Thank you Jacob, when i replace the code and then run the macro it adds all
the data into side by side columns when i need it to follow the process i had done including some blank columns to b left ( i add additional info into these that is not always the same) I read somewhere that you need to be recorded "relatively" not sure what this ment "Jacob Skaria" wrote: You can replace your existing macro with the new macro.. If this post helps click Yes --------------- Jacob Skaria "Shane" wrote: Jacob - thank you for coming back so quickly I am so sorry but i don't understand (very new to macro's) where i need to add the sub Macro Could you advise please "Jacob Skaria" wrote: Activate sheet 'Stock Transactions' and select the copy location and try the below macro.. Sub Macro() Sheets("Pilot Valve Material").Range("A2:E53").Copy _ Sheets("Stock Transactions").Range(ActiveCell.Address) End Sub If this post helps click Yes --------------- Jacob Skaria "Shane" wrote: I have the following code to get information copied from one sheet to another What i would like to happen is the cell i highlight and then press the macro button the information is copied to to that position, and not to keep defaulting to the one shown in the macro Is there a peice of code i need to add to overcome this, any help you can give will be much appreciated Sheets("Pilot Valve Material").Select Range("A2:B53").Select Selection.Copy Sheets("Stock Transactions").Select Range("A1597").Select ActiveSheet.Paste ActiveWindow.SmallScroll Down:=27 Sheets("Pilot Valve Material").Select Range("C2:C53").Select Application.CutCopyMode = False Selection.Copy Sheets("Stock Transactions").Select Range("C1597").Select ActiveSheet.Paste Sheets("Pilot Valve Material").Select Range("D2:E53").Select Application.CutCopyMode = False Selection.Copy Sheets("Stock Transactions").Select Range("D1597").Select ActiveSheet.Paste End Sub |
| All times are GMT +1. The time now is 07:04 PM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com