Hi,

To set the scene, I'm developing a excel based register for my
classes.

I currently have a button that inserts the date and moves down to the
next row.

I would like to develop this code so that it not only puts the date in
but, also inserts a tick symbol next to each of the pupils in that
class.

I have all my classes on one worksheet, with hyperlinks to navigate to
each of the groups.

Each class will have a different number of pupils, but next to each
pupil is a number beginning at one and then going up depending on how
many pupils in the class.

The macro needs to see if there's a number in column A and if there is
then put a tick in that row. It needs to work down the column putting
the ticks in, but then stop at the end of the list.

I have attached a screen shot of just one of the classes to show what I
mean and give a clearer idea as to what layout I'm working with. So the
date will go in the row where the active cell is currently located and
the ticks need to be inserted next to each pupil below the date.

Here's the code I have so far -

Public Sub Date_Today()
With ActiveCell
.Value = Date
.NumberFormat = "dd-mmm-yy"
ActiveCell.Offset(1, 0).Select
End With
End Sub

Any help would be just great, as this would be a big step towards me
completing a significant section of this workbook.

If I haven't explained anything well or you just don't get what I'm
going on about then let me know.

Many thanks,

Mark.


+-------------------------------------------------------------------+
|Filename: screen.jpg |
|Download: http://www.excelforum.com/attachment.php?postid=4170 |
+-------------------------------------------------------------------+

--
mevetts


------------------------------------------------------------------------
mevetts's Profile: http://www.excelforum.com/member.php...o&userid=29130
View this thread: http://www.excelforum.com/showthread...hreadid=497252