arrays

S

solo_razor

hello,

I want to assign about 100 variables, i want to do this in an array.
These varables are found in cells a1 to a100. Not all cells are full
Does anybody has some sample code?

Regards,
Nie
 
T

TonyM

Try this:-

**********************

Option Explicit

Option Base 1

Sub fillArray()

Dim arrayToFill(100) As Variant
Dim i As Long

For i = 1 To 100
arrayToFill(i) = Me.Range("A" & i)
Next

End Sub

******************

hth, TonyM
 
B

Bob Phillips

.... or more simply

Dim myArray

myArray = Range("A1:A100")

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
Top