I have an array with about 1500 names in it. How can I add those names to
column A1 on sheet1 and go down one cell 1500 times and add the next value
to the spreadsheet? in Excel07 VBA

I think this is right. give it a try. Substiture your array name for
myArr. The code below assumes a zero based array, if yours is base 1 then
you will not need the + 1 for the range row designation. This would start in
A1 and continue downward for the number of items in the array.

For i = LBound(myArr) To UBound(myArr)
Range("A" & i + 1) = myArr(i).value
Next





"Striker3070" <(E-Mail Removed)> wrote in message
news:A8A6DCC6-327A-4F56-BFE0-(E-Mail Removed)...
>I have an array with about 1500 names in it. How can I add those names to
>column A1 on sheet1 and go down one cell 1500 times and add the next value
>to the spreadsheet? in Excel07 VBA

Should have tested it first. Use this.

For i = LBound(myArr) To UBound(myArr)
Range("A" & i + 1) = myArr(i)
Next

Adding the .Value will throw an error since myArr(i) is a value.


"Striker3070" <(E-Mail Removed)> wrote in message
news:A8A6DCC6-327A-4F56-BFE0-(E-Mail Removed)...
>I have an array with about 1500 names in it. How can I add those names to
>column A1 on sheet1 and go down one cell 1500 times and add the next value
>to the spreadsheet? in Excel07 VBA

On 4/29/2010 7:05 PM, JLGWhiz wrote:
> Should have tested it first. Use this.
>
> For i = LBound(myArr) To UBound(myArr)
> Range("A"& i + 1) = myArr(i)
> Next
>
> Adding the .Value will throw an error since myArr(i) is a value.
>
>
> "Striker3070"<(E-Mail Removed)> wrote in message
> news:A8A6DCC6-327A-4F56-BFE0-(E-Mail Removed)...
>> I have an array with about 1500 names in it. How can I add those names to
>> column A1 on sheet1 and go down one cell 1500 times and add the next value
>> to the spreadsheet? in Excel07 VBA

> For i = LBound(myArr) To UBound(myArr)

Hi. Not likely, but one could have:

Dim m(-5 To 5)

Just an idea...

n = UBound(v) - LBound(v) + 1

[A1].Resize(n) = v
'or
[B1].Resize(n) = WorksheetFunction.Transpose(v)

= = = = = = =
HTH :>)
Dana DeLouis

On Apr 30, 9:31*am, Dana DeLouis <delo...@bellsouth.net> wrote:
> On 4/29/2010 7:05 PM, JLGWhiz wrote:
>
> > Should have tested it first. *Use this.
>
> > For i = LBound(myArr) To UBound(myArr)
> > * *Range("A"& *i + 1) = myArr(i)
> > Next
>
> > Adding the .Value will throw an error since myArr(i) is a value.
>
> > "Striker3070"<striker3...@qwest.net> *wrote in message
> >news:A8A6DCC6-327A-4F56-BFE0-(E-Mail Removed)...
> >> I have an array with about 1500 names in it. *How can I add those names to
> >> column A1 on sheet1 and go down one cell 1500 times and add the next value
> >> to the spreadsheet? in Excel07 VBA
>
> *> For i = LBound(myArr) To UBound(myArr)
>
> Hi. *Not likely, but one could have:
>
> Dim m(-5 To 5)
>
> Just an idea...
>
> n = UBound(v) - LBound(v) + 1
>
> [A1].Resize(n) = v
> 'or
> [B1].Resize(n) = WorksheetFunction.Transpose(v)
>
> = = = = = = =
> HTH *:>)
> Dana DeLouis

Use following code:

Range(YourRange).value=worksheetfunction.transpose(MyArr)