For ...Next loop help please

[Mark]

Anyone know where I am going wrong with this code:

Dim i as byte

Dim Fund1 As String
Dim Fund2 As String

For i = 1 to 2

"Fund" & i = Sheets("S1").Cells(1, i + 1).Value '(which is a string)

Next i

I reckon it should work fine but am obviusly mising something obvious as it
doesn't like the referance to the string variable concatenated from the
string and number: "Fund" & i but I don't know why it doesn't like it.

Apologies I am sure it must be obvious but if someone could point it out I
would be most grateful.

Thanks, Mark

 

[Chet Cromer]

Is this what you're trying to get at?

Dim i as byte
Dim Fund as string

for i=1 to 2
Fund=Fund & Sheets("S1").Cells(1,i+1).Value
next i

There are definately other ways to get what you want, but if you want to do
it through a loop, this code will take the text in cells B1 (Cells(1,2)) and
C1 (Cells(1,3)) and concatenate them.

 

[Tom Ogilvy]

Dim i as Long
Dim fund(1 to 2) as String
for i = 1 to 2
Fund(i) = Sheets("S1").Cells(1, i+1).Text
Next

 

[Mark]

Spot on as always Tom, thanks for that

Kind regards, mark

 

[Robin Hammond]

Sub StringArrays
Dim vFunds(1 to 2) as variant
for i = 1 to 2
vFunds(i) = sheets(1).cells(1, i +1).value
next i
end sub

Robin Hammond
www.enhanceddatasystems.com