Assigning values to variables in a loop

[jardenp]

I am not well versed in loops, so please bear with me.

In A1:A20 there is a list of PO numbers of variable count, i.e., there could be one PO, twenty POs, or any number inbetween.

I have 20 variables declared. PO1, PO2, ... PO20. I also have POCount declared and assigned the count of populated cells in A1:A20 (using a simple xlEnd function). All are Variants, though I suppose POCount could be Integer if needed.

There should never be a blank cell with a non-blank cell below it.

I would like a VBA loop to start in A1 and then loop through to A&POCount and in each cell assign the cell value to the variable PO&row number. So value from A4 is assigned to PO4, A7 to PO7, etc.

I can't figure out how to construct a variable name in the loop and use it (basically how to get it to recognize "PO" & i as a single variable name.

Thanks,

Josh in IN

 

[steve the fish]

This isnt quite what you ask for but its the way id go:

PO = Range("A1:A" & POCount)

This puts the values into an array. Then refer to them:

PO(1,1)

as an example (or PO(2,1), PO(3,1) etc)

 

[jardenp]

Thanks. I'm assuming I would need to declare PO as a Range?

 

[steve the fish]

Dim lr As Long, PO As Variant

 

[jardenp]

Thanks! I appreciate you taking the time to share your knowledge. This board is great.