How can I quickly finish numbering the white boxes in this spread sheet?

http://i34.tinypic.com/33y6pgm.jpg

Thank you very much.

Marie,

Select one of the shaded cells, and run this sub:

Sub test()
MsgBox ActiveCell.Interior.ColorIndex
End Sub

Remeber that number.

Then select all the cells that could be filled in (including the colored cells), and run this sub,
after putting the number from the last sub where the XXXX is:

Sub NumberCells()
Dim myC As Range
For Each myC In Selection
If (Not myC.MergeCells) And myC.Interior.ColorIndex < XXXX Then
myC.Value = Application.Max(myC.Offset(-1, 0).EntireRow, _
Cells(myC.Row, 1).Resize(1, myC.Column - 1)) + 1
End If
Next myC
End Sub

HTH,
Bernie
MS Excel MVP


"Marie" wrote in message
...
How can I quickly finish numbering the white boxes in this spread sheet?

http://i34.tinypic.com/33y6pgm.jpg

Thank you very much.

When I run NumberCells, the first cell starts at 303 for some odd reason.
The next is 304, then 305, 306, 307 ...

How might I fix this?

Also, how could I modify the code to skip all cells with the letter "a" as a
value?

Thank you.

"Bernie Deitrick" wrote:

Marie,

Select one of the shaded cells, and run this sub:

Sub test()
MsgBox ActiveCell.Interior.ColorIndex
End Sub

Remeber that number.

Then select all the cells that could be filled in (including the colored cells), and run this sub,
after putting the number from the last sub where the XXXX is:

Sub NumberCells()
Dim myC As Range
For Each myC In Selection
If (Not myC.MergeCells) And myC.Interior.ColorIndex < XXXX Then
myC.Value = Application.Max(myC.Offset(-1, 0).EntireRow, _
Cells(myC.Row, 1).Resize(1, myC.Column - 1)) + 1
End If
Next myC
End Sub

HTH,
Bernie
MS Excel MVP


"Marie" wrote in message
...
How can I quickly finish numbering the white boxes in this spread sheet?

http://i34.tinypic.com/33y6pgm.jpg

Thank you very much.

Ah, I just realized that there was data above that section and that's why it
started at 303. But it'd still be a big help if I could skip cells valued
with "a" .

Thanks again.

I think the code fails if the color value is negative, i.e. -4142, because of
syntax. How can I properly enter this value?

Marie,

This fills in cells with the colorindex of -4142....


Sub NumberCells2()
Dim myC As Range
For Each myC In Selection
If (Not myC.MergeCells) And _
(myC.Interior.ColorIndex = -4142) And _
(myC.Value < "a") Then
myC.Value = Application.Max(myC.Offset(-1, 0).EntireRow, _
Cells(myC.Row, 1).Resize(1, myC.Column - 1)) + 1
End If
Next myC
End Sub


--
HTH,
Bernie
MS Excel MVP


"Marie" wrote in message
...
I think the code fails if the color value is negative, i.e. -4142, because of
syntax. How can I properly enter this value?