View Single Post
 
Old 11-28-2018, 06:26 PM
trevorc trevorc is offline Windows 7 32bit Office 2013
Competent Performer
 
Join Date: Jan 2017
Posts: 173
trevorc will become famous soon enoughtrevorc will become famous soon enough
Default

Thanks for replying, doesn't the selections in red cover that.
Also I have added an option, to the right click event for the table, to run the macro.

It does all do what I need but keeps coming back with - Code execution has been interrupted. after pressing continue it completes correctly, in VBA it errors after the first paste line, hitting F5 to continue works ok too. I have removed all worksheet events to see if they were causing it, but still fails.

- the name of the sheet the Worksheet_Change event would be used on
Sheets("Customer")
- the column or range of cells the Worksheet_Change event would be restricted to
With Sheets("Customer").Range("H4:H5000")
- the location (ie: starting column) where Sheets("Customer").Range("I" & t & ":L" & t) would be copied to
Sheets("Customer").Range("I" & t & ":L" & t).Copy
Range("I" & ttt).PasteSpecial Paste:=xlPasteValues

- the location (ie: starting column) where Sheets("Customer").Range("Y" & t & ":AH" & t) would be copied to
Sheets("Customer").Range("Y" & ttt).Select
Range("Y" & ttt).PasteSpecial Paste:=xlPasteValues
Reply With Quote