How to optimize my code 2

[JensKKK]

Is there a more elegant way to assign data to an array?

Thanks for your help.

source(1) = 5000
source(2) = 6000
source(3) = 7000
source(4) = 8000
source(5) = 12000
source(6) = 13000

Page_Name(1) = "Average"
Page_Name(2) = "T-Test"
Page_Name(3) = "% Inhibition"
Page_Name(4) = "dRFU"
Page_Name(5) = "Standard Deviation"
Page_Name(6) = "Coefficient of Variation"

 

[mintjulep]

Yes.

 

[Chance1234]

same thing as from your earlier thread, you can assign to an array using hte same method

thread707-1387719

Dim Page_name()

Page_name = array("average",T-test",drFU)

Chance,

F, G + B

 

[combo]

Ii's not more elegant and applies only to variant variable, but could be shorter:

Option Base 1

Sub UseArray()
Dim Source, Page_Name
Source = Array(5000, 6000, 7000, 8000, 12000, 13000)
Page_Name = Array("Average", "T-Test", "% Inhibition", "dRFU", "Standard Deviation", "Coefficient of Variation")
For i = 1 To 6
    MsgBox Source(i), vbOKOnly, Page_Name(i)
Next i
End Sub

combo

 

[JensKKK]

Thanks Chance & Combo.

I should have remembered my own thread.

 

[SkipVought]

You might also consider storing the array elements in a table on a hidden sheet. Then load the array from the table. Much easier to maintain than data in code.

Skip,

_{When a wee mystic is on the loose..
It's a Small Medium at Large!}

 

[Chance1234]

happens to the best of us , especially on friday afternoons

Chance,

F, G + B