Este fórum é destinado a postagens relacionadas ao projeto Excel Live - Aulas ao Vivo
Aulas de Excel ao vivo, toda segunda-feira a partir das 20h
Por MarceloAdriano 27 Mai 2016 às 00:06
Membro 2 Estrelas
Mensagens: 145
Reputação: 5
#11039
Olá
Gostaria de uma MsgBox quando a célulala "A1" = "Habilitar" então MsgBox "Você Habilitou com Suesso a Função"; caso contrário se na célular "A1"= "Desabilitar" então Msgbox "Você Desabilitou a função"!

Segue a planilha de exemplo e a ilustração:
S3::putBucket(gurudoexcel-forum): [52] Empty reply from server

Grato
Marcelo Adriano
Por Kledison 27 Mai 2016 às 01:36
Excel Expert
Mensagens: 765
Reputação: 321
#11040
Boa noite Marcelo,

segue uma possibilidade, coloque o código dentro do modulo da Plan1.
Código: Selecionar todosPrivate Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = "$A$1" And Target.Value = "Habilitar" Then

        MsgBox "Você Habilitou com Suesso a Função"

    ElseIf Target.Address = "$A$1" And Target.Value = "Desabilitar" Then

        MsgBox "Você Desabilitou a função!"

Else: Exit Sub
End If
End Sub


Att
Por MarceloAdriano 27 Mai 2016 às 02:22
Membro 2 Estrelas
Mensagens: 145
Reputação: 5
#11043
Olá Kledison
Exatamente isso que procurava, porém não estou conseguindo inserir o código corretamente, talvez por não saber especificar a Worksheet devida.
Segue na integra a planilha na qual estou trabalho, para a devida inserção da Mgsbox referida...

Grato antecipadamente pela sua gentileza
Imagem
Marcelo Adriano
Por Kledison 27 Mai 2016 às 13:11
Excel Expert
Mensagens: 765
Reputação: 321
#11054
Bom dia,

segue conforme solicitado.

Att