Notifications
Clear all

Macro para atualizar células

8 Posts
1 Usuários
0 Reactions
1,189 Visualizações
(@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

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

Bom dia!!

Seu enunciado não está claro!!

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

Att

 
Postado : 29/09/2012 8:18 am
(@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 ;)

 
Postado : 29/09/2012 9:12 am
(@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.....
 
Postado : 29/09/2012 9:13 am
(@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
 
Postado : 29/09/2012 9:21 am
(@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!

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

Nos teste que fiz nop seu exemplo, funciona
Veja

 
Postado : 29/09/2012 12:10 pm
(@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!

 
Postado : 30/09/2012 1:09 pm