Outputting the contents of an array

Hi folks, I've searched up and down these forums, maybe I'm not using the right keywords, but I can't find an answer. I have a dynamic array, TNum(), that gets filled with anywhere from 1 to 6 numbers depending on the item name entered. The problem is, I want to make a message box that will output whatever numbers are in the array, separated by commas. I tried a fixed array, but when the array had less than 6 numbers, it'd return an out of bounds error, as I expected.

I know my code is wrong (aside from the fact that it doesn't do what I want), but I feel I'm on the right track. I think all I need is a way to create the entire string first and then put it into the msgbox. I can't figure it out though. Pleeeaaase help meeee...

Please Login or Register  to view this content.

Try something like

Dim strNums As String

strNums = CStr(TNum(1))

For i = 2 to j ' assuming j is the number of elements in the array

strNums = strNums & ", " & CStr(TNum(i))

Next i

MsgBox(strNums)

'CStr converts the number to a string

IT WORKS! IT WORKS! THANK YOU THANK YOU THANK YOU! lol I really do appreciate it, I've been banging my head into a wall for weeks trying to figure it out myself!

Msgbox Join(TNum,",")

Tim


"carg1" <[email protected]> wrote in
message news:[email protected]...
>
> Hi folks, I've searched up and down these forums, maybe I'm not
> using
> the right keywords, but I can't find an answer. I have a dynamic
> array, TNum(), that gets filled with anywhere from 1 to 6 numbers
> depending on the item name entered. The problem is, I want to make
> a
> message box that will output whatever numbers are in the array,
> separated by commas. I tried a fixed array, but when the array had
> less than 6 numbers, it'd return an out of bounds error, as I
> expected.
>
>
> I know my code is wrong (aside from the fact that it doesn't do what
> I
> want), but I feel I'm on the right track. I think all I need is a
> way
> to create the entire string first and then put it into the msgbox.
> I
> can't figure it out though. Pleeeaaase help meeee...
>
>
> Code:
> --------------------
> Iput = InputBox("Please enter item:")
> Set FoundCell = Cells.Find(what:=Iput, LookIn:=xlFormulas,
> lookat:=xlWhole, _
> searchorder:=xlByRows)
> FoundRow = FoundCell.Row
>
> For i = 2 To 7
>
> If Worksheets(1).Cells(FoundRow, i).Value <> "" Then
> j = j + 1
>
> ReDim Preserve TNum(1 To j)
> TNum(j) = Worksheets(1).Cells(FoundRow, i).Value
>
> End If
>
> Next i
>
> For l = 1 To UBound(TNum())
> Term2 = Format(TNum(j), "####\.##\.##\.##") & ", " & _
> Format(TNum(j), "####\.##\.##\.##") & ", " & _
> Format(TNum(j), "####\.##\.##\.##") & ", " & _
> Format(TNum(j), "####\.##\.##\.##") & ", " & _
> Format(TNum(j), "####\.##\.##\.##") & ", " & _
> Format(TNum(j), "####\.##\.##\.##")
> --------------------
>
>
> --
> carg1
> ------------------------------------------------------------------------
> carg1's Profile:
> http://www.excelforum.com/member.php...o&userid=15271
> View this thread:
> http://www.excelforum.com/showthread...hreadid=390757
>