Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Msgbox com função SE

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
Erikson



Mensagens : 21
Data de inscrição : 15/08/2011

MensagemAssunto: Msgbox com função SE   Dom Set 25, 2011 12:08 am

Boa noite,
Em uma userform coloquei em um rotulo o evento (MouseMove)
sendo assim quando passo o mouse em cima do rotulo executa minha macro,
no caso uma msgbox, e o conteudo dessa msgbox é igual o de uma celula,
utilizando (MsgBox Range("B1")).
Gostaria de saber como fazer para a
msgbox ficar condicional, como na formula SE, ou seja se o valo da
celula estiver X executa msgbox A , mas "SE" o valor for Y executa
msgbox B.

Mais ou menos como o exemplo abaixo, mas não com horas e sim com o valor que eu determinar:

Select Case Time
Case Is < TimeValue("12:00:00"): MsgBox "Bom Dia " & Application.UserName & " !"
Case Is >= TimeValue("19:00:00"): MsgBox "Boa Noite " & Application.UserName & " !"
End Select

Ou seja se for < que 12hs msgbox Bom dia, se for >ou= 19hs msgbox Boa noite.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Msgbox com função SE   Dom Set 25, 2011 12:55 am

Boa noite!!!

Tente substituir por "Range"....

Exemplo....

Citação :
Select Case Time
Case Is = Range("B1").value="x": MsgBox "Bom Dia " & Application.UserName & " !"
Case Is = Range("B1").value="x": MsgBox "Boa Noite " & Application.UserName & " !"
End Select

Att...
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Erikson



Mensagens : 21
Data de inscrição : 15/08/2011

MensagemAssunto: Re: Msgbox com função SE   Dom Set 25, 2011 5:21 am

Boa noite Alexandre,

Não deu certo, mas quero resaltar que aquele exemplo do Case Time é só para dar uma ideia do que quero. Na verdade quero que se na celula B1 estiver em branco apareça a msgbox A, se contiver qualquer valor apareça a msgbox B. Ou seja se(B1 < 0; msgbox A), se (B1 >=0; msgbox B). Tipo a formula SE mas pelo VBA.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Msgbox com função SE   Dom Set 25, 2011 2:30 pm

Bom dia!!!!

Como você está usando
Citação :
evento (MouseMove)

Preciso que me mande seu código por inteiro....


Att...
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Erikson



Mensagens : 21
Data de inscrição : 15/08/2011

MensagemAssunto: Re: Msgbox com função SE   Qua Set 28, 2011 1:20 pm

Alexandre obrigado pelo apoio, mas já consegui resolver, ficou assim:

Private Sub Label3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'informando o nome do alarme ativo usando os dados da cel B1, ao pasar mouse no icone "?"

Select Case Range("B1")

'Se os dados forem maiores que 0, executa msgbox "nome do alarme" + conteudo da celula B1 na mesma msgbox.
Case Is > "0": MsgBox "Nome do Alarme: ( " + Range("b1") & " )", vbInformation, "Alarme Atualmente Ativo"
'Se os dados forem iguais ou menores que 0, executa msgbox "Nenhum alarme definido".
Case Is <= "0": MsgBox "Nenhum Alarme Definido!", vbInformation, "Alarme Atualmente Ativo"
End Select
End Sub
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Msgbox com função SE   Qua Set 28, 2011 7:24 pm

Boa tarde!!

Meus parabéns, e obrigado por postar sua solução e pelo retorno ...abraços!! Laughing

Att...
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Msgbox com função SE   Hoje à(s) 8:59 pm

Voltar ao Topo Ir em baixo
 
Msgbox com função SE
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Expressões matemáticas, funções e operadores
» [Resolvido]como usar a função jump to start por codigo?
» [RESOLVIDO]2 funções utilizando a mesma tecla???
» [Vídeo-Aula]Aula 4.1 - Usando funções básicas do draw
» Background - Funções e Variáveis

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: