Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy paste WkBk/sheet 1 to multiple wkbks/sheets
Good Morning -I am at the point in my Excel experience of having a workabl understanding of Excel. Now its on to Macros & then VBA. -Index & Match works for me as the purpose underlying the followin macro copy & paste excerpt. However it is verbose and totall rudimentary and without the ability to be "volatile" I believe the VB language calls the routine. -My attempt is 1.) to open all wkbks and matching or correspondin wksheets in all open wkbks, 2.) copy paste/special/values from lea wkbk/sheet identified Range("A2:C61"). to "Range("P4:R63").Select" i 3 wksheets in multiple subservient wkbks/sheets without all th scrolling & junk that exists in the following partial macro scrip pasted below. -Perhaps my biggest weakness is not understanding the routine o language necessary to open all bks and corresponding sheets an corresponding ranges only once for a cross wkbk/sh copy and paste o values. -Thanks to whomever has the wisdom & patience to address this -wrpalmer -Sub priceupdate() ' ' priceupdate Macro ' Macro recorded 8/9/2005 by William Palmer ' ' Keyboard Shortcut: Ctrl+u ' Workbooks.Open Filename:= _ "C:\Data\EXCEL\STOCKPROFITS\IN USE Actual STOCK GAIN-LOSS FORM BY TaxPayer\arp080105.XLS" Workbooks.Open Filename:= _ "C:\Data\EXCEL\STOCKPROFITS\IN USE Actual STOCK GAIN-LOSS FORM BY TaxPayer\mep080105.XLS" Workbooks.Open Filename:= _ "C:\Data\EXCEL\STOCKPROFITS\IN USE Actual STOCK GAIN-LOSS FORM BY TaxPayer\msp080105.XLS" Workbooks.Open Filename:= _ "C:\Data\EXCEL\STOCKPROFITS\IN USE Actual STOCK GAIN-LOSS FORM BY TaxPayer\sep080105.XLS" Windows("PRICEUPDATE.xls").Activate Range("A2:C61").Select Selection.Copy Windows("arp080105.XLS").Activate ActiveWindow.ScrollColumn = 7 ActiveWindow.ScrollColumn = 8 ActiveWindow.ScrollColumn = 9 ActiveWindow.ScrollColumn = 10 ActiveWindow.ScrollColumn = 11 Range("P4:R63").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone SkipBlanks _ :=False, Transpose:=False Windows("PRICEUPDATE.xls").Activate Application.CutCopyMode = False Selection.Copy Windows("mep080105.XLS").Activat -- wrpalme ----------------------------------------------------------------------- wrpalmer's Profile: http://www.excelforum.com/member.php...fo&userid=2534 View this thread: http://www.excelforum.com/showthread.php?threadid=39745 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
search, copy and paste through multiple sheets | Excel Discussion (Misc queries) | |||
Copy data from multiple sheets into new sheet | Excel Worksheet Functions | |||
copy from one sheet and paste into other sheets | Excel Discussion (Misc queries) | |||
multiple copy / paste on locked sheet | Excel Programming | |||
copy and paste from different sheets into one sheet using a VB code | Excel Programming |