How to populate blank cells with sequence until nonblank cell is encountered?

I've been looking around at the various sites, trying to find a code that either does this, or that I could easily adapt to my needs... But with no luck so far.

I presume this is fairly simple to do, since it's certainly easy enough to do manually by filling in a couple of rows and dragging them down, but I need it to be performed in a macro that I can run before other macros run.


What I need specifically is for the macro to go to G1 and insert the number .01... Then go to G2 and insert .02... Then G3 and insert .03... And repeat this until it finds the first non-blank cell ( row number this occurs at varies), at which point it ends and does nothing to that populated cell or any other cell in the column thereafter (including other blanks farther down).

This all needs to be done in Arial, 10pt, white.


Please help!

Try this code in a general module:

Sub BuildSeq()
Dim rng As Range

Set rng = [G1]
rng.Value = 0.01
Set rng = Range(rng, rng.End(xlDown).Offset(rowOffset:=-1))
rng.DataSeries Type:=xlLinear, Step:=0.01
End Sub

Is that something you can work with?

Your instructions were to run the sequence from G1 until a populated cell was encountered.

Absent a posted sample file or sample data, here's what I used:
• G1:G11 are blank
• G12 contains text
• I ran the macro...It entered a sequence from 0.01 through 0.11 in G1:G11

Can you post a sample file that exhibits your scenario?

Wait, it worked fine! I wasn't paying attention and ran it on a list that had all of G blank from a previous macro failure.


But how to make the newly generated numbers display in white though?

White text on white cells? Really?
Can you share ALL of the specifics so we can try to do this in one go?

Try this variation:

Sub BuildSeq()
Dim rng As Range

Set rng = [G1]
If rng.Value = "" Then
    rng.Value = 0.01
    Set rng = Range(rng, rng.End(xlDown).Offset(rowOffset:=-1))
    With rng
        .DataSeries Type:=xlLinear, Step:=0.01
        .FormatConditions.Delete
        .FormatConditions.Add _
            Type:=xlCellValue, _
            Operator:=xlLess, _
            Formula1:="=1"
        With .FormatConditions(1)
            .SetFirstPriority
            .Font.ThemeColor = xlThemeColorDark1
            .Font.TintAndShade = 0
            .StopIfTrue = False
        End With
    End With
End If
End Sub

Does that help?