Notifikationer

Markér alle som læst Log ud

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)

Synes godt om

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

Synes godt om

FinnLauridsen Forsker

26. juli 2015 - 19:56 #2

Hvordan starter den en Makro

Synes godt om

store-morten Ekspert

26. juli 2015 - 20:34 #3

ved at udskifte:

MsgBox Range("B10").Value

med din makro

Synes godt om

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

Synes godt om

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

Synes godt om

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

Synes godt om

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

Synes godt om

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.)

Synes godt om

FinnLauridsen Forsker

02. august 2015 - 11:59 #9

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

Synes godt om

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/

Synes godt om

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

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

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
Hvordan bruges indeks & sammenlign når der skal søges over flere kolonner? Af Laugesen1 i Excel	4	08/03/202611:56	08/03/202613:57
Tips til at mestre Excel hurtigt Af MonikaG32 i Excel	4	04/03/202617:11	06/03/202609:37
Båndet i Excel online har ændret størrelse Af Monique i Excel	3	19/02/202614:23	20/02/202608:26
Fjern tekst efter mellemrum Af ABE15 i Excel	2	18/02/202620:41	19/02/202611:30
Udskrift af ark Af boro23 i Excel	4	17/02/202608:38	18/02/202607:46

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS