Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Imagem visible em planilha dependendo do número que esta na célula

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
SPP



Mensagens : 37
Data de inscrição : 05/06/2013
Idade : 63
Localização : Muriaé MG

MensagemAssunto: Imagem visible em planilha dependendo do número que esta na célula   Sex Dez 04, 2015 5:34 pm

Boa tarde!

A1=1 visible imagem1 e oculta as outras
A1=2 visible imagem2 e oculta as outras
A1=3 visible imagem3 e oculta as outras
A1=4 visible imagem4 e oculta as outras

Obrigado desde já.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Imagem visible em planilha dependendo do número que esta na célula   Sex Dez 04, 2015 6:54 pm

Boa tarde!!!

O código prepara apenas o raciocínio e não faz de forma perfeita o solicitado, cabe a você adapta-lo!

Esse código deve ser inserido dentro de um módulo de planilha.
Código:
Private Sub Worksheet_Change(ByVal Target As Range)
    Private Sub Worksheet_Change(ByVal Target As Range)
        'Célula alvo de entrada de dados
        If Target.Address = "$A$1" Then
            'Verifica se foi digitado em A1
            Select Case Target.Value
                'Se valor iqual a 1 então mosta a figura1
            Case 1 
                Worksheets("Plan1").Shapes("Figura 1").Visible = True
            Case 2
            'Se valor iqual a 2 então mosta a figura2
                Worksheets("Plan1").Shapes("Figura 1").Visible = False
                Worksheets("Plan1").Shapes("Figura 2").Visible = True
            Case Else
            'Se valor iqual a 3 então mosta a figura3
                Worksheets("Plan1").Shapes("Picture 1").Visible = False
                Worksheets("Plan1").Shapes("Picture 2").Visible = False
                Worksheets("Plan1").Shapes("Picture 3").Visible = True
            End Select
        End If
    End Sub
Veja também:
http://www.get-digital-help.com/2013/10/25/show-and-hide-a-picture-vba/
Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
SPP



Mensagens : 37
Data de inscrição : 05/06/2013
Idade : 63
Localização : Muriaé MG

MensagemAssunto: Re: Imagem visible em planilha dependendo do número que esta na célula   Sex Dez 04, 2015 8:07 pm

Boa tarde!

Digito o 1 em A1 dou enter

Esta dando erro de compilação nome repetido encontrado Worksheet_Change

Obrigado mais uma vez pela colaboração
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Imagem visible em planilha dependendo do número que esta na célula   Sex Dez 04, 2015 8:18 pm

Boa tarde!!!


Então remova o nome repetido!!!!!!!!
Private Sub Worksheet_Change(ByVal Target As Range)

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
SPP



Mensagens : 37
Data de inscrição : 05/06/2013
Idade : 63
Localização : Muriaé MG

MensagemAssunto: Re: Imagem visible em planilha dependendo do número que esta na célula   Sex Dez 04, 2015 8:29 pm

Depois que te enviei, percebi que estava repetido retirei, mas mesmo assim as imagens não ocultam e quando troco o número na célula A1 não acontece nada. Coloquei em activate as 3 imagens como false elas ocultaram.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
SPP



Mensagens : 37
Data de inscrição : 05/06/2013
Idade : 63
Localização : Muriaé MG

MensagemAssunto: Re: Imagem visible em planilha dependendo do número que esta na célula   Sex Dez 04, 2015 8:29 pm

Depois que te enviei, percebi que estava repetido retirei, mas mesmo assim as imagens não ocultam e quando troco o número na célula A1 não acontece nada. Coloquei em activate as 3 imagens como false elas ocultaram.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Imagem visible em planilha dependendo do número que esta na célula   Sex Dez 04, 2015 10:23 pm

Boa noite!!

Eu não se se imagem para vc é o mesmo para o excel e para mim!


Poste seu arquivo modelo (use um site de hospedagem poste o arquivo depois colej o link aqui)!!!!!!!!


Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
SPP



Mensagens : 37
Data de inscrição : 05/06/2013
Idade : 63
Localização : Muriaé MG

MensagemAssunto: Re: Imagem visible em planilha dependendo do número que esta na célula   Sex Dez 04, 2015 11:23 pm

Alexandre

Tentei salvar a planilha para te enviar, mas ela não salvou por isto que não tava funcionando.
Fiz uma nova planilha e funcionou perfeitamente, só que tenho que colocar em activate, porque o número muda automaticamente de acordo com a fase da lua.

Como colocar em activate oque precisa mudar.
Desculpa o transtorno, não entendi o que aconteceu
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Imagem visible em planilha dependendo do número que esta na célula   Sex Dez 04, 2015 11:32 pm

Boa noite!!!

Na seta (dentro do EditorVB), no canto superior direito, mudea para

Private Sub Worksheet_Activate()
, ou o que desejar.

Lembre se cada evento tem sua própria característica (neste caso, so vai executar o código, quando selecionar a guia, neste caso uma única vez em cada vez que selecionar a guia), o evento anterior verifica se A1 mudou o valor toda vez que for alterado e executa o código, o que não funciona com formula (neste caso já outro evento).


Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
SPP



Mensagens : 37
Data de inscrição : 05/06/2013
Idade : 63
Localização : Muriaé MG

MensagemAssunto: Re: Imagem visible em planilha dependendo do número que esta na célula   Sex Dez 04, 2015 11:37 pm

Colei em activate, mas não funciona da erro em If Target.Address = "$A$1" Then
Voltar ao Topo Ir em baixo
Ver perfil do usuário
SPP



Mensagens : 37
Data de inscrição : 05/06/2013
Idade : 63
Localização : Muriaé MG

MensagemAssunto: Re: Imagem visible em planilha dependendo do número que esta na célula   Sex Dez 11, 2015 5:41 pm

Boa Tarde!

Alexandre consegui assim:

Private Sub Worksheet_Activate()
Dim cel As integer
cel = Range("A1").Value
Select Case cel
Case 1
ActiveSheet.Shapes("Imagem1").Visible = True
ActiveSheet.Shapes("Imagem2").Visible = False
ActiveSheet.Shapes("Imagem3").Visible = False
ActiveSheet.Shapes("Imagem4").Visible = False
Case 2
'Case2 = Case1 só que true na imagem2

End Select
End Sub
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Imagem visible em planilha dependendo do número que esta na célula   Hoje à(s) 8:22 pm

Voltar ao Topo Ir em baixo
 
Imagem visible em planilha dependendo do número que esta na célula
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Temas que naum mudam a imagem de fundo
» Essa imagem é foda !
» fullscreen sem estragar a qualidade da imagem
» *** MINHA PRIMEIRA IMAGEM 3D - SUPER MARIO, VENHA OPINAR! POR FAVOR NÃO VA ME DEIXAR NO VACUO XD ***
» PRECISO DE UMA IMAGEM!

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: