Ir ao conteúdo
  • Cadastre-se

La_Revancha

Membros Juniores
  • Total de itens

    7
  • Registro em

  • Última visita

  • Qualificações

    N/D
  1. osvaldomp como sempre salvando nas horas de dificuldade, mais um código pra lista que aprendi com você! Muito Obrigado!
  2. 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 = ""
  3. Deu Certo Osvaldo, Muito obrigado pela ajuda!
  4. Lista suspensa Pai Coluda D, linhas 16 a 30 Lista suspensa Dependente Coluna C, linas 16 a 30
  5. 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?
  6. 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!

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades 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...

Aprenda a ler resistores e capacitores

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!