Help - Linking sheets and data from Sheet 1 to blank worksheet

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I've had a look at the threads on linking worksheets and i've tried to go by the instructions but it isn't working out for me
What i want to do is to take all the data from worksheet 1 and to create a copy which i've done. Now i need to link the sheets so that any data i add to worksheet 1 will be automatically added to sheet 2, this includings each cell

I have tried to tab, shift, copy and paste link but none of this is working for me. I've tried to do the a1 cell stuff as well but it only brings up changes in a particular cell

I want the whole sheet 2 to be connected to sheet 1, so that where ever i make the changes on sheet 1, the same will appear on sheet 2

Any ideas...i'm working with Windows XP...any clues would be helpfu
Thanks
Bimmy
 
The way I do it is on the first worksheet select all the cells of the page (or all the cells you will be entering data in). Then on the second worksheet you want the data copied to, select all the cells on the page you want the data copied to, then do a paste special and select Paste Link. There may be a better way of doing this but this is the only way I know how. Good luck.
 
I wonder if this is really what you need. With all the powerfu
functions in Excel it is rarely necessary to duplicate information
Just add all the data to a single sheet and use things like Data/Filte
and Data/Pivot Table to do the hard work. You might need another colum
to separate data, such as into days or moths or whatetever, but this i
just copied down when the data is added.
'-------------------------------------
I do not have time to write the necessary macro, but copy one belo
that summarises data from several worksheets in the same workbook.
suggest you run it from a button. If you used the On_change event i
would run every time you changed a cell value.

'------------------------------------------
'- Transfer data from several tables
'- in the same workbook to a master sheet.
'- Adds to bottom of existing master.
'- (Delete old records first if necessary)
'- Run macro from master sheet.
'- All tables must have same row 1 headings
'- Ignores other sheets
'------------------------------------------
Sub CONSOLIDATE()
Dim ToSheet As Worksheet
Dim NumColumns As Integer
Dim Field1 As String
Dim ToRow As Long
Dim FromSheet As Worksheet
Dim FromRow As Long
Dim LastRow As Long
Dim CopyRange As Range
'--------------------------
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Set ToSheet = ActiveSheet
NumColumns = ToSheet.Range("A1").End(xlToRight).Column
Field1 = ToSheet.Range("A1").Value
ToRow = ToSheet.Range("A65536").End(xlUp).Row + 1
'- main loop
For Each ws In ActiveWorkbook.Worksheets
Application.StatusBar = "Processing : " & ws.Name
'- check for data table
If ws.Range("A1").Value = Field1 And ws.Name <> ToSheet.Nam
Then
'- transfer data
LastRow = ws.Range("A65536").End(xlUp).Row
ws.Activate
Set CopyRange = ws.Range(Cells(2, 1), Cells(LastRow
NumColumns))
CopyRange.Copy Destination:=ToSheet.Range("A" & ToRow)
ToRow = ToSheet.Range("A65536").End(xlUp).Row + 1
End If
Next
ToSheet.Activate
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
MsgBox ("Done.")
Application.StatusBar = False
End Sub
'==== EOP =====================================
 
Back
Top