La_Revancha

Em 05/03/2021 às 10:46, ppeterk disse:

Veja se lhe atende, meu caro!

Pedido Teste_ppeterk.xlsx 30 kB · 2 downloads

Opa... atende sim, os outros ajustes consigo fazer aqui... Muito obrigado Amigo!

Segue anexo planilha de teste!

Pedido Teste.xlsx

Boa tarde Mestres do EXEL! preciso de uma ajuda para a situação a seguir:

Eu tenho essa validação de dados na célula A17:

=E(NÃO(ÉCÉL.VAZIA(C17));MOD($A17;EXT.TEXTO($C17;1;LOCALIZAR("X";$C17)-1)*EXT.TEXTO($C17;LOCALIZAR("X";$C17)+1;5))=0)

ela não deixa ser digitado valores diferentes do fechamento de caixas da embalagem selecionada na coluna C, na coluna A, ex: celula  C : 2x5, na coluna A não teria

como digitar 15. 

porém tem algumas exceções que é liberado "caixas abertas" no pedido ....

como eu pensei em fazer

Ex:

Se D1="pedido" executa ( =E(NÃO(ÉCÉL.VAZIA(C17));MOD($A17;EXT.TEXTO($C17;1;LOCALIZAR("X";$C17)-1)*EXT.TEXTO($C17;LOCALIZAR("X";$C17)+1;5))=0)

se D1<>"pedido"  ai a celula fica liberada pra digitar qualquer valor...

tentei fazer com o SE mas não consegui...acho que esta faltando alguma coisa....

Desde Já Obrigado!

 osvaldomp como sempre salvando nas horas de dificuldade, mais um código pra lista que aprendi com você! Muito Obrigado!

Bom dia Galera!

Preciso substituir esse código na minha planilha, ele apaga as células a baixo de D16, caso D16 seja alterado,

só que eu preciso que apague 15 células abaixo de D16,como eu só sei usar "IF" xD, fiz esse código gigante,

e a planilha da um loading chatinho quando executa essa ação, alguém pode me ajudar a simplifica-lo:

Desde já Obrigado!

Worksheet                           Change

Private Sub Worksheet_Change(ByVal Target As Range)

 If Not Intersect([D16], Target) Is Nothing Then Target.Offset(1, 0).Value = ""
 If Not Intersect([D16], Target) Is Nothing Then Target.Offset(2, 0).Value = ""
 If Not Intersect([D16], Target) Is Nothing Then Target.Offset(3, 0).Value = ""
 If Not Intersect([D16], Target) Is Nothing Then Target.Offset(4, 0).Value = ""
 If Not Intersect([D16], Target) Is Nothing Then Target.Offset(5, 0).Value = ""
 If Not Intersect([D16], Target) Is Nothing Then Target.Offset(6, 0).Value = ""
 If Not Intersect([D16], Target) Is Nothing Then Target.Offset(7, 0).Value = ""
 If Not Intersect([D16], Target) Is Nothing Then Target.Offset(8, 0).Value = ""
 If Not Intersect([D16], Target) Is Nothing Then Target.Offset(9, 0).Value = ""
 If Not Intersect([D16], Target) Is Nothing Then Target.Offset(10, 0).Value = ""
 If Not Intersect([D16], Target) Is Nothing Then Target.Offset(11, 0).Value = ""
 If Not Intersect([D16], Target) Is Nothing Then Target.Offset(12, 0).Value = ""
 If Not Intersect([D16], Target) Is Nothing Then Target.Offset(13, 0).Value = ""
 If Not Intersect([D16], Target) Is Nothing Then Target.Offset(14, 0).Value = ""
 If Not Intersect([D16], Target) Is Nothing Then Target.Offset(15, 0).Value = ""

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!

Lista suspensa Pai

Coluda D, linhas 16 a 30

Lista suspensa Dependente

Coluna C, linas 16 a 30

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?

Obrigado!

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!