Se eu entendi sua necessidade, este codigo atende.
Abra a planilha
Alt + F11
Cole este codigo.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim W As Worksheet
Set W = Sheets("PLANILHA1")
If Target.Column = 2 Then
If Target.Cells.Value = "PRODUTO A" _
Or Target.Cells.Value = "PRODUTO B" Then
MsgBox "DIGITE A SUA MENSAGEM", vbOKOnly, "DIGITE UM TITULO"
End If
End If
End Sub
Marcelo Prudencio
Microsoft Excel Brasil no Facebook
"Começar já é a metade do caminho."
Autor Desconhecido
Simplifica que simples fica.
Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.
Postado : 04/08/2021 8:32 pm