View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
mwc0914[_20_] mwc0914[_20_] is offline
external usenet poster
 
Posts: 1
Default 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