Macro to add 1 to 4th then 5th cell for 200 numbers

[newshound12]

A different number is inputed in cell cd31 every day.
Today's number in cd31 is 401
Then I want CD35 to be 402
Then I want CD40 to be 403
Then I want CD44 to be 404
Then I want CD49 to be 405
until last cell: CD926 = 600

Need a macro to increase by 1 every 4th then 5th then 4th then 5th cell, etc.
Then .value = .value for the column of numbers

 

[alansidman]

Option Explicit


Sub Hound12()
    Dim crit As Long, i As Long
    crit = Range("CD31")
    Dim lr As Long
    lr = 926
    For i = 35 To lr Step 5
        Range("A" & i) = crit + 1
        crit = crit + 1
    Next i
End Sub

 

[newshound12]

Thanks for trying.
It did not work.

 

[mikerickson]

Try

Dim myNumber as Double, rowNum As Long

With Range("CD:CD")
    MyNumber = .Cells(31,1).Value
    
    RowNumber = 35
    Do
        MyNumber = myNumber + 1
        .Cells(RowNumber,1).Value = myNumber
        MyNumber = myNumber + 1
        .Cells(RowNumber + 4, 1) = myNumber
        RowNumber = RowNumber + 9
    Loop Until RowNumber >=926

End With

 

[newshound12]

Thanks. It works when I modified it as follows:

Sub Hound12()
Dim myNumber As Double, rowNum As Long

With Range("CD:CD")
myNumber = .Cells(31, 1).Value

rowNum = 31
Do
myNumber = myNumber + 1
.Cells(rowNum, 1).Value = myNumber
myNumber = myNumber + 1
.Cells(rowNum + 4, 1) = myNumber
rowNum = rowNum + 9
Loop Until rowNum >= 926

End With
End Sub

 

[alansidman]

It did not work.

Not a helpful response.

Option Explicit


Sub Hound12()
    Dim crit As Long, i As Long
    crit = Range("CD31")
    Dim lr As Long
    lr = 926
    For i = 35 To lr Step 5
        Range("CD" & i) = crit + 1
        crit = crit + 1
    Next i
End Sub[COLOR=#333333]

[/COLOR]

 

[mikerickson]

I'm glad it worked for you.