Thank you Gord, this is brilliant!!!
I will definitely be asking lots more questions here.
cheers,
Nadia
"Gord Dibben" wrote:
Andre
Stick this code in your 3 worksheets.
Private Sub Worksheet_Change(ByVal Target As Range)
''when entering data in a cell in Col A
On Error GoTo enditall
Application.EnableEvents = False
If Target.Cells.Column = 1 Then
n = Target.Row
If Excel.Range("A" & n).Value < "" Then
Excel.Range("A" & n).Copy Destination:= _
Sheets("Summary").Cells(Rows.Count, 1).End(xlUp) _
.Offset(1, 0)
End If
End If
enditall:
Application.EnableEvents = True
End Sub
Gord Dibben Excel MVP
On Wed, 15 Dec 2004 18:58:50 GMT, "Andre Croteau"
wrote:
Hello Frank,
I don't know about you Nadia, but I sure would like to know!
I still think these newsgroups are the best learning tool!!!., and the best
thing since sliced bread!!
Thank you in advance!!!!! and Happy Holidays to all!
André
"Frank Kabel" wrote in message
...
Hi
this would be only possible using vBA event procedures (e.g. worksheet
change event handlers). Do you want to go this way?
--
Regards
Frank Kabel
Frankfurt, Germany
Nadia wrote:
I would like to enter data into lists on 3 different sheets and I
would like that data to automatically collate on a summary sheet
(i.e. as soon as I hit enter after typing the data in one of the 3
sheets it should appear on the summary sheet on the next available
row).
Can this be done??
|