find tekst og kopier rækken hvor teksten står over i et nyt ark.

=LOPSLAG(G2;'Ark1'!B2:F30;2;FALSK)

=LOPSLAG(G2;'temp'!B2:F30;2;FALSK)

alle gode gange 3 :-)

=LOPSLAG(G2;'basisark'!B2:F30;2;FALSK)

Hej excelent
jeg skal bruge det, som del af en makro, hvor jeg får kopieret hele række hvor navnet står i basisarket. mit problem er at lave en elegant løsning, hvor jeg får flyttet rækken over på temp arket.

Sub opslag()

Set sh1 = Sheets("basisark") ' ret evt arknavn
Sheets("temp").Select ' ret evt arknavn

For Each c In Range("B2:B100") ' ret til aktuel range
rk = sh1.Range("G2:G1000").Find(c, LookIn:=xlValues).Row ' ret til aktuel range
rk2 = Cells(65536, "C").End(xlUp).Row + 1

sh1.Cells(rk, "H").Copy Cells(rk2, "C")
sh1.Cells(rk, "I").Copy Cells(rk2, "D")
sh1.Cells(rk, "J").Copy Cells(rk2, "E")
sh1.Cells(rk, "K").Copy Cells(rk2, "F")
sh1.Cells(rk, "L").Copy Cells(rk2, "G")
'osv. osv
Next

End Sub

Det ser rigtigt godt ud - kan du lave en tilføjelse, hvor der tages højde for at opslags navnet ikke findes i basisarket?

Sub opslag()

Set sh1 = Sheets("basisark") ' ret evt arknavn
Sheets("temp").Select ' ret evt arknavn

For Each c In Range("B2:B10") ' ret til aktuel range
rk2 = Cells(65536, "C").End(xlUp).Row + 1
On Error GoTo om
rk = sh1.Range("G2:G1000").Find(c, LookIn:=xlValues).Row ' ret til aktuel range

sh1.Cells(rk, "H").Copy c.Offset(0, 1)
sh1.Cells(rk, "I").Copy c.Offset(0, 2)
sh1.Cells(rk, "J").Copy c.Offset(0, 3)
sh1.Cells(rk, "K").Copy c.Offset(0, 4)
sh1.Cells(rk, "L").Copy c.Offset(0, 5)
'osv. osv
om:
Next

End Sub

så langt var jeg også komment, men den skal samtidig rykke en linje ned, ellers vil oplysningerne ikke komme ud for det korrekte navn. Dvs. hvis der er et navn i temp arket, som ikke findes i basisarket, så skal den rykkes en linje ned til det næste navn.
når der så søges på sidste linjen:  rk2 = Cells(65536, "C").End(xlUp).Row + 1 vil jo
så vil den tomme linje jo stå ud for det navn, som ikke var i basisarket. derfor skal der skrives en tekst i C kolonnen, således at rk2 for det rigtige inhold

Jo men rk2 anvendes ikke i koden
Har du ikke anvendt den sidste kode fra #7 ?

Prøv:

Sub opslag()

Set sh1 = Sheets("basisark") ' ret evt arknavn
Sheets("temp").Select ' ret evt arknavn

For Each c In Range("B2:B100") ' ret til aktuel range

If Application.CountIf(sh1.Range("G2:G1000"), c) < 1 Then GoTo om
rk = sh1.Range("G2:G1000").Find(c, LookIn:=xlValues).Row ' ret til aktuel range

sh1.Cells(rk, "H").Copy c.Offset(0, 1)
sh1.Cells(rk, "I").Copy c.Offset(0, 2)
sh1.Cells(rk, "J").Copy c.Offset(0, 3)
sh1.Cells(rk, "K").Copy c.Offset(0, 4)
sh1.Cells(rk, "L").Copy c.Offset(0, 5)
'osv. osv
om:

Next

End Sub

Så er den helt på plads - en smart løsning. Mange tak for hjælpen.
God dag :0))