excel vba - how do I get my macro to automatically copy data from range of one book to another range in book 2 -
this second day using vba , excel.i'd macro automatically copy values woksheet "consulting-for paracon_aax.xls" range "e24"to "q24" , paste values worksheet named "2014 - xpert.xlsm" on range "e9-q9" in sheet named delivery.this i've come far.
sub updatelinks() 'open source workbook , select source sheet workbooks.open filename:="c:\users\desmondm\desktop\consulting-for paracon_aax.xls" sheets("sheet1").select ' copy source range sheets("sheet1").range("e24").select selection.copy ' select current workbook , paste value @ e9 workbooks("2014 - xpert.xlsm").activate sheets("delivery").select sheets("delivery").range("e9").select activesheet.paste application.cutcopymode = false activeworkbook.save end sub but problem code macro copies cell e24 consulting-for paracon_aax.xls e9 in delivery sheet within 2014 - xpert.xlsm wokbook.i'm stuck @ trying make macro copy e24 q24 in 1 book , paste values e9 q9 in other workbook on delivery sheet.
give try, consolidated bit you, need specify full range of cells copy (previously copying e24.
sub updatelinks() dim wbsource workbook dim wbdestination workbook 'open source workbook , select source sheet set wbsource = workbooks.open( _ filename:="c:\users\desmondm\desktop\consulting-for paracon_aax.xls") 'set destition workbook variable set wbdestination = workbooks("2014 - xpert.xlsm") 'copy source range wbsource.sheets("sheet1").range("e24:q24").copy 'paste value @ e9 wbdestination.sheets("delivery").range("e9:q9").pastespecial (xlpastevalues) application.cutcopymode = false activeworkbook.save end sub and, word wise :) tempting use select , activate methods -- when new vba, because how macro recorder captures actions, 99% of time these unnecessary, , it's more efficient/better use object variables , explicitly refer them, rather relying on selection , activeworkbook or activecell, etc.
Comments
Post a Comment