Søg
Avatar billede FinnLauridsen Forsker
26. juli 2015 - 16:46 Der er 10 kommentarer og
1 løsning

Afvikling af macro

Hej
Hvis der i en bestemt celle kommer en tekst, kan den så afspille en macro straks?
Der er i fovejen en formel i cellen med tekst der lyder sådan
=LOPSLAG(A10;'Ark2'!A2:B10;2;FALSK)
Avatar billede store-morten Ekspert
26. juli 2015 - 18:49 #1
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
Avatar billede FinnLauridsen Forsker
26. juli 2015 - 19:56 #2
Hvordan starter den en Makro
Avatar billede store-morten Ekspert
26. juli 2015 - 20:34 #3
ved at udskifte:

MsgBox Range("B10").Value

med din makro
Avatar billede store-morten Ekspert
26. juli 2015 - 20:42 #4
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
Avatar billede FinnLauridsen Forsker
26. juli 2015 - 21:40 #5
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
Avatar billede store-morten Ekspert
27. juli 2015 - 12:51 #6
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:
Private Sub Worksheet_Calculate()
Dim Mypic As Picture
Me.Pictures.Visible = False

With Range("G2")
    For Each Mypic In Me.Pictures
        If Mypic.Name = .Text Then
        Mypic.Visible = True
        Mypic.Top = .Top
        Mypic.Left = .Left
    Exit For
        End If
    Next Mypic
End With
End Sub


Ret A2 til 1
Avatar billede FinnLauridsen Forsker
31. juli 2015 - 09:24 #7
Jeg kan ikke få den til at kalde på billedet
Jeg bruger kun den beskrivelse som du har sendt i svar 6
Avatar billede store-morten Ekspert
31. juli 2015 - 14:57 #8
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.)
Avatar billede FinnLauridsen Forsker
02. august 2015 - 11:59 #9
hej SM det var lige det der skulle til, laver du et svar
Avatar billede store-morten Ekspert
02. august 2015 - 13:02 #10
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/
Avatar billede store-morten Ekspert
02. august 2015 - 13:19 #11
Hvis du henter billedet og gemmer det i samme mappe som regne-arket.
Så kan du rette makro1 til:

Sub Makro1()
    Dim i As Integer
    Dim Antal As Integer
    Dim folderPath As String

    folderPath = Application.ActiveWorkbook.Path

    Antal = InputBox("Hvor mange gange skal Foto indsættes?")
        Range("G2").Select
    For i = 1 To Antal
        ActiveSheet.Pictures.Insert(folderPath & "\Foto på vej.JPG").Select
    Next
End Sub
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Ændre tal i en celle Af xvid i Excel 1 04/09/202616:05 04/09/202616:54
Kan Excel selv beregne alder? Af leahcim i Excel 7 31/08/202610:24 04/09/202602:08
problem med mailbesked Af Pestilensen i Excel 3 24/08/202611:16 28/08/202612:55
Sætte billeder ind i google sheets ark ud fra elev nummer Af lurup i Excel 18 17/08/202615:14 05/09/202622:04
Gemme største værdi Af Lemming@privat.dk i Excel 2 07/08/202622:13 08/08/202609:03
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
18/0919:52 Libre office skriveprogram Af Frank i Office & Kontorpakker
17/0914:55 Hente WordPad til Windows 11 Af Strawberry i Andet software
17/0911:37 Persits.Upload Af bsn i ASP
16/0918:13 oprette et installationsmedie Af Malm i Windows
16/0913:11 Adapterstik stik på ladekabel til USB-C Af ErikHg i Andet software
White papers
Flere white papers »