Add array elements to dictionary

[Tejas Kore]

Hi Friends,

I am facing a error "Subscript out of range".
I am trying to add array names to dictionary.

column_arr_1 = Array("X1", "Y2")
column_arr_2 = Array("Z3", "A1")
column_arr_3 = Array("B1", "C1")
column_arr = Array(column_arr_1, column_arr_2, column_arr_3)

For i = 1 To UBound(column_arr) - LBound(column_arr) + 1
a.Add i, column_arr(i)
Next i

I am unable to understand where I am commiting the mistake ?
Is there any alternative to do this ?

 

[Fennek]

Hello,

this is my example (based on snb code):

Sub test()
sn = Cells(1).CurrentRegion
With CreateObject("scripting.dictionary")
    For i = 2 To UBound(sn)
        c00 = sn(i, 1)
        If Not .exists(c00) Then
            .Item(c00) = Array(sn(i, 1), sn(i, 2), sn(i, 3))
        End If
    Next i
    Cells(2, 5).Resize(.Count, 3) = Application.Index(.items, 0, 0)
End With
End Sub

Maybe it helps.

regards

 

[Marcelo Branco]

Hi Friends,

I am facing a error "Subscript out of range".
I am trying to add array names to dictionary.

column_arr_1 = Array("X1", "Y2")
column_arr_2 = Array("Z3", "A1")
column_arr_3 = Array("B1", "C1")
column_arr = Array(column_arr_1, column_arr_2, column_arr_3)

For i = 1 To UBound(column_arr) - LBound(column_arr) + 1
a.Add i, column_arr(i)
Next i

I am unable to understand where I am commiting the mistake ?
Is there any alternative to do this ?

Maybe with this adjustment

For i = 1 To UBound(column_arr) - LBound(column_arr) + 1
    a.Add i, column_arr(i [COLOR=#ff0000]- 1[/COLOR])
Next i

M.

 

[Tejas Kore]

Thanks a LOT Marcelo !!!
It worked perfectly fine.
I guess u r a REAL MADRID fan

 

[Marcelo Branco]

You are welcome. Glad to help

Real Madrid vs Gremio tomorrow. Real Madrid is a much better team and must win, but in football you never know what will happen.
I live in Rio and I support Fluminense - a traditional team full of glories
But at the moment going through financial problems and not being able to hire good players.

All the best

M.