Alterar a numeração...
 
Notifications
Clear all

Alterar a numeração das colunas na MACRO

2 Posts
2 Usuários
0 Reactions
782 Visualizações
Kaleo_rs
(@kaleo_rs)
Posts: 0
Trusted Member
Topic starter
 

Bom dia, pessoal!

A minha dúvida é o seguinte. Ao criar uma MACRO que busca os valores específicos de cada LINHA e COLUNA, exemplo abaixo...

Data = Cells(xLin, 1).Value --- COLUNA A
Nome = Cells(xLin, 2).Value --- COLUNA B
valor = Cells(xLin, 3).Value --- COLUNA C
Parcela = Cells(xLin, 4).Value --- COLUNA D
Local = Cells(xLin, 5).Value --- COLUNA E

E quando incluo uma coluna nova na planilha, preciso ir na MACRO e alterar os valores das posições das colunas, a partir da coluna que foi deslocada. No exemplo abaixo inclui a coluna Apelido e tive que alterar o valor da posição partir do campo valor.

Data = Cells(xLin, 1).Value --- COLUNA A
Nome = Cells(xLin, 2).Value --- COLUNA B
Apelido = Cells(xLin, 3).Value --- COLUNA C
valor = Cells(xLin, 4).Value --- COLUNA D
Parcela = Cells(xLin, 5).Value --- COLUNA E
Local = Cells(xLin, 6).Value --- COLUNA F

Existe alguma forma que eu possa atrela a posição da coluna na MACRO?

 
Postado : 30/03/2016 8:56 am
(@edcronos2)
Posts: 346
Reputable Member
 

cara vc pode colocar a linha de cabeçalho e a macro em vez de ir por uma composição fixa vai pelo valor do cabeçalho
primeiro teria que adicionar o cabeçalho em uma matriz que tbm guardaria quais são os destinos dos dados

tipo se seu cabeçalho vai da coluna 1 até a coluna 10 e o nome está na coluna 1
em vez de ir direto na coluna 1 pegar o nome a macro vai varrer a linha de cabeçalho procurando a palavra nome e quando achar vai associar na coluna
mais ou menos algo como
for cabç=1 to 10
if cells(1,cabç).value2="nome" then
colCAB=cabç
exit for
end if
next
Nome = Cells(xLin, colCAB).Value

claro que algo mais dinamico depende do projeto em si e fica difícil opinar com algo mais detalhado
mas tbm eu nem sei se entendi direito oq vc quer

att

 
Postado : 30/03/2016 9:58 am