Mensagem na celula com critério ao passar o mouse  [Resolvido]

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Mensagem na celula com critério ao passar o mouse

Mensagempor TutoElizeu » Qui Dez 06, 2018 1:38 pm

Boa tarde Senhores,

Estou finalizando um Projeto da Qualidade e preciso de um grande favor! (Acho que essa é bem difícil)
Eu tenho uma planilha com varias abas e:
Na aba "Vendas" coluna "Q" fiz um validador onde se na coluna "P" <1" então mostra na coluna "Q" um carinha de feliz ou triste, porém eu gostaria de ao passar o mouse sobre a carinha triste (Destacada em vermelho) ela mostraria uma mensagem exemplo: " Cliente não Provisionado"

Porém para as outras da coluna "Q" onde está a carinha feliz não mostre nada.

O critério que deixa as carinhas feliz ou triste verifica se a célula da coluna "P" é <1.
Tentei adaptar a macro abaixo, mas sem sucesso.(Talvez eu esteja muito distante de conseguir)
Código: Selecionar todos
Option Explicit

Sub Aviso()
    Dim i As Long
    Dim UltimaLinha As Long
    UltimaLinha = Sheets("VENDAS").Cells(Cells.Rows.Count, 1).End(xlUp).Row
   

    If UltimaLinha < 2 Then UltimaLinha = 2
    For i = 2 To UltimaLinha
    Sheets("VENDAS").Select
        If Range("P" & i).Value = "<1" Then Range("Q" & i).Value = "L"
       

       
    Next
    MsgBox "Cliente não provisionado!", vbDefaultButton1, "ALTERAÇÃO DE DADOS"
   
End Sub


Acha que é possível me ajudar?

Obrigado.
TutoElizeu
Membro
Membro
 
Mensagens: 154
Registrado em: Dom Dez 13, 2015 8:39 pm
Has thanked: 21 times
Have thanks: 2 times

{ SO_SELECT }

Re: Mensagem na celula com critério ao passar o mouse

Mensagempor wagner » Qui Dez 06, 2018 3:46 pm

TutoElizeu,

Boa tarde!

Antes de qualquer coisa, é necessário anexar seu arquivo.
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 4530
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 71 times
Have thanks: 1951 times

Re: Mensagem na celula com critério ao passar o mouse

Mensagempor TutoElizeu » Qui Dez 06, 2018 4:44 pm

Olá Wagner,

Obrigado pelo retorno!

Infelizmente não consegui inserir o arquivo, pois é muito grande tem vários links e não consegui deixa-lo menos, mas fique tranquilo, vou procurando por aqui ok!

Obrigado.
TutoElizeu
Membro
Membro
 
Mensagens: 154
Registrado em: Dom Dez 13, 2015 8:39 pm
Has thanked: 21 times
Have thanks: 2 times

Re: Mensagem na celula com critério ao passar o mouse

Mensagempor wagner » Qui Dez 06, 2018 8:11 pm

Coloca ele num site de compartilhamento de arquivos e cola só o link aqui.
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 4530
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 71 times
Have thanks: 1951 times

Re: Mensagem na celula com critério ao passar o mouse

Mensagempor TutoElizeu » Sex Dez 07, 2018 8:16 am

Bom dia Wagner,

Consegui inserir o arquivo, tirei todas as formula, macros, graficos, botões, linhas e colunas para poder reduzir.


Exemplo: Seder erro de #N/D nas celulas da coluna "A" ao passar o mouse sobre o erro deve mostrar a seguinte mensagem: Atenção! Cliente não consta na tabela de clientes!
Se der erro nas celulas da coluna "I" ao passar o mouse sobre o erro deve mostrar a seguinte mensagem: Atenção! Cliente não provisionado!

Será que dá pra fazer?


Obrigado pela ajuda!
Você não está autorizado a ver ou baixar esse anexo.
TutoElizeu
Membro
Membro
 
Mensagens: 154
Registrado em: Dom Dez 13, 2015 8:39 pm
Has thanked: 21 times
Have thanks: 2 times

Re: Mensagem na celula com critério ao passar o mouse

Mensagempor wagner » Sex Dez 07, 2018 11:15 am

TutoElizeu,

Bom dia!

Entendi... Infelizmente, não existe um evento que seja disparado quando se passa o mouse por cima de uma célula (pelo menos, não nativamente no próprio Excel). Se tiver alguma forma de fazer isso deve ser com o uso de classes.

Assim, com VBA, eu não sei como fazer o que você precisa. Todavia, uma forma de você resolver isso é, por exemplo, inserindo comentários nas células que tiverem esses erros.

Se os erros ocorrerem após digitar alguma coisa, aí sim. Dá para inserir uma caixa de mensagem informando que a célula está com um erro, pois no momento que se digita algo e se tecla ENTER, é disparado o evento Change.
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel

For this post the author wagner thanked:
TutoElizeu (Dom Dez 09, 2018 5:10 pm)
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 4530
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 71 times
Have thanks: 1951 times

Re: Mensagem na celula com critério ao passar o mouse  [Resolvido]

Mensagempor TutoElizeu » Dom Dez 09, 2018 5:11 pm

Obrigado amigo!

Eu coloquei uma legenda que fala qual é o erro!
Deu certo.

Obrigado pela disposição.
Abraços!
TutoElizeu
Membro
Membro
 
Mensagens: 154
Registrado em: Dom Dez 13, 2015 8:39 pm
Has thanked: 21 times
Have thanks: 2 times

Re: Mensagem na celula com critério ao passar o mouse

Mensagempor Patropi » Seg Dez 10, 2018 6:41 pm

TutoElizeu

Se você usar a função SEERRO junto com o PROCV, em vez de retornar #N/D irá retornar o texto que você desejar, como por exemplo "Cliente não cadastrado", sem necessidade de macro e nem comentários.

[]s
Patropi /Moderador
Se a resposta foi útil, clique na mãozinha ao lado da ferramenta Citar.
Avatar do usuário
Patropi
Ninja do Excel
Ninja do Excel
 
Mensagens: 8799
Registrado em: Sáb Jun 05, 2010 4:36 pm
Localização: Campo Mourão - PR
Has thanked: 214 times
Have thanks: 3484 times


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Google [Bot], Google Adsense [Bot] e 5 visitantes