Otto Moehrbach Tables

[Howdy]

Otto
Thanks for your reply. Here's really what I need. The table has date
and data. I need to be able to enter a date and data and have th
least current date and data fall out. I need to retain the remainde
of the data which equals 25 items from the most current date to th
least current date along with the data. The
most current item is on top with the least current on the last lin
which is 25. Kinda like a revolving table.

Hope this helps,

Thanks again.

Howd

 

[Otto Moehrbach]

Howdy
Keep your replies in the same thread. Users look in the threads for
responses.
You say that you enter the latest data at the top and you want the last
row deleted when you do so. I gather that you are inserting a new row at
the top in order to have a blank row in which to enter the latest data.
The following macro does that. Note that I assumed your data is in rows
1:25. When you are ready to make a new entry you insert a new row at the
top, row 1. Modify the macro to suit what you have. HTH Otto
Private Sub Worksheet_Change(ByVal Target As Range)
If [A1] = "" Then Exit Sub
If Target.Row = 1 Then
[A26].EntireRow.Delete
End If
End Sub

 

[Otto Moehrbach]

Howdy
I lost my thread of messages on your problem. I know the last was that
I was going to change the code to copy two other specific cells. Post that
last again or send it to me direct via email. Remove "cobia97" from my
email address. Otto

 

[Otto Moehrbach]

Oops. I think I got you mixed up with somebody else. These senior moments
are occurring all too frequently. Otto