Este fórum está sendo desativado

[CAMILOALVES01]

Bom Dia!
Atualmente existe uma macro na planilha “Inserir OS” que funciona assim: Quando a digitação é realizada na célula F6 (Data Fim OS) e escolhe-se na célula F7 (Status) valores que sejam diferentes de “Cancelada” ou “Encerrada”, a macro cumpre seu papel e rejeita essa combinação, emitindo inclusive uma mensagem de alerta.
O BUG: Quando escolhe primeiramente valores na célula F7 (Status) que sejam diferentes de “Cancelada” ou “Encerrada” e por último a digitação é realizada na célula F6 (Data Fim OS), aí erroneamente o sistema está permitindo a inclusão.
Em suma: se possível, manter a crítica atual acrescentado solução para contorno do BUG.
Desde já agradeço

[osvaldomp]

Salve, CAMILOALVES01 » 31 Ago 2021 às 09:46.

Experimente o código abaixo no lugar do existente.

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
 If Intersect([F6:F7], Target) Is Nothing Or Target.Value = "" Then Exit Sub
  If [F6] <> "" And [F7] <> "Encerrada" And [F7] <> "Cancelada" Then
   MsgBox ("Insira apenas 'Encerrada' ou 'Cancelada'em F7"): [F7] = ""
  End If
End Sub

[CAMILOALVES01]

Caríssimo osvaldomp - 31 Ago 2021 às 14:12 Boa Tarde,
Primeiramente Muito Obrigado Por Dispor de Seu Tempo e Conhecimentos Para Ajudar-me.
No Mais......Perfeito!
Minha Sincera Gratidão Pela Sua Ajuda.
Atenciosamente

[CAMILOALVES01]

Prezado osvaldomp - 31 Ago 2021 às 14:12 Boa Tarde,
Desculpe o Incomodo, Precisaria Também "brancar" a célula F8, assim como Você Fez Com a célula F7.
Atenciosamente

[osvaldomp]

Salve, @CAMILOALVES01 .

Acrescente a parte em vermelho, conforme abaixo.

MsgBox ("Insira apenas 'Encerrada' ou 'Cancelada'em F7"): [F7] = "": [F8] = ""