MrExcel Publishing
Your One Stop for Excel Tips & Solutions

Reflecting data into the remaining sheets...Help please

Posted by Nikhitha on December 01, 2000 2:28 PM


I have 8 sheets of data. And the first column is
the same for all the sheets.

Now when the user enters data into first column of one
of the sheets, that data needs to be replicated
for the same column in the remaining sheets.

How do I achieve that?

Please suggest me with a suitable answer.

Thanks in Advance

Posted by greg on December 01, 2000 3:11 PM

response: I wasn't sure if you needed it to do it in code or not, but I know a way in the cells, here you go. =IF(ISBLANK(Sheet1!A5),"",Sheet1!A5)
Enter that into the first cell in the column on each sheet and just drag it down as far as you need it. Hope that helps.


Posted by Neil on December 01, 2000 3:14 PM

How about in Sheet2 A1 saying +Sheet1!A1 and so on.

Posted by Nikhitha on December 01, 2000 3:37 PM

Greg....I need to do it thru code....

Posted by Ivan Moala on December 01, 2000 4:44 PM

Re: Greg....I need to do it thru code....

By using the workbooks application events.
Under the Thisworkbook object isnsert code
the the sheet change event;

I think this will do it ??

Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As Excel.Range)

If Target.Column = 1 And Target.Columns.Count < 2 Then
Application.EnableEvents = False
For Each sh In ThisWorkbook.Sheets
sh.Range(Target.Address) = Target
Application.EnableEvents = True
End If
End Sub