using variable for array substitution

rabsofty · Jan 15th 2018

I have to arrays UF1() and UF2()

I have dim'ed them

dim UF1(), UF2()

I want to access them with a variable.

Eg:

x = 1
arrname = "UF" & x (arrname will = UF1 or UF2)

then use it below as such

redim preserve arrname( 1 to some number)

Is this possible?

I know you can do this with userform objects. Eg: set obj = me.controls("label" & x)

nilem · Jan 15th 2018

No, it's impossible
maybe something like this

Code

If x = 1 Then
    ReDim Preserve UF1(1 To 5)
Else
    ReDim Preserve UF2(1 To 5)
End If

rabsofty · Jan 15th 2018

thanks Nilem. I thought so. but I asked anyway.

I already have what I need working as a single array. I wanted to split it into to arrays, (one for each userform) but did not want the extra redundant code.

Here's my code

Code

Sub ldcls(me1)
'ld frm objs2 class
  Dim ctl As Control
  ufi = ufi + 1: If ufi = 0 Then tg = 0 Else tg = UBound(Fobj)
  For Each ctl In me1.Controls
    tn = TypeName(ctl): ReDim Preserve Fobj(0 To tg)
    If tn = "CommandButton" Or tn = "ListBox" Then
      Select Case ctl.Name
        Case "HelpBT", "CancelBT", "RefreshBT"
          Set Fobj(tg).BtnGrp = ctl: tg = tg + 1
        Case "drvsLB"
          Set Fobj(tg).LstGrp = ctl: tg = tg + 1
      End Select
   End If
   If tn = "OptionButton" Or tn = "CheckBox" Then
     Select Case Left(ctl.Name, 3)
       Case "Inf", "Rty", "Bop", "Rop", "Tfn"
         Set Fobj(tg).OptGrp = ctl: tg = tg + 1
       Case "EXR"
         Set Fobj(tg).ChkGrp = ctl: tg = tg + 1
     End Select
    End If
  Next ctl
End Sub

Display More

using variable for array substitution

Participate now!

Share