Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Looping through a Type
I'm doubtful you can do what you want with a User Defined Type. Is there
any possibility that a 2 dimensional array would work? Say rArchive(1).sName is rArchive(1)(1) and rArchive(1).iValue is rArchive(1)(2), etc., out through rArchive(1)(95) and then on to rArchive(2)(1), etc, if I follow you. -- Jim "J Streger" wrote in message ... |I have a formula that pulls into an array (icolumnpos) the column position on | a sheet. This array is set as a User Defined Type. (icolumnpos.sName or | icolumnpos.iValue). | | I also have an array with information, using a similar but different named | user defined type, to store information based on category (rArchive(1).sName | or rArchive(54).ivalue). | | I have code at this point that enters information into the sheet, matching | up column position to the array, but it is all hardcoded. I have 95 lines of | code, each telling the code to put this array result into this column. The | only difference between each line is the .sName or .ivalue portions, and they | are the same on both sides of the equation for each. Example: | | cells(iwparray,icolumnpos.sname).value = rarchive(inewwp).sname | | The for next statement increases iwparray and inewwp each loop through. | | I was trying to write something like this: | | dim vcell as variant | | For Each vCell In icolumnpos | Worksheets("Workpackages").Cells(iWPArray, | iColumnPos.vCell).Value = rArchive(iNewWP).vCell | Next | | but this doesn't work. Any suggestions on hwo to make this looping statement | work rather than write the line 95 some times? Any help would be most | appreciated!!! Thanks. | -- | ********************* | J Streger | MS Office Master 2000 ed. | MS Project White Belt 2003 | |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel will not let me type any characters....I can type in Word. | Excel Discussion (Misc queries) | |||
Excel will not let me type any characters....I can type in Word. | Excel Discussion (Misc queries) | |||
how to change all the words of one type(Gunsuh type)to another | Excel Discussion (Misc queries) | |||
Adding new 'Type' to Format->Number->Time->Type | Excel Discussion (Misc queries) | |||
looping through to assign type | Excel Programming |