LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #7   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 35,218
Default array question, referenceing

Are you looking for something like:

arr1 1
2
arr2 a
b
c

The array names in one column and the elements in the column to the right.

If yes:

Option Explicit
Sub testme01()

Dim arr1 As Variant
Dim arr2 As Variant
Dim NamesArr As Variant
Dim RealArr As Variant
Dim iCtr As Long
Dim jCtr As Long
Dim DestCell As Range

arr1 = Array(1, 2, 3)
arr2 = Array("a", "b", "c")

'make sure both of these have the same number of elements!
NamesArr = Array("arr1", "arr2")
RealArr = Array(arr1, arr2)

Set DestCell = ActiveCell
For iCtr = LBound(NamesArr) To UBound(NamesArr)
DestCell.Value = NamesArr(iCtr)
'move over for the first element of the array
Set DestCell = DestCell.Offset(0, 1)
For jCtr = LBound(RealArr(iCtr)) To UBound(RealArr(iCtr))
DestCell.Value = RealArr(iCtr)(jCtr)
'get ready for the next element
Set DestCell = DestCell.Offset(1, 0)
Next jCtr
'come back to original column for next array
Set DestCell = DestCell.Offset(-1, -1)
Next iCtr
End Sub

I'm not sure if NamesArr contained the names of the arrays or the actual
arrays. But in any case, I don't think you're going to use the string as a
variable.

If you did:
Dim NamesArr as Variant
NamesArr = array("arr1","arr2")

Then when you're in the loop, this line:

For Each element In Array(namesarr(S))
is essentially this:
For each element in array("arr1")
and then
For each element in array("arr2")

In either case, you're looping through an array with just one element -- "arr1"
the first time and "arr2" the second time.



Al wrote:

Hey all

I have 2 arrays called arr1 and arr2 (string arrays)

arr1 contains the values 1, 2, 3
arr2 contains the values a, b, c

I have a third array, namesarr (also String), which contains the names
of the first 2 arrays

I am trying to have the following output on my excell sheet

arr1
1
2
3
arr2
a
b
c

Here is the code I am using:

For S = 0 To UBound(namesarr)
ActiveCell.Value = namesarr(S)

For Each element In Array(namesarr(S))
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = element
Next element
Next S

here is what I get:

arr1
arr2

The contents of each of my arrays don't get printed. I am sure that I
am referencing them incorrectly, but I can't figure it out. any help
appreciated. Thanks

Al


--

Dave Peterson
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Referenceing worksheets in excell 2003 At a loss Excel Discussion (Misc queries) 1 June 18th 08 04:51 AM
indirect function referenceing changing file name Spike Excel Worksheet Functions 3 January 4th 07 01:58 PM
cross referenceing data in excel Dave O'Connor Excel Discussion (Misc queries) 3 October 9th 05 01:19 PM
Excel 2003 - referenceing the active worksheet page in vlookup Ernst Excel Worksheet Functions 4 November 6th 04 11:23 PM
Array Question andym Excel Programming 3 September 2nd 04 02:34 PM


All times are GMT +1. The time now is 12:03 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"