| Imagem visible em planilha dependendo do número que esta na célula | |
|
|
Autor | Mensagem |
---|
SPP
Mensagens : 40 Data de inscrição : 05/06/2013 Idade : 71 Localização : Muriaé MG
| Assunto: 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á. | |
|
| |
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: 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 | |
|
| |
SPP
Mensagens : 40 Data de inscrição : 05/06/2013 Idade : 71 Localização : Muriaé MG
| Assunto: 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
| |
|
| |
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: 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 | |
|
| |
SPP
Mensagens : 40 Data de inscrição : 05/06/2013 Idade : 71 Localização : Muriaé MG
| Assunto: 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. | |
|
| |
SPP
Mensagens : 40 Data de inscrição : 05/06/2013 Idade : 71 Localização : Muriaé MG
| Assunto: 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. | |
|
| |
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: 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 | |
|
| |
SPP
Mensagens : 40 Data de inscrição : 05/06/2013 Idade : 71 Localização : Muriaé MG
| Assunto: 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 | |
|
| |
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: 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 | |
|
| |
SPP
Mensagens : 40 Data de inscrição : 05/06/2013 Idade : 71 Localização : Muriaé MG
| Assunto: 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 | |
|
| |
SPP
Mensagens : 40 Data de inscrição : 05/06/2013 Idade : 71 Localização : Muriaé MG
| Assunto: 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 | |
|
| |
Conteúdo patrocinado
| Assunto: 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 | |
|