Notifications
Clear all

Emitir Mensagem no excel (msgBox)

7 Posts
2 Usuários
0 Reactions
1,364 Visualizações
Paulinho_Mellin
(@paulinho_mellin)
Posts: 17
Active Member
Topic starter
 

Pessoal, estou com um probleminha e gostaria da ajuda de vocês.
Bom tenho uma planilha bem simples, com formulas simples.,,... esta é utilizada para controle de produtos. gostaria que quando algum dos produtos atingisse o valor <= ao valor de estoque mínimo, o Excel me enviasse uma mensagem ao "sempre" (ao abrir e ao abastecer a planilha) ate que este estoque seja reposto.
seriam duas mensagem...uma avisando que o estoque mínimo foi atingido e a seguinte mensagem (pode ter um botão opcional para abrir a segunda mensagem ou não) ...porem na segunda mensagem mostraria a LISTA de produtos que atingiram o estoque mínimo e se fazem necessário a reposição.!! NAO SEI se fui claro na minha descrição , mas estou enviando em anexo uma planilha mais ou menos igual a que eu uso.

desde já agradeço a atenção.

 
Postado : 05/02/2015 7:07 am
(@gtsalikis)
Posts: 2373
Noble Member
 

Fiz 3 sugestões pra vc.

A primeira, usa apenas formatação condicional, o que eu usaria, com uma cor gritante.

A segunda, usa uma fórmula na planilha, e notifica por msgbox uma única vez, ao abrir a planilha.

A terceira, eu criei uma função UDF chamada F_MSGBOX que vai te dar uma msgbox toda vez que tiver um produto precisando de reposição. Com isso, vc pode inclusive personalizar o texto par indicar qual o produto a ser reposto, como no exemplo.

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 05/02/2015 7:51 am
Paulinho_Mellin
(@paulinho_mellin)
Posts: 17
Active Member
Topic starter
 

gtsalikis, muito obrigado pelas sugestões, mas a 3º foi a que eu estava pensando. Contudo não intendi a aplicação dela direito.... e irei mandar a copia da minha planilha que irei utilizar... pq não entendi como o vba esta funcionando na planilha .... ela apareceu uma mensagem dizendo para "verificar", mas vc cita que da pra alterar a mensagem e ainda mostrar quais itens estão em falta, mas não consegui altera-la.

Peço que se possível me detalhar o VBA utilizado. como eu disse, gostaria da mensagem ao abrir a planilha como você fez , e nessa mensagem ter um botão que rodasse outro VBA que mostrasse uma caixa com quais produtos estão abaixo do limite tolerado.

Desculpe a forma "confusa" de expressar ae.

abço

 
Postado : 05/02/2015 9:58 am
(@gtsalikis)
Posts: 2373
Noble Member
 

Veja, eu criei a seguinte função pra vc:

Function F_MSGBOX(vComp1 As Double, vComp2 As Double, msg As String) As Double

Ela tem 3 argumentos, sendo que:

vComp1 - é o estoque mínimo

vComp2 - é a operação que vc fez, de contar a entrada menos a saída

msg - é a mensagem que vc vai receber.

Aplicando na fórmula, ficou assim:

=F_MSGBOX(D6;ENTRADA!AH4-SAIDA!X4;"estoque de "&B4&" precisa de reposição")

Veja:

D6
é, como falei, o estoque mínimo;

ENTRADA!AH4-SAIDA!X4
é a fórmula que vc já estava usando

Minha função vai comparar os 2, se o resultado da tua fórmula for menor do que o estoque mínimo, vai te dar uma mensagem na tela.

Essa mensagem está aqui:
"estoque de "&B4&" precisa de reposição"

Eu configurei para aparecer escrito o texto:
"estoque de "

juntamente com o que estiver escrito na célula B4 (que seria o nome do produto), e juntamente com:

" precisa de reposição"

O resultado seria algo tipo

"estoque de lápis precisa de reposição" (só um exemplo).

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 05/02/2015 10:08 am
Paulinho_Mellin
(@paulinho_mellin)
Posts: 17
Active Member
Topic starter
 

Perfeito amigo, só que aquela mensagem ao abrir a planilha

Private Sub Workbook_Open()

If Sheets("painel Abertura").Range("E2").Value2 > 0 Then MSGBOX "Estoque mínimo atingido. Verifique."

End Sub

não esta mais aparecendo como na primeira planilha que você me mandou..... nessa planilha que você me mandou esta aparecendo somente esta que você explicou..

mas de qualquer forma ficou muito bom, era exatamente o que eu estava procurando!!!

desde já muito obrigado por sua atenção e ajuda.

 
Postado : 05/02/2015 10:36 am
(@gtsalikis)
Posts: 2373
Noble Member
 

Não sabia que vc queria aquela também.

Veja agora.

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 05/02/2015 10:55 am
Paulinho_Mellin
(@paulinho_mellin)
Posts: 17
Active Member
Topic starter
 

Olá gtsalikis, MUITO OBRIGADO PELA AJUDA...ficou exatamente como eu queria!!! você é realmente ninja hahahaha
Nem sei como agradecer...abraço e ate mais

Finalizando essa postagem....

Atenciosamente

Paulo M.

 
Postado : 05/02/2015 11:45 am