Hente billeder fra et ark til et andet.

Okay, har selv fundet ud af lidt...

If [Q15] = "XXX NAVN" And [Q27] = "XXX NR." Then
    Sheets("Billeder").Shapes("Billede1").Copy
    Paste ([AM41])
End If

Men hvordan får jeg den til kun at gøre det en gang, dvs. når AM41 er fyldt ud skal den ikke blive ved med at sætte billeder ind, når jeg hopper rundt i resten af arket.

If [Q15] = "XXX NAVN" And [Q27] = "XXX NR." Then
    Sheets("Billeder").Shapes("Billede1").Copy
    Paste ([AM41])
    goto videre:
End If
videre:

Tak for det akyhne, men umiddelbart gør den da det samme, som den jeg postede.

Det jeg mangler, er at den kan begrænses til kun at indsætte et billede, den her kode ligger et nyt billede ind for hver gang jeg hopper rundt i arket.

Det bliver hurtigt en unødig stor fil :o)

Mener du at hele koden bliver kørt flere gange?

Ja præcis, den bliver aktiveret for hver celle jeg hopper videre til.

Sub test()
Dim T As Currency, L As Currency, B As Currency, R As Currency, DerErEtBille As Boolean
DerErEtBille = False
If [Q15] = "XXX NAVN" And [Q27] = "XXX NR." Then
    T = Range("T20").Top
    L = Range("T20").Left
    B = Range("T20").Range("B2").Top
    R = Range("T20").Range("B2").Left
    For Each Billede In Sheets("Ark1").Shapes
        If Billede.Top >= T And Billede.Top <= B And Billede.Left >= L And Billede.Left <= R Then
            DerErEtBille = True
        End If
    Next
    If DerErEtBille = False Then
        Sheets("Billeder").Shapes("Billede1").Copy
        Paste ([T20])
    End If
End If
End Sub

Udskiftede AM41 med T20 for min nemheds skyld! Det må du lige selv rette.

Hej igen, jeg får den lige prøvet af i aften, er pt. på arbejde.

Tak, indtil videre....

Problemet er at billeder ikke er en del at cellerne, samt at flere billeder kan have samme navn. Derfor er eneste mulighed umiddelbart at checke om der ligger billeder inden for koordinatet af cellen.

Den er super, virker perfekt, så der er point til dig, men kan den også laves så den kan bruges i et beskyttet ark???

Jeg får en fejl 1004 hvor den fortæller, at koden ikke kan bruges når arket er beskyttet. Jeg har låst cellerne Q15, Q27 og AM41 op.

Ups... prøvede den i et tomt ark og der virkede den, men når jeg smider den ind i arket hvor den skal bruges, ja så fortsætter den med at smide flere billeder ind???

Glem det sidste indlæg, det var mig der nos**** i det...

:-)

Hvordan gir´ jeg dig point???

Ved at jeg putter dette svar.

Og ellers kig her: http://www.racingcar.dk/eksperten/svar/svar.html

Ok, takker endnu engang.

Velbekomme :-)