Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Question

 '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

Answer 1

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

Answer 2

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

Answer 3

Ademir,

seria isto?

If Target.Column = 6 Then Image1.Picture = LoadPicture(Cells(Target.Row, 6).Value2)

Abraço.

---

Filipe Magno