Este fórum está sendo desativado

[felipe2269]

boa noite a todos

Nesse exemplo abaixo, estou tentando atualizar uma nova ARRAY a cada loop ( executado )
Na planilha1.Range("E4:Y4") vai recebendo da Array " planilha2 " ( linha a linha ), quero aproveitar o loop na primeira linha e copiar outro range da planilha1 e ir acumulando essas informações numa nova ARRAY "planilha3" ( para no final descarregar todas de uma vez ),
fiz esse exemplo : planilha3 = planilha1.Range("c16:t16").Value , e só grava uma linha por cima da outra ( só restando a copiada por último na nova array (planilha3 ).

como faço para ir acumulando informações na nova array a cada loop ?

desde já obrigado

--------------------------------------------------------------------------------------------------------------------------------------------------------------

planilha3() as variant

For i = LBound(planilha2) To UBound(planilha2)

planilha1.Range("E4:Y4").Value2 = Application.Index(planilha2, i, 0)


planilha3 = planilha1.Range("c16:t16").Value2


Next i

[osvaldomp]

... ir acumulando essas informações numa nova ARRAY ... e só grava uma linha por cima da outra ...
Sugestão: pesquise sobre o uso do comando ReDim Preserve.

[felipe2269]

Ok obrigado

[osvaldomp]

planilha3() as variant
planilha3 = planilha1.Range("c16:t16").Value2

#
Dica - não utilize expressões reservadas do Excel ou da linguagem VBA para nomear variáveis: Planilha3 é expressão reservada pelo Excel para nomear planilha.
Substitua por exemplo por ArrPlanilha3.