Thread: Excel List
View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.misc
Don Guillett Don Guillett is offline
external usenet poster
 
Posts: 10,124
Default Excel List

Since you didn't tell us where you list is and where you want the numbers,
this should do it.
On sourse sheet, right click sheet tabview codeinsert thisChange
destination sheet name and columns K:M to yours. SAVE workbook

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("k:m")) Is Nothing Then
With Sheets("sheet22") 'destination sheet with a b c
mc = .Rows(1).Find(Cells(1, Target.Column), LookIn:=xlValues).Column
lr = .Cells(Rows.Count, mc).End(xlUp).Row + 1
Target.Copy .Cells(lr, mc)
End With
End If
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"freakyquo" wrote in message
...
Hello,

I have a list with headings, eg "A", "B", "C".

Is there a way that I can enter data on one spreadsheet that will add data
to the bottom of the list?

For example, I could have cells on sheet 1 headed A B and C, and type in
the
data, and then this adds the data to the bottom of the list on sheet 2.
Then
I can re-enter data in my cells in sheet 1, and add another row at the
bottom
of the list.

Any ideas?

Any ide