Página 1 de 1

Array - Adicionando dados em nova ARRAY

Enviado: 19 Dez 2021 às 18:50
por felipe2269
Imagem

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

Re: Array - Adicionando dados em nova ARRAY

Enviado: 19 Dez 2021 às 22:16
por osvaldomp
felipe2269 escreveu: 19 Dez 2021 às 18:50 ... 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. ;)

Re: Array - Adicionando dados em nova ARRAY

Enviado: 20 Dez 2021 às 17:24
por felipe2269
Ok obrigado

Re: Array - Adicionando dados em nova ARRAY

Enviado: 20 Dez 2021 às 18:54
por osvaldomp
felipe2269 escreveu: 19 Dez 2021 às 18:50 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.