0

Caros, boa tarde eu estou trabalhando em uma tabela dinâmica no excel e eu gostaria que quando fosse digitado o texto loja 10, ele exibisse um aviso que essa loja está indisponível, eu sei que preciso chamar uma messagebox porém não tenho ideia que outra estrutura necessito usar, podem auxiliar por favor?

4
  • eu só quero um exemplo de um código VBA pra quando for digitado "loja 10" em uma célula seja exibido uma messagebox... seria 'messagebox("loja está indisponível")' porém como eu coloco a condicional para a célula? essa é a dúvida que está me atormentando Commented 23/08/2018 às 18:39
  • Por que você não cria um combobox com as lojas possíveis? Seria muito mais fácil. Commented 23/08/2018 às 18:39
  • Qualquer célula de uma planilha? Commented 23/08/2018 às 18:39
  • sim sim, qualquer célula da planilha. @ReginaldoRigo o sistema é antigo de uma loja, teria que reformá-lo inteiro pra implementar de outra forma Commented 23/08/2018 às 18:41

1 Resposta 1

0

Inserir código de Evento

Utilizar o evento Worksheet_Change, em que este deverá ser colocado dentro da planilha em que os dados se encontram. Por Exemplo, no meu caso foi em Planilha1:

Planilha1

Código para uma célula

O código é acionado toda vez que a planilha possui alguma alteração e possui uma condicional que se o valor é igual a "Loja 10".

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo CleanExit
    Application.EnableEvents = False

    If Target.Value = "Loja 10" Then
        Target.Value = ""
        MsgBox ("Não existe Loja 10!")
    End If

CleanExit:
    Application.EnableEvents = True
    On Error GoTo 0
End Sub

Obs.: O evento pode causar lentidão, pois toda vez que uma célula for alterada. Este evento será acionado.

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .