Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
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  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

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

Ir para baixo 
2 participantes
AutorMensagem
SPP




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

Imagem visible em planilha dependendo do número que esta na célula Empty
MensagemAssunto: Imagem visible em planilha dependendo do número que esta na célula   Imagem visible em planilha dependendo do número que esta na célula EmptySex 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á.
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


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

Imagem visible em planilha dependendo do número que esta na célula Empty
MensagemAssunto: Re: Imagem visible em planilha dependendo do número que esta na célula   Imagem visible em planilha dependendo do número que esta na célula EmptySex 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
Ir para o topo Ir para baixo
SPP




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

Imagem visible em planilha dependendo do número que esta na célula Empty
MensagemAssunto: Re: Imagem visible em planilha dependendo do número que esta na célula   Imagem visible em planilha dependendo do número que esta na célula EmptySex 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
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


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

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

Boa tarde!!!


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

Att
Ir para o topo Ir para baixo
SPP




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

Imagem visible em planilha dependendo do número que esta na célula Empty
MensagemAssunto: Re: Imagem visible em planilha dependendo do número que esta na célula   Imagem visible em planilha dependendo do número que esta na célula EmptySex 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.
Ir para o topo Ir para baixo
SPP




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

Imagem visible em planilha dependendo do número que esta na célula Empty
MensagemAssunto: Re: Imagem visible em planilha dependendo do número que esta na célula   Imagem visible em planilha dependendo do número que esta na célula EmptySex 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.
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


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

Imagem visible em planilha dependendo do número que esta na célula Empty
MensagemAssunto: Re: Imagem visible em planilha dependendo do número que esta na célula   Imagem visible em planilha dependendo do número que esta na célula EmptySex 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
Ir para o topo Ir para baixo
SPP




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

Imagem visible em planilha dependendo do número que esta na célula Empty
MensagemAssunto: Re: Imagem visible em planilha dependendo do número que esta na célula   Imagem visible em planilha dependendo do número que esta na célula EmptySex 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
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


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

Imagem visible em planilha dependendo do número que esta na célula Empty
MensagemAssunto: Re: Imagem visible em planilha dependendo do número que esta na célula   Imagem visible em planilha dependendo do número que esta na célula EmptySex 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
Ir para o topo Ir para baixo
SPP




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

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

Colei em activate, mas não funciona da erro em If Target.Address = "$A$1" Then
Ir para o topo Ir para baixo
SPP




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

Imagem visible em planilha dependendo do número que esta na célula Empty
MensagemAssunto: Re: Imagem visible em planilha dependendo do número que esta na célula   Imagem visible em planilha dependendo do número que esta na célula EmptySex 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
Ir para o topo Ir para baixo
Conteúdo patrocinado





Imagem visible em planilha dependendo do número que esta na célula Empty
MensagemAssunto: Re: Imagem visible em planilha dependendo do número que esta na célula   Imagem visible em planilha dependendo do número que esta na célula Empty

Ir para o topo Ir para baixo
 
Imagem visible em planilha dependendo do número que esta na célula
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» como salvar a planilha ativa em pdf e anexar o pdf no email que esta na celula B7
» Abrir planilha com um form fixo e os comandos que esta na planilha funcionarem.
» Inserir uma imagem em varias abas de uma mesma planilha
» Como mover uma imagem em uma planilha ao passar o mouse.
» Macro_Separar Número de Uma Célula

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: