Usuário com melhor resposta
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Pergunta
-
'alguem pode me ajudar, tem como colocar um codigo que eu não precise digitar todas as linhas, como esta ai em baixo desde ja obrigado a todos. Private Sub Worksheet_SelectionChange(ByVal Target As Range) Calculate If Target.Row = 5 And Target.Column = 6 Then Image1.Picture = LoadPicture(Range("F5").Value) ElseIf Target.Row = 6 And Target.Column = 6 Then Image2.Picture = LoadPicture(Range("F6").Value) ElseIf Target.Row = 7 And Target.Column = 6 Then Image3.Picture = LoadPicture(Range("F7").Value) ElseIf Target.Row = 8 And Target.Column = 6 Then Image3.Picture = LoadPicture(Range("F7").Value) End If End Sub
Respostas
-
Ademir,
seria isto?
If Target.Column = 6 Then Image1.Picture = LoadPicture(Cells(Target.Row, 6).Value2)
Abraço.
Filipe Magno
- Marcado como Resposta Felipe Costa GualbertoMVP, Moderator sábado, 11 de julho de 2015 17:01
Todas as Respostas
-
Algo como abaixo ou existe uma lógica de onde se carrega a imagem?
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Calculate Select Case Target.Address(0, 0) Case "A4": Image1.Picture = LoadPicture(Range("D1").Value) Case "B5": Image1.Picture = LoadPicture(Range("E2").Value) Case "C6": Image1.Picture = LoadPicture(Range("F3").Value) Case "D7": Image1.Picture = LoadPicture(Range("G4").Value) Case "E8": Image1.Picture = LoadPicture(Range("H5").Value) Case "F9": Image1.Picture = LoadPicture(Range("I6").Value) End Select End Sub
Felipe Costa Gualberto - http://www.ambienteoffice.com.br
-
Boa noite Felipe tudo na paz?
o que eu gostaria de fazer é..... após a linha 5 e coluna f é aonde carrega a imagem de cada cadastro, só que
neste caso eu tenho que, toda vez que fazer um cadastro eu tenho que colocar esse codigo de cada linha e coluna.
só que, eu tenho uns 300 cadastros com imagem e teria que locolocar 300 codigo desse, de 1 a 300
ElseIf Target.Row = 300 And Target.Column = 6 Then
Image2.Picture = LoadPicture(Range("F300").Value)
assim sucessivamente.tem como fazer um codigo diferente que vai acrecentado essas linhas. desde ja obrigado.
---------------------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
If Target.Row = 5 And Target.Column = 6 Then
Image1.Picture = LoadPicture(Range("F5").Value)
ElseIf Target.Row = 6 And Target.Column = 6 Then
Image2.Picture = LoadPicture(Range("F6").Value)
ElseIf Target.Row = 7 And Target.Column = 6 Then
Image3.Picture = LoadPicture(Range("F7").Value)
ElseIf Target.Row = 8 And Target.Column = 6 Then
Image3.Picture = LoadPicture(Range("F7").Value)
' vai de 5 até 300
End If
End Sub -
Ademir,
seria isto?
If Target.Column = 6 Then Image1.Picture = LoadPicture(Cells(Target.Row, 6).Value2)
Abraço.
Filipe Magno
- Marcado como Resposta Felipe Costa GualbertoMVP, Moderator sábado, 11 de julho de 2015 17:01