Excel VBA Question

[jazlady]

how can I create a excel vba to display the following numbers to 170

3
7
13
17
23
27
33
37
43
47
...
130
170

I tried to do it with

for x = 3, x <= 170 Step 3
{
   x= x + 1
}
Next x

But this doesn't work. how do I fix this? this was an interview question.

[KOOSHKA]

try


x=3
y=7

...


x=x+10
y=y+10

[Hack]

Moved To Office Development

[Siddharth Rout]

Two things...

I think that the series that you want to generate is

7
13
17
23
27
33
37
43
47
53
57
63
67
73
77
83
87
93
97
103
107
113
117
123
127
133
137
143
147
153
157
163
167
173

If yes then try this...

Sub GenerateSeries()
    Dim i As Long, j As Long, boolCheck As Boolean, boolExit As Boolean
    
    i = 3
    j = 1
    
    '~~> Store it in Excel Cell A1
    Range("A" & j).Value = i
    
    '~~> Generate Series
    Do While boolExit = False
        If boolCheck = False Then
            i = i + 4
            boolCheck = True
        ElseIf boolCheck = True Then
            i = i + 6
            boolCheck = False
        End If
        
        Range("A" & j).Value = i
        j = j + 1
        
        '~~> Exit loop when end of number reached
        If i > 170 Then boolExit = True
    Loop
End Sub

[MarkWalsh]

I don't understand your pattern, because

130
170

doesn't logically fit into

7
13
17
23
27
33
37
43
47
...

Starting from 3, you are getting every number which ends in either 3 or 7. 130 & 170 doesn't fit that. Unless I am misunderstanding how you arrived at your pattern.

[Siddharth Rout]

Mark I guess that was a typo... guess

I have put the actual series in my last post...

[MarkWalsh]

Mark I guess that was a typo... guess

I have put the actual series in my last post...

Yeah, I'd guess it was too, but you never know.

Another solution for jazlady:

Dim x As Integer
Dim y As Integer

For x = 3 To 173 Step 10
y = x + 4
If (x > 173) Then Exit For
Debug.Print x
If (y > 173) Then Exit For
Debug.Print y
Next x

[Siddharth Rout]

Nice one Mark

[anhn]

For i = 0 To 16
    Cells(2 * i + 1, 1) = i * 10 + 3
    Cells(2 * i + 2, 1) = i * 10 + 7
Next