CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

TheresaD Juniormester

19. januar 2018 - 12:06 Der er 7 kommentarer og
1 løsning

Makro til Lopslag

Hej jeg har lavet en UserForm, hvor man taster data i 4 felter. Den laver så disse 4 felter om til en String.

Private Sub CommandButton1_Click()
Dim Lejerstreng As String
Lejerstreng = TextBox1 + "-" + TextBox2 + "-" + TextBox3 + "-" + TextBox4
Me.TextBox6 = Lejerstreng
End Sub

Jeg vil gerne bruge Lejerstreng til at lave et lopslag ned i databasen ca. 100 rækker.

Kolonne A = lejerstreng
Kolonne B = Dato

Den skal så finde den række i Kolonne A som passer med Lejerstreng. Derefter vise værdien i Kolonne B ud for samme række i TextBox7

håber der er nogen som kan hjælpe mig :)

Synes godt om

Dan Elgaard Ekspert

19. januar 2018 - 13:41 #1

Dim Række As Long
Række = Application.Match(LejerString, Range("A:A"), 0)
TextBox7.Value = Range("B" & Række).Value

Synes godt om

Dan Elgaard Ekspert

19. januar 2018 - 13:43 #2

Ups - jeg har skrevet 'LejerString' i stedet for 'LejerStreng'...
...men, mon ikke du selv havde luret det :-)

Forøvrigt, hvis det ikke virker med 'Application.Match' (burde det gøre), så prøv med 'WorksheetFunction.Match().

Synes godt om

TheresaD Juniormester

19. januar 2018 - 14:53 #3

Har prøvet dem begge to og kan desværre ikke få det til at virke.

Private Sub CommandButton1_Click()
Dim Lejerstreng As String
Lejerstreng = TextBox1 + "-" + TextBox2 + "-" + TextBox3 + "-" + TextBox4
Me.TextBox6 = Lejerstreng
Dim Række As Long
Række = WorksheetFunction.Match(Lejerstreng, Range("A:A"), 0)
TextBox7.Value = Range("B" & Række).Value
End Sub

Er det fordi jeg måske mangler at skrive hvilken fane den skal hente dataen i? I dette tilfælde fanen "Rykker"

Synes godt om

Dan Elgaard Ekspert

19. januar 2018 - 18:14 #4

Jo, det kan godt være - min makro antager det antive ark...

Prøv med:

Række = WorksheetFunction.Match(Lejerstreng, Sheets("Rykker").Range("A:A"), 0)
TextBox7.Value = Sheets("Rykker").Range("B" & Række).Value

Synes godt om

TheresaD Juniormester

20. januar 2018 - 20:02 #5

Nu har jeg næsten fået den til at virke :)
Den kan finde værdien i kolonne A nu og vise værdien i kolonne B. Men hvis værdien ikke findes i Kolonne A, så dør makroen og vil debuges :(

Kan man lave en funktion, hvor den siger værdi ikke fundet?

Synes godt om

Dan Elgaard Ekspert

21. januar 2018 - 09:04 #6

Ja, du ligger blot denne kode linje ind, som din allerførste linje i din kode:

On Error Resume Next

Og, så ændre du din sidste kode linje til:

If Række > 0 Then TextBox7.Value = Sheets("Rykker").Range("B" & Række).Value

Synes godt om

TheresaD Juniormester

21. januar 2018 - 15:32 #7

Tak nu virker det :)

Synes godt om

Dan Elgaard Ekspert

21. januar 2018 - 15:38 #8

Velbekomme :-)

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

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Hvis(og()) på baggrund af STØRSTE() og FORSKYDNING() Af AnnaS i Excel	1	I dag 13:47	I dag 14:59
Bil benzin regnskab ? Af fimo i Excel	13	I går 14:04	I dag 11:51
Kombinere tal og timer og minutter Af mefa i Excel	6	16/04/202414:38	16/04/202418:07
Kombinere tal og timer og minutter Af mefa i Excel	2	16/04/202414:25	16/04/202421:22
Koipere tekst fra venstre til sidste tal i celle Af HHA i Excel	8	16/04/202412:48	16/04/202414:38

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