Notifications
Clear all

Macro para atualizar células

8 Posts
1 Usuários
0 Reactions
1,196 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia pessoal,

estou precisando de ajuda para uma macro de ajuste. Na verdade ela deve atualizar os campos (que são listas pré-definidas) para evitar problemas de cálculo.

Por exemplo:

Coluna 1 = tipo de ativação = pós, pré, controle, internet

dependendo do tipo selecionado, criei uma macro que roda no _change da planilha, que dará opções diferentes de listas na coluna 2 verificando o que colocou na coluna 1

Coluna 2 = (se a ativaçao for um pós) = plano pós 1, plano pós 2, plano pós 3
(se a ativaçao for um controle) = plano controle 1, plano controle 2, plano controle 3
e assim por diante...

Coluna 3 = (depende também da escolha da primeira) = (se for pós) serviço de portabilidade, serviço de migraçao.. enfim

o que acontece é que se o indivíduo preencher que a ativaçao é um pós, depois escolhe o campo do plano, depois o serviço, isso gera um cálculo final pra comissionamento, dai o indivíduo resolve modificar o campo da coluna 1 novamente, tira o pós e coloca uma internet (ou seja, os planos não sao os mesmos, mas a minha planilha nao limpa os campos da coluna 2 e 3 automaticamente, e é isso que eu preciso.)

Finalizando:

Ao preencher a coluna 1, coluna 2 e coluna 3, preciso que, se o usuário voltar na coluna 1 e modificar o valor, as colunas 2 e 3 resetarem automaticamente.

Alguém pode me ajudar?

att.

Rodolfo

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 29/09/2012 8:13 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!

Seu enunciado não está claro!!

Poste um arquivo modelo COMPACTADO, repleto de exemplo!!!

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 29/09/2012 8:18 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde!!

Eu disse COMPACTADO!!!
Por favor Leia os links abaixo, obrigado!!!

Nossas Regras
viewtopic.php?f=7&t=203

Marcar Tópico como Resolvido e Agradecimento
viewtopic.php?f=7&t=3784
Lembre se de usar nossa base de dados (Pesquisa) e a Biblioteca

Como Anexar Aquivos Compactados
viewtopic.php?f=7&t=3841

Abrir Novo Tópico
viewtopic.php?f=7&t=5317
Att ;)

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 29/09/2012 9:12 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Experimente alterar (incluir)

....
    If Target.Column <> 2 Then End
    'é na coluna dois então mudo a validação da coluna 3
    Range(Cells(Target.Row, Target.Column + 1), Cells(Target.Row, Target.Column + 2)).ClearContents
    If Target.Value = "PÓS" Then.....

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 29/09/2012 9:13 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Opps! errei e para acrecentar no final da rotina

...
        End If
    Range(Cells(Target.Row, Target.Column + 1), Cells(Target.Row, Target.Column + 2)).ClearContents
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 29/09/2012 9:21 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Desculpe, até tinha compactado, mas na hora de anexar coloquei o errado!

segue o compactado,

Opps! errei e para acrecentar no final da rotina

...
        End If
    Range(Cells(Target.Row, Target.Column + 1), Cells(Target.Row, Target.Column + 2)).ClearContents
End Sub

tentei adicionar e não tive resultados, mas obrigado mesmo assim!

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 29/09/2012 11:47 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Nos teste que fiz nop seu exemplo, funciona
Veja

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 29/09/2012 12:10 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Hum! Verdade, eu tinha adicionado antes do End If, por isso não rodou.. Agora ta tudo certo, meu muito obrigado!

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 30/09/2012 1:09 pm