View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.worksheet.functions
DaveAsh DaveAsh is offline
external usenet poster
 
Posts: 49
Default LInking workbooks

Thanks for that. I'm a novice to macros though. How would i set this up?

"Gary''s Student" wrote:

This is a simple example that you can adapt:
1. assume there are two open workbooks:
sourse.xls
destinaton.xls

2. assume the sheet name is:
s1
on both workbooks

3. assume column A is always filled in

The user (working in sourse.xls) completes entries, selects the rows to be
copied,
and runs this macro:

Sub cary_across()
Workbooks("sourse.xls").Activate
Sheets("s1").Activate
Set r1 = Selection

Workbooks("destinaton.xls").Activate
Sheets("s1").Activate
n = Cells(Rows.Count, "A").End(xlUp).Row + 1
Set r2 = Cells(n, "A")

r1.Copy r2
End Sub

--
Gary''s Student - gsnu200757


"DaveAsh" wrote:

How would i go about doing this?

"Gary''s Student" wrote:

yes
--
Gary''s Student - gsnu200757