Rolling Cells?

  • Thread starter Thread starter Kyle Sweeney
  • Start date Start date
K

Kyle Sweeney

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?
 
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

-------------------
 
Kyle

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

Do not enable Freeze Panes.

Gord Dibben Excel MVP
 
Back
Top