23. oktober 2016 - 19:05Der er
10 kommentarer og 1 løsning
find tekst og kopier rækken hvor teksten står over i et nyt ark.
Jeg har et basisark, hvor en række medlemmer er listet med oplysning om alder, telefon, adresse, sportsgren osv.
I et andet ark kaldet: temp, har jeg et udtræk af navne. Jeg har så brug for at finde navnet i basisarket, og så kopiere de data, som er oplyst om medlemmet over i temp arket. Navnene stå i kolonne G i basisarket og i kolonne B i temparket.
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.
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
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
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
Så er den helt på plads - en smart løsning. Mange tak for hjælpen. God dag :0))
Synes godt om
Ny brugerNybegynder
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.