Hej jag har stött på patrull som jag inte kan htta lösningen på.

Jag har 5 olika bilder som heter bild 1,2,3.... Det jag vill ska hända är att beroende på ett visst värde i en cell så ska en av dessa bilder kopieras till ett annat blad. Det är dock viktigt att bildnamnet hänger med.

Jag hittade ett sätt att ändra bilden baserat på cellvärde via denna länk: https://exceloffthegrid.com/automatically-change-picture/. Problemet är dock att även om motivet ändras så ändras inte namnet på bilden, utan heter alltid "bild27".

Så det jag skulle vilja få till är:

Om det i cell A1 står "pågående" så ska bild 1 i arbetsblad 3 kopieras till Cell A2,Blad 1. Men om det i A1 står "avslutat" så är det bild 5 som ska kopieras till blad 1 istället

Jag försökte med denna kod, men inget hände jag fick inte ens upp ett felmeddelande, så jag antar att den är väldigt fel.

Sub Kopierabild_baseratpacellvärde ()

    If Range("I19").Value = "Pågående" Then

    ActiveSheet.Shapes.Range(Array("Picture 14")).Select

    Selection.Copy

    Range("M6").Select

    ActiveSheet.Paste

     ElseIf Range("M19").Value = "Avslutat" Then

    ActiveSheet.Shapes.Range(Array("Picture 18")).Select

    Selection.Copy

    Range("M6").Select

    ActiveSheet.Paste

End if

End sub

 Finns det någon vänlig peson som eventuellt vet hur man löser detta?

 Tack för svar.

Jag tänkte om lite, då det blev väldigt komplicerat för mig.

Sub J3v16()

With Sheets("Blad1")

    Sheets("Arbetsblad Formler").Shapes(.Range("W2")).Copy: .Range("A1").PasteSpecial

End With

End Sub

Använde mig av denna ist'llet då det var mycket lättare.