Excel Concatenando Objeto Vba do Excel

[Ismael Garcia]

Pessoal preciso criar um código que recebe uma variável para que ela seja concatenada com o restante do objeto 

No caso em questão o objeto é uma listbox 

Segue o modelo genérico do código porém que não funciona

 

For i=1 to 8

Listboxi.add 

Listboxi.list(0,0)="codigo exemplo" 

Listboxi. List(1,0)="codigo exemplo" 

Next i

 

Esse modelo é bem genérico porém é exatamente isso que preciso resolver 

Tenho várias listbox e a diferença entre o nome delas é só o número que eu coloquei no final, preciso carregar os mesmos dados para todas as listas 

Sendo assim gostaria que ao invés de eu ter que fazer o código para carregar cada lista, gostaria de rodar esse código que passa por todas elas dentro do for 

O problema que o vba não aceita desta forma, ele não reconhece como listbox1, listbox2 e assim por diante 

Como faço para resolver isso 

[Midori]

@Ismael Garcia Seu código pode ter outro loop para listar os objetos do formulário com o critério para pegar os ListBox, p.ex,

 

For Each Controle In Me.Controls
    If TypeName(Controle) = "ListBox" Then
    ...
    End If
Next Controle

 

Aí é só usar a variável Controle em vez de Listbox1, 2, etc.