Rolling Cells?

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Kyle Sweeney - 29 Oct 2004 03:52 GMT

How can i make a form that each day the top cell disapears and a new bottom
cell apears.

I need a 30 day rolling form. I have 30 rows going from top to bottom.
When i complete the data for the 30th row i would like for the first row to
disappear and the other 29 to bump up and the 30th row to be blank again?

I hope i explained myself right?

Reply to this Message

BrianB - 29 Oct 2004 15:31 GMT

Not sure exactly what you want, but this shows the principle :-

Code
-------------------

Sub test()
'- put some test data
For n = 1 To 30
ActiveSheet.Cells(n, 1).Value = n
Next
ActiveSheet.Range("A1").Select
'- roll up
MsgBox ("About to roll up")
For n = 1 To 29
ActiveSheet.Cells(n, 1).Value = _
ActiveSheet.Cells(n + 1, 1).Value
Next
ActiveSheet.Cells(30, 1).Select
ActiveCell.Value = ""
End Sub

-------------------

--
Brian

Reply to this Message

Gord Dibben - 29 Oct 2004 23:15 GMT

Kyle

If "move after ENTER" is down, hit <ENTER> when leaving Row 30

Do not enable Freeze Panes.

Gord Dibben Excel MVP

>How can i make a form that each day the top cell disapears and a new bottom
>cell apears.
[quoted text clipped - 4 lines]
>
>I hope i explained myself right?

Reply to this Message