La_Revancha

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 = ""

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!