Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Macro ao Selecionar...
 
Notifications
Clear all

Macro ao Selecionar Lista

 
2024 - VBA & Macros
4 Posts
2 Usuários
0 Reactions
943 Visualizações
RSS
 LeandroPR
(@leandropr)
Posts: 9
Active Member
Topic starter
 

A duvida e a seguinte

eu tenho 4 lista de validação de dados nas células j2, j3,j4 e j5
na j2 e a lista de Gerentes
na j3 e a lista de coordenadores
na j4 e a lista de Supervisores
na j5 e alista de lojas

eu já fiz com que as listas apareçam de acordo com o hierarquia, ou seja só aparece os coordenadores do Gerente já selecionado e assim por diante

Uma vez tudo selecionado e eu quero alterar a Gerencia eu quero que ao selecionar as células de coordenadores, supervisores e lojas estejam apagadas. pra evitar que eu tenha uma loja que não e do supervisor a cima ou o supervisor selecionando que não pertence ao coordenador alterado.
a macro deve executar assim que o item da lista seja selecionado.

Caso as linhas a baixo estejam em branco não executar a macro

desde já agradeço a todos

abraços
Leandro

RELATORIO DUVIDA.rar
 
Postado : 22/01/2014 4:21 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 


Leandro, siga os passos abaixo e verifique se o resultado é o esperado:

- clique com o botão direito sobre o nome da guia (RESUMO), selecione 'Exibir código' e cole o código abaixo.

- salve o arquivo como Pasta de Trabalho Habilitada para Macro do Excel (*.xlsm)

Efetue vários testes e indique se atende o pretendido.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = Range("J3").Address Then
Range("J4") = ""
Range("J5") = ""
Range("J6") = ""
ElseIf Target.Address = Range("J4").Address Then
Range("J5") = ""
Range("J6") = ""
ElseIf Target.Address = Range("J5").Address Then
Range("J6") = ""
Else
Exit Sub
End If

End Sub

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

 
Postado : 22/01/2014 5:30 pm
 LeandroPR
(@leandropr)
Posts: 9
Active Member
Topic starter
 

Edson, muito obrigado.

perfeito os comandos. deu certo a aplicação das macros.

muito obrigado

 
Postado : 22/01/2014 9:37 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.

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

 
Postado : 23/01/2014 6:35 am
Forum Jump:
  Tópico Anterior
Próximo Tópico