Afvikling af macro

Når celle A10 ændres, tjekkes teksten i B10 (LOPSLAG´s cellen)

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A10")) Is Nothing Then
   
        If Range("B10") = "Test" Then
       
        MsgBox Range("B10").Value
       
        End If
       
    End If
End Sub

Hvordan starter den en Makro

ved at udskifte:

MsgBox Range("B10").Value

med din makro

Eller:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A10")) Is Nothing Then
        If Range("B10") = "Test" Then
            Call Min_Makro
        End If
    End If
End Sub

Sub Min_Makro()
MsgBox Range("B10").Value
End Sub

det virker, men jeg kan ikke se mig ud af det hvis der er 500 nr. der skal have en makro

egentlig vil jeg bare have at et nr. kommer med en tekst og et billed

Eks:

Ark2
A1: VareNr B1: VareNavn C1: Billede
A2: 1 B2: Vare1 C2: Picture 1
A3: 2 B3: Vare2 C3: Picture 2
A4: 3 B4: Vare3 C4: Picture 3....

Ark1:
A2: 2 B2:=LOPSLAG(A2;'Ark2'!A2:B4;2;FALSK) Giver: Vare2

G2: =LOPSLAG(A2;'Ark2'!A2:C4;3;FALSK) Giver: Picture 2

På Ark1:
Indsæt --> Illustrationer --> Billeder --> Find og vælg billede 1 --> Indsæt
Tilret str.
Gentag med 3 billeder

Indsæt denne kode på Ark1:

Ret A2 til 1

Jeg kan ikke få den til at kalde på billedet
Jeg bruger kun den beskrivelse som du har sendt i svar 6

Her er et ark med eks. og 15 "vare"

http://gratisupload.dk/f/8ssn2ustpi/

Jeg har prøvet med 500 "vare" og så bliver arket lidt langsom til at hente billederne (ca. 3 - 4 sek.)

hej SM det var lige det der skulle til, laver du et svar

Ja, lige et tip.

For ikke der skal gå kuk i nr. orden, har jeg lagt et par "Foto på vej" ind.
Når varen og lagt ind, højre-klik på "Foto på vej" og vælg: Skift billede.

Der er en makro til at lægge flere "Foto på vej" i arket. (Makro 1)
Stien skal bare rettes til, sæt ikke for mange ind af gangen. (prøv med 100)
Foto på vej: http://gratisupload.dk/f/8sut4vhg30/

Hvis du henter billedet og gemmer det i samme mappe som regne-arket.
Så kan du rette makro1 til: