Wagner,
Obrigado pela resposta!
A ideia do codigo é "desembaralhar" as colunas de uma planilha. Por exemplo:
.....A.....B......C.....D.....E
1....C.....L......L.....S.....E
2
3
4
5
O Vetor Ordem recebe a ordem correta com os números das colunas, como abaixo:
Ordem(1)=1
Ordem(2)=5
Ordem(3)=3
Ordem(4)=2
Ordem(5)=4
E o vetor Valor recebe os valores contidos nas células, de acordo com essa ordem.
Valor(1)=C
Valor(2)=E
Valor(3)=L
Valor(4)=L
Valor(5)=S
Para que ele seja descarregado depois em outra planilha:
.....A.....B......C.....D.....E
1....C.....E......L.....L.....S
2
3
4
5
Por isso a ideia do código:
Para carregar o vetor valor:
For n=1 to i(5 no caso)
Valor(n)=Cells(1,Ordem(n)).Value
Next
E para descarregar:
For n=1 to i
Cells(1,n).Value=Valor(n)
Next
Espero que consiga entender. rs'
Lembrando que declarei o vetor Valor como Variant, pois as informações podem ser datas, valores, nomes, etc... e Ordem como Integer.
Postado : 17/11/2015 10:33 am