Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
CAIXA DE MENSAGEM /...
 
Notifications
Clear all

CAIXA DE MENSAGEM / VBA

 
2024 - VBA & Macros
3 Posts
1 Usuários
0 Reactions
1,866 Visualizações
RSS
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Possuo uma planilha no qual ela possui uma caixa de listagem com 45 nomes.

Ao alterar o nome da caixa outros dados automaticamente mudam de acordo
com uma planilha base que possuo.

Pois bem, alguem poderia me ajudar simplesmente pois precisaria de uma caixa de
mensagem ao aparecer determinado valor numa celular apareceria uma informação
numa caixa de texto.

Ex: Ao mudar o nome na caixa de joão para jose ...
ele não atingiu a meta conforme a celula X, apareceria a informação
"INFELIZMENTE NÃO BATEU A META"
Ja se ele tivesse batido a meta apareceria a informação
"PARABÉNS, META ATINGIDA"

Tentando Resumir....

Ao mudar o vendedor na caixa de listagem, automaticamente apareceria a informação.
devido a ja ter uma celula com a formula do atingimento de meta.

Poderia fazer uma uma formatação condicional
(vermelho quem não atingiu) e (azul quem ja atingiu)

Mas com a caixa de mensagem automaticamente apareceria essa informação.

Mensagem vinculada a uma formula numa celula.

abraços

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 23/06/2010 3:34 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite, cole este código em Esta_pasta_de_trabalho

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

If sht.Name = "Planilhacomosdados" And Target.Address = "$A$1" Then
    If Range("celula X") > meta Then
    
        MsgBox "Parabéns , Meta atingida!", vbInformation
    Else
        MsgBox "Se esforce mais!", vbInformation
    End If
End If

End Sub

Substitua "$A$1" pela célula de referencia da sua caixa de listagem, e "celula x " pelo endereço de referência para meta atingida ou não.

teste ai e qqer coisa fale

[]´s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 23/06/2010 6:32 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Simulei aqui em casa e não funcionou.

Abri o excel...
na a1 coloquei 10
na b1 coloquei 20
na c1 fiz formula = a1/b1 = 0,5

Seria para aparecer a segunda mensagem... pois so esta com 50%. mas naum funcionou...

A questão é:(duvida tbm) hehehe

1- Esse nome "planilha com os dados" ... o que se referiria?

2- Pediu para colar em Esta_pasta_de_trabalho.
Porem seria somente em uma uma planilha.

3- Ao modo que modificar na caixa de combinação ou lista apareceria a mensagem daria um ok e poderia continuar a ver a planilha com outros dados... porem ao mudar o nome do vendedor ou o resultado da formula ela apareceria a mensagem.

Abraços e obrigado pela ajuda

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 23/06/2010 7:48 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico