Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
copying cells from one wkbk to another
I want to copy a series of cells from wkbk to another, but I need to do it one cell at a time (because of some additional processing) instead of just a straight select/copy/paste. How do I define the range of cells in my destination workbook so I can copy to them. I need to open the destination wkbk & define the destination cells. This code kind of gives the idea... Sub Macro1() Dim ocells As Range Set ocells = Range("a1:a5") Dim nwkbk As Workbook Set nwkbk = Workbooks.Open(ThisWorkbook.Path & "\Book2.xls") dim ncells as range set ncells = ?????? For i = 1 To 5 ncells(i) = ocells(i) ' How do I do this across wkbks then save nwkbk Next i nwkbk.Save nwkbk.Close End Sub -- mwc0914 ------------------------------------------------------------------------ mwc0914's Profile: http://www.excelforum.com/member.php...o&userid=24130 View this thread: http://www.excelforum.com/showthread...hreadid=572343 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
copying cells from one wkbk to another
Use the top left corner of the destination and make it the same size
Sub Macro1() Dim ocells As Range Set ocells = Range("a1:a5") Dim nwkbk As Workbook Set nwkbk = Workbooks.Open(ThisWorkbook.Path & "\Book2.xls") dim ncells as range set ncells = Range("B10").Resize(oCells.Rows.count,oCells.colum ns.count) For i = 1 To 5 ncells(i) = ocells(i) ' How do I do this across wkbks then save nwkbk Next i nwkbk.Save nwkbk.Close End Sub -- Regards, Tom Ogilvy "mwc0914" wrote: I want to copy a series of cells from wkbk to another, but I need to do it one cell at a time (because of some additional processing) instead of just a straight select/copy/paste. How do I define the range of cells in my destination workbook so I can copy to them. I need to open the destination wkbk & define the destination cells. This code kind of gives the idea... Sub Macro1() Dim ocells As Range Set ocells = Range("a1:a5") Dim nwkbk As Workbook Set nwkbk = Workbooks.Open(ThisWorkbook.Path & "\Book2.xls") dim ncells as range set ncells = ?????? For i = 1 To 5 ncells(i) = ocells(i) ' How do I do this across wkbks then save nwkbk Next i nwkbk.Save nwkbk.Close End Sub -- mwc0914 ------------------------------------------------------------------------ mwc0914's Profile: http://www.excelforum.com/member.php...o&userid=24130 View this thread: http://www.excelforum.com/showthread...hreadid=572343 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Copying cell info from one sheet to another in the same wkbk | Excel Discussion (Misc queries) | |||
Can't Alt Tab from wkbk to wkbk Help! | Excel Discussion (Misc queries) | |||
formula to add cells in multiple shts in the same wkbk | Excel Worksheet Functions | |||
run a procedure in 1 wkbk from another wkbk | Excel Programming | |||
HowTo add and name 2 wks to wkbk | Excel Programming |