copy\paste from one workbook to another

[chief]

I am an amateur using vb excel 97, I want to copy data fro
workbook("QUOTE") and paste it into certain cells in workbook("INVOIC
PROGRAM"). It is set up so that the user goes into QUOTE and makes on
up. Then later on in the week they pull the saved file back up, clic
on sheet1 commandbutton2 whereby this code,

"ChDir "S:\RETAIL INVOICE PROGRAM"
Workbooks.Open FileName:= "\\Fileserver\spencersshare\RETAIL INVOIC
PROGRAM\INVOICE PROGRAM.xls", _
UpdateLinks:=3,

opens the INVOIVE PROGRAM. I want to set it up so that before th
INVOICE gets opened, certain cells from the opened QUOTE ex. A1, A3, B
etc. are copied, the QUOTE workbook closed, then the INVOICE opens, th
specific copied cell data from QUOTE and gets pasted into thei
respective INVOICE cells. I know that it can be managed to fall in tha
order, I just don't know what the code is to do it. I searched the ol
files on here and nothing was really able to help.

any ideas? Thank

 

[Mark]

Hi,
i don't use copy and paste. if you assign a string to the
source cell then the value is stored in the string. While
the macro is still alive, the workbook can be closed and
the string value is still active. When you open the
invoice file, the target cell can take the string value.

A1=strSourceValue


I do many of the quoteforms. If you want to send the
quoteform, directory/folder addresses of both the source
xls and ther target xls to me, i will create a program to
do what you want. It is free till it gets either boring or
time intensive.

confidentiality assured and guaranteed.
See my excel stuff at:
http://au.geocities.com/excelmarksway
http://www.geocities.com/excelmarksway



(e-mail address removed)

- - Mark

-----Original Message-----

I am an amateur using vb excel 97, I want to copy data from
workbook("QUOTE") and paste it into certain cells in workbook("INVOICE
PROGRAM"). It is set up so that the user goes into QUOTE and makes one
up. Then later on in the week they pull the saved file back up, click
on sheet1 commandbutton2 whereby this code,

"ChDir "S:\RETAIL INVOICE PROGRAM"
Workbooks.Open

FileName:= "\\Fileserver\spencersshare\RETAIL INVOICE