Ir ao conteúdo

Posts recomendados

Postado

Olá Amigos, 

 

me desculpem caso haja algo similar, mas não encontrei uma forma de fazer o que preciso, tenho um Dashboard no qual faço apresentação do setor na minha empresa, e gostaria de criar uma VBA que quando clicasse em um botão, surgisse um msgbox com dados de uma tabela (variáveis), é possível?

Postado

Minha tabela excede o limite, fiz uma pequena demonstração, sem dados. Na planilha 1 do exemplo, terei um Dash onde inseri um botão, ao clicar gostaria que mostrasse um pop up com as informaçoes da plan 2 da coluna E2:E11, estes dados são variáveis, mudam constantenente

dash.xlsx

Postado
11 horas atrás, Basole disse:

@Luiz Santana fiz um exemplo baseado nos intervalos de dados que voce enviou

 

Para fechar a janela do pop-up, click sobre ele

 

 

dash_Pop-up.zip 38 kB · 1 download

Ficou top, eu não compreendi a programação, como o excel busca os dados. Na depuração não menciona a fonte. Mas era exatamente isso que precisava, pena que minha base ultrapassa o tamanho, não sei se vou conseguir transcrever

  • Curtir 1
Postado

@Luiz Santana Alerte as teclas [CLTR+F3] para ver a fonte de dados, ou seja o intervalo nomeado como Pop_up. 

Este intervalo está dinâmico, ou seja ele se ajusta confome a qtd de linhas com dados. 

Para ajustar o objeto picture, vá em desenvolvedor e click em modo designer. 

  • Curtir 1
Postado
1 hora atrás, Basole disse:

@Luiz Santana Alerte as teclas [CLTR+F3] para ver a fonte de dados, ou seja o intervalo nomeado como Pop_up. 

Este intervalo está dinâmico, ou seja ele se ajusta confome a qtd de linhas com dados. 

Para ajustar o objeto picture, vá em desenvolvedor e click em modo designer. 

Certo, não entendo de VBA, criei o intervalo com o Nome: Pendentes ficou assim:

=DESLOC('Itens Pendentes-Data Ped'!$E$2;0;0;CONT.VALORES('Itens Pendentes-Data Ped'!$E$2:$E$20);1)

 

porém da erro na execução, tenho que alterar algo mais no código? 

Option Explicit

Sub Picture1_Cancel()
    ActiveSheet.Shapes("Picture 1").Visible = False
End Sub

Sub Picture1_Activate()
With ActiveSheet
        
    .Shapes("Picture 1").Height = Range("Pendentes").Height * 1.6
    .Shapes("Picture 1").Visible = True
    
End With
End Sub

 

Agradeço a força que esta me dando.

Postado

@Luiz Santana provavelmente o objeto Picture não esta presente na sua planilha original.

Neste caso é necessário inserir o referido objeto, ou se preferir, pode copiar do exemplo que fiz, (desta forma ele já "vem" configurado): 

Click no botão, quando o pop-up aparecer, click com o botão direito do mouse e selecione copiar e cole na aba da sua planilha, a principio o pop-up não vai aparecer, mas quando acionar a macro vai que está lá 

 

Postado
Em 06/11/2021 às 15:27, Basole disse:

@Luiz Santana provavelmente o objeto Picture não esta presente na sua planilha original.

Neste caso é necessário inserir o referido objeto, ou se preferir, pode copiar do exemplo que fiz, (desta forma ele já "vem" configurado): 

Click no botão, quando o pop-up aparecer, click com o botão direito do mouse e selecione copiar e cole na aba da sua planilha, a principio o pop-up não vai aparecer, mas quando acionar a macro vai que está lá 

 

Cara agradeço a força e paciência, consegui inserir o Picture e fazer a macro rodar, contudo ela traz a informação da planilha de teste que você mandou. O que pode gerar isso? Como minha planilha não cabe aqui, vou tentar enviar foto20211109_165148.thumb.jpg.497982714c4c0e26b6bdf6b25d7e7434.jpg

Postado

@Luiz Santana provavelmente, quando copiou o objeto Picture, ele veio atrelado com a macro do exemplo

Se for isso... feche o exemplo, caso estiver aberto, click no botão para aparecer o pop-up e sobre ele com o botão direito selecione "Atribuir Macro" e selecione a macro Picture1_Activate 

Pronto! agora só testar. 

 

 

Postado
20 horas atrás, Basole disse:

@Luiz Santana provavelmente, quando copiou o objeto Picture, ele veio atrelado com a macro do exemplo

Se for isso... feche o exemplo, caso estiver aberto, click no botão para aparecer o pop-up e sobre ele com o botão direito selecione "Atribuir Macro" e selecione a macro Picture1_Activate 

Pronto! agora só testar. 

 

 

Amigo, fiz de tudo hj: exclui o Picture, colei novamente, exclui as macros, transcrevi novamente e nada. Eu exclui abas desnecessarias e os graficos e consegui chegar no tamanho para anexar, da uma olhada no arquivo e me diga o que estou errando.

Logística - teste.xlsx

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!