Notifications
Clear all

Macro Change

11 Posts
4 Usuários
0 Reactions
2,271 Visualizações
(@victor-marassi)
Posts: 81
Trusted Member
Topic starter
 

Bom dia Pessoal,

Como faço para que quando uma célula de uma determinada coluna seja maior q 1, a macro preencha outras células na mesma linha com algumas fórmulas?
No caso, a minha dúvida seria como fazer a macro para todas as células da coluna "variável" e preencher as outras células na mesma linha.

Desde já agradeço.

Att.

 
Postado : 09/10/2013 7:39 am
(@vitor)
Posts: 57
Trusted Member
 

use o "for each"
sintaxe: For Each element In group

onde element= variável para percorrer o group, que é a sua coleção dos objetos

exemplo:

dim x,colecao as range
colecao= Range("A1:A20")

for each x in colecao
      x.Interior.Color= vbYellow
next

'colore o fundo de todas as células de A1:A20 de amarelo

"Nisto se manifestou o amor de Deus em nós: em haver Deus enviado o seu Filho unigênito ao mundo, para vivermos por meio dEle" 1 Jo 4-9

 
Postado : 09/10/2013 10:51 am
(@tacito)
Posts: 67
Trusted Member
 

Não sei se entendi direito o que você quer, mas fiz uma planilha que faz mais ou menos o que você falou. Você só vai precisar definir a fórmula que quer adicionar em cada célula no código.

 
Postado : 09/10/2013 11:21 am
(@victor-marassi)
Posts: 81
Trusted Member
Topic starter
 

Boa tarde pessoal,

Acredito que das duas formas que vocês passaram funcione, mas como eu ainda não conheço muito a linguagem vba para editá-la corretamente, segue um exemplo(anexo) do que estou tentando fazer para ver se poderiam me ajudar.

Digamos que a macro terá que verificar sempre a coluna código.
Quando essa macro verifica que um código foi inserido, automaticamente as fórmulas (procv e etc) que vão buscar as informações no banco de dados serão preenchidas cada uma em sua respectiva coluna. Caso eu retire o código essas fórmulas todas tem de ser apagadas automaticamente.

Desde já agradeço!

 
Postado : 10/10/2013 12:24 pm
depoisteconto
(@depoisteconto)
Posts: 183
Estimable Member
 

Não seria o caso de arrastar sua fórmula PROCV?

At

 
Postado : 10/10/2013 2:46 pm
(@vitor)
Posts: 57
Trusted Member
 

atende ?

"Nisto se manifestou o amor de Deus em nós: em haver Deus enviado o seu Filho unigênito ao mundo, para vivermos por meio dEle" 1 Jo 4-9

 
Postado : 11/10/2013 10:23 am
(@victor-marassi)
Posts: 81
Trusted Member
Topic starter
 

Vitor,

Peço que veja as alterações q fiz se estão corretas, mas em vez de fórmula coloquei para sair o número 1 nas células e quando alterei os códigos na coluna A os números não foram inseridos e nem a fórmula de teste.

De qualquer forma, pelo q entendi da sua lógica é exatamente isso que preciso!

Abraços

 
Postado : 11/10/2013 12:02 pm
(@vitor)
Posts: 57
Trusted Member
 

não tá a prova de erros (não implementei tratamento de erros) , mas já tá melhor.

"Nisto se manifestou o amor de Deus em nós: em haver Deus enviado o seu Filho unigênito ao mundo, para vivermos por meio dEle" 1 Jo 4-9

 
Postado : 11/10/2013 1:17 pm
(@tacito)
Posts: 67
Trusted Member
 

Sei que o vitor está te respondendo, mas acho que esta planilha pode ajudar, dê uma olhada.

Ps. Caso seja inserido um código inexistente na coluna de códigos vai aparecer um aviso de que o código não está cadastrado.

 
Postado : 14/10/2013 6:18 am
(@victor-marassi)
Posts: 81
Trusted Member
Topic starter
 

Boa tarde pessoal,

Só vou poder testar realmente as ideias do Vitor e do Tacito agora, mas pelo que percebi agora sim vai funcionar. Caso tenha mais alguma dúvida eu posto se não, agradecerei e marcarei como tópico resolvido.

Muito obrigado!

 
Postado : 16/10/2013 1:24 pm
(@victor-marassi)
Posts: 81
Trusted Member
Topic starter
 

Muito obrigado pela ajuda Vitor, porém, utilizarei o modelo do tacito, que acaba deletando as fórmulas caso eu retire os códigos das linhas.

Att.

 
Postado : 16/10/2013 2:03 pm