arrays

  • Thread starter Thread starter solo_razor
  • Start date Start date
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
 
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
 
.... 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)
 
Back
Top