Excel Lista Suspensa pai e dependente

[La_Revancha]

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!

[Visitante]

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

 

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

[La_Revancha]

Obrigado!

[Patropi]

@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

[La_Revancha]

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?

[Visitante]

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) ?

[La_Revancha]

Lista suspensa Pai

Coluda D, linhas 16 a 30

Lista suspensa Dependente

Coluna C, linas 16 a 30

[Visitante]

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

 

[La_Revancha]

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!