Como tornar uma célula obrigatória para ser preenchida quando outra célula for alterada?

Question

Se a célula L6 mostrar sim ou não, uma caixa de mensagem aparecerá para confirmar que as células L7 e L8 devem ser preenchidas. Eu vi uma postagem semelhante, mas não consegui fazer a codificação VBA funcionar para minha situação. Qualquer ajuda seria apreciada, obrigado.

Answer 1

Para atingir o objetivo, gostaria de sugerir dois métodos possíveis.

Método 1, Validação de Dados:

• Situação 1, quando a célula L6é preenchida com Yesou No.

---

• Situação 2, quando Cell L6é preenchido com Yesnem No.

---

• Situação 3, quando Cell L6é Blank.

---

Como funciona:

1. Selecione células L7& L8e deGuia DadoscliqueData de validade.
2. DefinirPersonalizadocomo Critérios de Validação e insira esta Fórmula.

=NOT(ISBLANK($L$6))*(OR($L$6="Yes",$L$6="No"))

3. Terminar comOK

---

Método 2, VBA (Macro):

• Clique com o botão direito noGuia Folha& baterVer códigono menu exibido para obter o editor VB.

• Copiar colareste Código comoMódulo Padrãocom a Folha.

  Option Explicit
  
  Private Sub Worksheet_Change(ByVal Target As Range)
  
  If Not Intersect(Target, Range("L6")) Is Nothing Then
  
      If Target.Value = "Yes" Or Target.Value = "No" Then
          MsgBox "Now You Can fill L7 & L8"
      Range("L7").Activate
  
      ElseIf Target.Value <> "Yes" Or Target.Value <> "No" Then
          MsgBox "Target cell must have data Yes Or No,, to fill L7 & L8"
      Target.Activate
      End If
  
      If Target.Value = "" Then
      MsgBox "Target Cell Can't be Blank,,"
      Target.Activate
      End If
  End If
  
  End Sub
  

Observação

• Este código começará a responder assim que você preencher o Cell L6.

• Você pode ajustar as referências de células na fórmula, bem como no código VBA, conforme necessário.