none
Private Sub Worksheet_SelectionChange(ByVal Target As Range) RRS feed

  • 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
    

    sexta-feira, 15 de maio de 2015 21:42

Respostas

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

    sexta-feira, 15 de maio de 2015 23:26
    Moderador
  • 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

    domingo, 17 de maio de 2015 20:37
  • Ademir,

    seria isto?

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

    Abraço.


    Filipe Magno

    segunda-feira, 18 de maio de 2015 02:40