How to inputed data on one sheet to another automatically

  • Thread starter Thread starter ndavies
  • Start date Start date
N

ndavies

I'm trying to create a workbook that will allow me to enter data on th
first sheet and it will then append the data to a second and thir
sheet automatically.


Example:
I enter "NDavies" into A1 on sheet 1
A1 on sheet2 automatically updates with "NDavies"
A1 on sheet3 automatically updates with "NDavies"

When it comes to enter something new in A1 on sheet1, same functio
above goes into action, accept it should be on the next available lin
which will be A2 on sheet2 and sheet3 as A1 is already used by previou
data entry.

Can this be done?

I would appreciate any help with this.

NDavie
 
NDavies,

You need VBA for this. Here's a macro to start with. Enter it in the code window
for Sheet1 - right-click the sheet tab and choose View Code. Adjust ranges and
sheet names to suit.

'*****
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
' Sheet2 and Sheet3 intentionally updated separately
With Worksheets("Sheet2")
.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value _
= Target.Value
End With
With Worksheets("Sheet3")
.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value _
= Target.Value
End With
End Sub
'*****

HTH
Anders Silven
 
Anders / Frank, many thanks for the replies.

Anders, I have used your code and this is exactly what I'm after and i
works as expected. I will need to set it up to do more than one cell
Code was smaller and simpler then I imagined.

Really appreciate this.

Thanks for the help guys.

Nige
 
Back
Top