Ir ao conteúdo
  • Cadastre-se
La_Revancha

Excel RESOLVIDO Lista Suspensa pai e dependente

Posts recomendados

Boa tarde Galera!

Preciso que aconteça a seguinte situação:

Quando eu alterar o item da lista Pai, A lista dependente fica em branco caso já tenha sido preenchida.

Achei esse código do VisualBasic:

 

Private Sub Worksheet_Change(ByVal Target As Range)

'Update by Extendoffice 2018/06/04

    Application.EnableEvents = False

    If Target.Column = 5 And Target.Validation.Type = 3 Then

        Target.Offset(0, 1).Value = ""

    End If

    Application.EnableEvents = True

End Sub

 

Quando eu mudo item da lista Pai, a célula que fica em branco é a da direta da lista , preciso que seja a que está a esquerda da lista pai, que é a lista dependente.

Alguém que intende de VisualBasic, sabe o que deve ser alterado nesse código?

 

Obrigado!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Coloque o sinal de menos antes do número 1, conforme indicado em vermelho abaixo.

 

Target.Offset(0, -1).Value = ""

  • Curtir 2

Compartilhar este post


Link para o post
Compartilhar em outros sites

@La_Revancha

 

Como a dúvida fi sanada, faltou você marcar o tópico como Resolvido.

Na minha assinatura tem um link para uma instrução que ensina como proceder.

 

[]s

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Boa tarde, Deu certo a correção informada acima, porém agora, se eu digito qualquer valor nas outras células onde não tem lista suspensa aparece essa mensagem, e o código para de funcionar, podem ajudar nessa?image.thumb.png.8b4639fb37b468200f96f29033a35475.pngimage.thumb.png.1aef7626dd7c9181e04e7651aa792319.png

Compartilhar este post


Link para o post
Compartilhar em outros sites
17 horas atrás, La_Revancha disse:

 ... porém agora, se eu digito qualquer valor nas outras células onde não tem lista suspensa aparece essa mensagem, e o código para de funcionar, podem ajudar nessa?

 

Vale comentar que esse "porém agora" não procede, pois esse travamento do código não é consequência do sinal de menos, e já ocorria antes, veja que a linha pintada de amarelo no código antecede a linha em que foi colocado o sinal.

 

Em qual intervalo está aplicada a Validação de Dados (lista suspensa) ?

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Lista suspensa Pai

Coluda D, linhas 16 a 30

Lista suspensa Dependente

Coluna C, linas 16 a 30

Compartilhar este post


Link para o post
Compartilhar em outros sites

Ok. Experimente o código abaixo no lugar do existente.

 

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect([D16:D30], Target) Is Nothing Then Target.Offset(0, -1).Value = ""
End Sub

 

  • Curtir 2

Compartilhar este post


Link para o post
Compartilhar em outros sites
Em 12/07/2019 às 19:06, osvaldomp disse:

Ok. Experimente o código abaixo no lugar do existente.

 


Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect([D16:D30], Target) Is Nothing Then Target.Offset(0, -1).Value = ""
End Sub

 

Deu Certo Osvaldo, Muito obrigado pela ajuda!

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

GRÁTIS: minicurso “Como ganhar dinheiro montando computadores”

Gabriel TorresGabriel Torres, fundador e editor executivo do Clube do Hardware, acaba de lançar um minicurso totalmente gratuito: "Como ganhar dinheiro montando computadores".

Você aprenderá sobre o quanto pode ganhar, como cobrar, como lidar com a concorrência, como se tornar um profissional altamente qualificado e muito mais!

Inscreva-se agora!