Página 1 de 1

[Resolvido] Limpeza Automática de Célula

Enviado: 06 Set 2021 às 16:16
por CAMILOALVES01
Boa Tarde!
A principio a célula C13 está subordinada a célula C12, ou seja, escolhe-se uma área em C12 (por exemplo Estrutura Trole) e na célula C13 aparecem somente os itens correspondentes, nesse caso vão aparecer 11010 a 11050.
O problema: caso se apague a célula C12 sem apagar dados da célula C13, do jeito atual que está, permite escolher quaisquer áreas, e aí gera a insubordinação entre as células C12 e C13 o que geram dados errados.
O Pedido de Ajuda: Que, caso o usuário apague Somente o dado da célula C12, se esquecendo de apagar o dado célula C13, que automaticamente se apague/limpe o dado da célula C13.
Desde já Agradeço

Re: Limpeza Automática de Célula

Enviado: 06 Set 2021 às 17:04
por osvaldomp
CAMILOALVES01 escreveu: 06 Set 2021 às 16:16 O problema: caso se apague a célula C12 sem apagar dados da célula C13,... o que geram dados errados.
Além disso, ao alterar o conteúdo de C12 igualmente o conteúdo de C13 se torna inconsistente até ser alterado manualmente. Para evitar essa inconsistência tanto ao apagar quanto ao alterar C12 eu sugiro o código abaixo.
Código: Selecionar todos
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$C$12" Then [C13] = ""
End Sub
#
Mas se você preferir limpar C13 somente no caso de o usuário limpar C12 então utilize esta abaixo.
Código: Selecionar todos
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$C$12" And Target.Value = "" Then [C13] = ""
End Sub

Re: Limpeza Automática de Célula

Enviado: 08 Set 2021 às 08:34
por CAMILOALVES01
Prezado osvaldomp - 06 Set 2021 às 17:04
Primeiramente muito obrigado por dispor de seu tempo e conhecimentos para ajudar-me.
Você tem toda razão em sua análise e o melhor é ficar com sua sugestão adotando a solução Nº1
No Mais...Perfeito!
DEUS continue te dando sabedoria.
Atenciosamente