View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Will[_9_] Will[_9_] is offline
external usenet poster
 
Posts: 1
Default creating an array on the fly

Gary,
Not too difficult.. you'll need to declare the array with no
constraints in the parenthesis first
Each time in your loop you need the statement "Redim Preserve" prior to
making the variable assignment.. see example below.
-------------
Option Base 1
Dim myArray() As String
Dim y As Integer
Dim msg As String

Sub redim_myArray()
msg = "myArray"
For y = 1 To 20
ReDim Preserve myArray(1 To y)
myArray(y) = Cells(y, 1).Value
msg = msg & vbCrLf & y & " " & myArray(y)

Next

MsgBox (msg)

End Sub

ReDim Preserve myArray(1 To y)


Gary Keramidas wrote:
what is the syntax for creating an array while running a for next loop?

let's say the array is called arr, the string to add is called sStr. there could
be up to 50 elements.

thanks
--


Gary