Schedule -> list transfer

[Macmo]

I have a weekly schedule in speadsheet form Sun-Sat across the top, 7am to
9pm down that changes weekly with appointments.
Some cells never change. Ie lunch, dinner, etc.
I would like the all the appoinments each week to fill in a list on another
blank form.
The day or time is not important on the list, I just need the 1st appt. of
the week to fill in the 1st line of the list, 2nd appt....2nd line and so on.
It must not list lunch and dinner from the schedule on the list.

Any suggestions would be most helpful.

[mrice]

I would suggest a macro linked to the worksheet_change event.


For N = 1 to NumberofColumns
For M = 1 to NumberOFRows
If Cells(M,N) <>"Lunch" and Cells(M,N) <>"Dinner" then
Sheets(2).cells(65536,1).end(xlup).offset(1,0) = Cells(M,N)
End If
Next M
Next N

Define NumberofColumns and NumberOFRows as appropriate.

Hope this helps.