Ir ao conteúdo
  • Cadastre-se

Código para Pop-Up


Posts recomendados

Boa noite amigos!

 

Como fazer uma Macro que ao posicionar o mouse na celula K5, apareça um pop-up com o conteudo da celula AP5. Preciso que funcione em toda a coluna, K5 à K2000 com o devido pop-up da coluna AP.

 

OBs: Meu Excel é 2003 e o numero de caracteres na coluna AP é de 253

Muito grato a todos
Carlos

Link para o comentário
Compartilhar em outros sites

Bom dia Zinho!

Pois é, com imagens eu já utilizo mas agora, pra aprimorar ainda mais minha planilha preciso que seja com o conteúdo da celula tdeu!!

Aguardo...


Bom dia Zinho!

Pois é, com imagens eu já utilizo, mas agora pra aprimorar ainda mais minha planilha preciso que seja com o conteúdo da celula tdeu!!

Preciso tbém que seja uma Macro (Código)

Aguardo...

Link para o comentário
Compartilhar em outros sites

Veja se atende esse exemplo com shape Não foi possivel posicionar o mouse, tem que selecionar uma celula no intervalo [ k5:k2000 ], aparecerá um pop-up (vide imagem), com o conteudo da coluna "AP" e respectiva linha selecionada. Selecionando um intervalo diferente, o Pup-up some automaticamente.

Obrigado  @vagnersouza1976, pelos elogios no outro post,ainda sou um aprendiz. :D
 
imagem1.jpg

Pop-Up_Cell.zip

  • Curtir 2
Link para o comentário
Compartilhar em outros sites

Basole, muito agradecido à sua colaboração!!

 

E perfeito!! Testei no 2007 e Era isso mesmo que eu queria, apesar de ter que selecionar a celula. Mas tá ótimo!!

O problema é que preciso que funcione no Excel 2003 (No trabalho), tem jeito???

 

Um abraço à vocês!!

No aguardo...

Link para o comentário
Compartilhar em outros sites

Basole boa tarde!!

Bem, o que preciso é +/- isso mesmo, Show de bola!! Tamos quase lá! Rsss

Mas, vamos aos detalhes:

 

Quando adaptei o código em minha planilha, todas as palavras na coluna K ficaram com Sublinhados de Link e tbém as demais colunas perderam as formatações de caracteres, tipo, Fonte e Tamanho, ficando diferentes do pré-definidos.

 

Tem como fazer as palavras ficarem sem os sublinhados ??

Tem como deixar o Pop-Up com apenas uma linha com no máximo 253 caracteres e se posicionando à esquerda de K ??

 

A propósito, CTRL+q não funciona aqui, é somente pelo Executar Sub/User

Se tiver tbém como deixar isso automático, ficará ótimo!!

 

No aguardo...

Obrigadoo!! :D

Link para o comentário
Compartilhar em outros sites

Boa tarde Osvaldo!!

 

Não descartando o que o Basole já fez até agora porque irá ficar muito bom tbém, mas Como eu faço isso veiii??? Comentário de Célula!!

 

Não seria celula a celula não nehh!!?? Tem que ser tudo automático, porque são mais de 2.000 linhas!!

E Lembrando, meu Excel é 2003 Ok!! Rsssss

 

No aguardo...

Link para o comentário
Compartilhar em outros sites

E Lembrando, meu Excel é 2003 Ok!! Rsssss

 

Desapega! Anuncia na OLX...kkkkk

 

Além das excelentes opções já sugeridas se quiser experimentar mais esta, instale os dois códigos abaixo no módulo da planilha, assim:

1. copie os códigos daqui

2. clique com o direito na guia da planilha de interesse e escolha 'Exibir código'

3. cole os códigos na janela em branco que vai se abrir

4. feito! 'Alt+Q' para retornar para a planilha e testar

 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Row < 5 Or Target.Column <> 11 Then Exit Sub Cancel = True Columns(11).ClearComments Target.AddComment.Text Text:=Range("AP" & Target.Row).Address(0, 0) & "=" & Range("AP" & Target.Row).ValueEnd Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Columns(11).ClearCommentsEnd Sub

funcionamento - ao dar duplo clique em qualquer célula da coluna "K", a partir da linha 5, será adicionado/exibido o comentário da célula clicada com o conteúdo da célula da coluna "AP", mesma linha. Ao selecionar outra célula o comentário será removido.

 

Link para o comentário
Compartilhar em outros sites

Blzzz!!

Vou testar jáaa!!

valeu!

 

 

 

Peeerfeito Osvaldo!! Ótimo!!

Fica só a questão:

 

Tem como deixar o Pop-Up com apenas uma linha com no máximo 253 caracteres e se posicionando à esquerda de K ??

 

Queria tbém, sem as referências das celulas AP??= pois não preciso que as mostre ok!

 

Brigadaum veiiii :)

Link para o comentário
Compartilhar em outros sites

jcgmc, segue em anexo uma nova versao, c/ recurso quase semalhante a celulas c/ comentario do exemplo do Osvaldo. Nesse caso em relação a versao anterior (hyperlink), não basta posicionar o mouse, tem que selecionar a celula. 

O conteudo do POP-UP , atualizará automatico conforme as alterações forem feitas no intervalo (AP5:AP2000), ou pelo botao e atalho.

 

imagem3.png

 

Tem como fazer as palavras ficarem sem os Sublinhados de Link ??

Realmente esses links incomodam. Nesta versão nao tem links e nem alteração de formatação de celulas

 

Tem como deixar o Pop-Up com apenas uma linha com no máximo 253 caracteres e se posicionando à esquerda de K ??

 Não. Neste versao eu usei o recurso  "msg. da Validação de Dados". A desvantagem em relação a 1ª versao (c/ uso de shapes), é que nao é possivel alterar as propriedades: tamanho, posicao, cor do texto, tam. texto, fonte do texto, e cor de fundo do popup. Vai ficar sempre desse jeitao mesmo (vide imagem), só altera de tramanho de acordo c/ o conteudo.  

 

A propósito, CTRL+q não funciona aqui, é somente pelo Executar Sub/User

Se tiver tbém como deixar isso automático, ficará ótimo!!
Nesta versao, nao esqueici de habilitar o atalho de teclado [ cltr + q ] . Quando for 'passar' o codigo p/ sua planilha, aperte as teclas [ Alt + F8 ], ao abrir a janela em opções insira a LETRA que deseja para hablitar o atalho.  

Pop-Up_Cell-Validacao.zip

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

Tem como deixar o Pop-Up com apenas uma linha com no máximo 253 caracteres e se posicionando à esquerda de K ??

 

Queria tbém, sem as referências das celulas AP??= pois não preciso que as mostre ok!

 

 

Testaí, véiiii... :P

Se houver na coluna "AP" células preenchidas com mais de uma linha, inseridas via Alt+Enter, será preciso ajustar o código. Nesse caso sugiro que você disponibilize uma amostra do seu arquivo com somente alguns exemplos do que contém aquela coluna.

Se a célula da coluna "AP" estiver vazia o comentário não será adicionado à célula clicada em "K", mesma linha. ;)

Mantenha o outro código.

Dica - não precisa selecionar a célula antes de dar duplo clique. É só pairar com o cursor do mouse sobre a célula destino e clicar. ;)

 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Row < 5 Or Target.Column <> 11 Or Range("AP" & Target.Row).Value = "" Then Exit Sub  Cancel = True: Columns(11).ClearComments    Target.AddComment.Text Text:=Left(Range("AP" & Target.Row).Value, 253)    With Target.Comment     .Shape.TextFrame.AutoSize = True     .Visible = True     .Shape.Top = Target.Comment.Parent.Top - 20     .Shape.Left = Target.Comment.Parent.Left - 200    End WithEnd Sub
Link para o comentário
Compartilhar em outros sites

Se quiser alterar algum item da formatação a função de cada comando está comentada.

 

 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Target.Row < 5 Or Target.Column <> 11 Or Range("AP" & Target.Row).Value = "" Then Exit Sub
  Cancel = True: Columns(11).ClearComments
    Target.AddComment.Text Text:=Left(Range("AP" & Target.Row).Value, 253)
    With Target.Comment
     .Shape.TextFrame.AutoSize = True
     .Visible = True
     .Shape.Top = Target.Comment.Parent.Top - 20
     .Shape.Left = Target.Comment.Parent.Left - 200
    .Shape.Fill.ForeColor.SchemeColor = 11 'cor de preenchimento
      With .Shape.TextFrame.Characters.Font
        .ColorIndex = 3 'cor da fonte
        .Size = 8 'tamanho da fonte
        .Name = "Arial Black" 'tipo da fonte
      End With
    End With
End Sub

 

 

 

Link para o comentário
Compartilhar em outros sites

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Row < 5 Or Target.Column <> 11 Or Range("AP" & Target.Row).Value = "" Then Exit Sub  Cancel = True: Columns(11).ClearComments    Target.AddComment.Text Text:=Left(Range("AP" & Target.Row).Value, 253)    With Target.Comment     .Shape.TextFrame.AutoSize = True      If .Shape.Width > 700 Then .Shape.Width = 700     .Shape.Height = .Shape.Width / 18     .Visible = True     .Shape.Top = Target.Comment.Parent.Top - 20     .Shape.Left = Target.Comment.Parent.Left - 200     .Shape.Fill.ForeColor.SchemeColor = 11 'cor de preenchimento      With .Shape.TextFrame.Characters.Font        .ColorIndex = 3 'cor da fonte        .Size = 8 'tamanho da fonte        .Name = "Arial Black" 'tipo da fonte      End With    End WithEnd Sub

Carlos, testaí ...

Quanto ao acerto da largura da caixa do comentário faça por tentativas porque não sei o tamanho da sua tela.

Se quiser aumentar a largura da caixa aumente o 700 nas duas ocorrências na linha abaixo que está no código acima. Se quiser diminuir, diminua o 700.

If .Shape.Width > 700 Then .Shape.Width = 700

 

Se quiser alterar a altura, altere o 18 na linha abaixo.

.Shape.Height = .Shape.Width / 18

Link para o comentário
Compartilhar em outros sites

Osvaldo!!

Seguinte, "com e sem" os devidos ajustes no código, está ocorrendo que alguns textos estão se ajustando perfeitamente em uma ou duas linhas conforme o tamanho do texto. Mas, já várias outras celulas, não. Pois ao clicar, aparece apenas um tracinho da celula. É tipo, não importa o valor que se coloca no ajuste. Não são todas as celulas que obedece conforme o valor tndeu!!

 

Aguardo...

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novas respostas.

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...