Hi,

I have a database set up which is very similar to another database which is
used. Some of the questions are the same in both databases. Is there any way
of transferring the data so to save time on typing? Also, The databases are
shared by many and are updated frequently. Can i program excel to start on
the next available free row when transferring data across?

Hope you can help,

Regards.

yes
--
Gary''s Student - gsnu200757

How would i go about doing this?

"Gary''s Student" wrote:

yes
--
Gary''s Student - gsnu200757

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

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

Macros are very easy to install and use:

1. ALT-F11 brings up the VBE window
2. ALT-I
ALT-M opens a fresh module
3. paste the stuff in and close the VBE window

If you save the workbook, the macro will be saved with it.

To use the macro from the normal Excel window:

1. ALT-F8
2. Select the macro
3. Touch Run



To remove the macro:

1. bring up the VBE window as above
2. clear the code out
3. close the VBE window

To learn more about macros in general, see:

http://www.mvps.org/dmcritchie/excel/getstarted.htm




--
Gary''s Student - gsnu200757


"DaveAsh" wrote:

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