Olá à todos!
Estou com um problema, que está me atormentando.
Precisa mudar múltiplas Images (Image1, Image2,...,Image10) em múltiplas abas (Proposta1, Proposta2,...,Proposta10). Havia conseguido, porém não sei o porque não está funcionando devidamente.
Abaixo o código que estou usando:
For Each ws In Worksheets
If Left(Trim(ws.Name), 8) = "Proposta" Then
If Target.Row = 5 And Target.Column = 4 Then
ws.Image1.Picture = LoadPicture(Worksheets("Rolos Compactadores").range("AH5").Value)
End If
If Target.Row = 5 And Target.Column = 7 Then
ws.Image2.Picture = LoadPicture(Worksheets("Rolos Compactadores").range("AH7").Value)
End If
If Target.Row = 5 And Target.Column = 10 Then
ws.Image3.Picture = LoadPicture(Worksheets("Rolos Compactadores").range("AH9").Value)
End If
If Target.Row = 5 And Target.Column = 13 Then
ws.Image4.Picture = LoadPicture(Worksheets("Rolos Compactadores").range("AH11").Value)
End If
If Target.Row = 5 And Target.Column = 16 Then
ws.Image5.Picture = LoadPicture(Worksheets("Rolos Compactadores").range("AH13").Value)
End If
If Target.Row = 5 And Target.Column = 19 Then
ws.Image6.Picture = LoadPicture(Worksheets("Rolos Compactadores").range("AH17").Value)
End If
If Target.Row = 5 And Target.Column = 22 Then
ws.Image7.Picture = LoadPicture(Worksheets("Rolos Compactadores").range("AH19").Value)
End If
If Target.Row = 5 And Target.Column = 25 Then
ws.Image8.Picture = LoadPicture(Worksheets("Rolos Compactadores").range("AH21").Value)
End If
If Target.Row = 5 And Target.Column = 28 Then
ws.Image9.Picture = LoadPicture(Worksheets("Rolos Compactadores").range("AH23").Value)
End If
If Target.Row = 5 And Target.Column = 31 Then
ws.Image10.Picture = LoadPicture(Worksheets("Rolos Compactadores").range("AH25").Value)
End If
End If
Next
Detalhe: A primeira imagem (Image1) é alterada em todas as abas, porém as demais não.
Obs.: cada aba Proposta possui um número de imagens relacionado ao número da mesma (Proposta10 possui 10 imagems)
Poderiam me ajudar, por favor?
Postado : 25/10/2017 10:01 am