Creating a For Next Loop

[MartyChase]

Very new to VB and looking for some help on this basic problem. Thanks in advance.

Trying to convert this code into a For Next Loop:

X = 0
Do Until X = 33
X = X + 1
inst = Choose(X, "ASP", "CAL", "CCC", "CCI", "CCWF", "CEN", "CIM", "CIW", "CMC", "CMF", "COR", "CRC", "CTF", "CVSP", "DVI", "FSP", "HDSP", "ISP", "KVSP", "LAC", "MCSP", "NKSP", "PBSP", "PVSP", "RJD", "SAC", "SATF", "SCC", "SOL", "SQ", "SVSP", "VSPW", "WSP")

Marty

 

[jim may]

With your Column A totally BLANK (no Values) run:

In a Standard Module paste in:

Sub Foo()
X = 0
Do Until X = 33
X = X + 1
inst = Choose(X, "ASP", "CAL", "CCC", "CCI", "CCWF", "CEN", "CIM", "CIW", "CMC", "CMF", "COR", "CRC", "CTF", "CVSP", "DVI", "FSP", "HDSP", "ISP", "KVSP", "LAC", "MCSP", "NKSP", "PBSP", "PVSP", "RJD", "SAC", "SATF", "SCC", "SOL", "SQ", "SVSP", "VSPW", "WSP")
Cells(X, 1).Value = inst
Loop
End Sub

 

[MartyChase]

I wouldnt do something like this?

For counter = 1 To 33 Step 1

Not sure what would go here.

Next

 

[mikerickson]

This is how to construct the loop

For counter = 1 to 33
    inst = Choose(counter, "ASP", "CAL", "CCC", "CCI", "CCWF", "CEN", "CIM", "CIW", "CMC", "CMF", "COR", "CRC", "CTF", "CVSP", "DVI", "FSP", "HDSP", "ISP", "KVSP", "LAC", "MCSP", "NKSP", "PBSP", "PVSP", "RJD", "SAC", "SATF", "SCC", "SOL", "SQ", "SVSP", "VSPW", "WSP")
Next counter

But all that does is change the value of inst, it would be quicker to do

inst = inst = Choose(33, "ASP", "CAL", "CCC", "CCI", "CCWF", "CEN", "CIM", "CIW", "CMC", _
    "CMF", "COR", "CRC", "CTF", "CVSP", "DVI", "FSP", "HDSP", "ISP", "KVSP", "LAC", _
    "MCSP", "NKSP", "PBSP", "PVSP", "RJD", "SAC", "SATF", "SCC", "SOL", "SQ", "SVSP", "VSPW", "WSP")


inst = Array("ASP", "CAL", "CCC", "CCI", "CCWF", "CEN", "CIM", "CIW", "CMC", _
    "CMF", "COR", "CRC", "CTF", "CVSP", "DVI", "FSP", "HDSP", "ISP", "KVSP", "LAC", _
    "MCSP", "NKSP", "PBSP", "PVSP", "RJD", "SAC", "SATF", "SCC", "SOL", "SQ", "SVSP", _
    "VSPW", "WSP")(32)

 

[MartyChase]

Thanks for the help guys! Appreciated