Fill Series of Disjointed Selection across Rows & Columns?
 

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

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

Thank you very much.

Fill Series of Disjointed Selection across Rows & Columns?
 

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.

Fill Series of Disjointed Selection across Rows & Columns?
 

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.

Fill Series of Disjointed Selection across Rows & Columns?
 

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.

Fill Series of Disjointed Selection across Rows & Columns?
 

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

Fill Series of Disjointed Selection across Rows & Columns?
 

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?