Avatar billede thomaspape Nybegynder
12. december 2008 - 14:48 Der er 11 kommentarer og
1 løsning

Excel - frasortering af data

Hej alle

Er der en der kan hjælpe med om xl kan frasortere data fra en kolonne med data fra en anden kolonne.

Jeg har en liste A med 700 emailadresse opsat i én kolonne. I en anden liste B har jeg 400 emailadresser. Nogle af de emailadresser, der er i liste B kan forekomme i liste A - hvis der er en sådan forekomst skal de slettes fra liste B - er det muligt ?

Hvordan gøres dette - skal jeg eventuelt oprette en liste C ?

vh Thomas
Avatar billede jkrons Professor
12. december 2008 - 15:42 #1
Hvis du har liste A i ark1 og liste B i ark2 vil følgende løse opgaven

Sub sletdubl()
    For Each c In ActiveWorkbook.Sheets(1).Range("A1:A700").Cells
        tst = c.Value
       
        For Each d In ActiveWorkbook.Sheets(2).Range("A1:B400").Cells
            tst2 = d.Value
       
            If tst = tst2 Then
                d.EntireRow.Delete shift:=xlUp
            End If
        Next d
    Next c
End Sub
Avatar billede jkrons Professor
12. december 2008 - 15:42 #2
Ret selv området i hvert ark, så det passer.
Avatar billede thomaspape Nybegynder
12. december 2008 - 16:02 #3
Tak ikrons - jeg laver så liste A i ark 1 og liste B i ark 2.

Men nu spørger jeg måske meget dumt (!) - men hvor er det i regnearket at jeg skal lave denne formel ?

vh Thomas
Avatar billede jkrons Professor
12. december 2008 - 16:33 #4
Det er ikke en formel, men en makro:

Stå i et tilfædigt ark og tryk F11. Sæt så koden ind der. Når du er klar vælger du " Funktioner-Makroer-Afspil. Find den på listen, marker den og klik på afspil,

Men prøv i en kopi af regnearket først :-)
Avatar billede thomaspape Nybegynder
12. december 2008 - 17:13 #5
Det gir ikke mening at trykke på F11 - gør jeg det i et tilfældigt ark så åbnes et nyt ark med "Diagram 2"

Skal makroen indspilles og afspilles eller hvordan ?
Avatar billede jkrons Professor
12. december 2008 - 17:16 #6
Sorry, jeg sover. Du skal trykke på Alt+F11, ikke på F11.
Avatar billede thomaspape Nybegynder
12. december 2008 - 18:24 #7
Jeg forsøger at gøre konkret hvad du skriver uden held. Når jeg trykker alt F11 så åbner der sig Visual basic - skal jeg så sige Insert module eller Insert Userform - der kommer ikke et sted hvor det gir sig selv at kopi paste koden ?

Du må nok skære det mere ud, hvid du vil have ulejlighed hermed

På forhånd tak.

Thomas
Avatar billede jkrons Professor
12. december 2008 - 19:15 #8
Vælg Insert - Module. Og kopier så koden til modulet.
Avatar billede thomaspape Nybegynder
12. december 2008 - 20:27 #9
Hej Ikrons

Så fandt jeg ud af det - dog var der en lilel fejl i føølgende

For Each d In ActiveWorkbook.Sheets(2).Range("A1:B400").Cells

B:400 rettede jeg til A:400 - da jeg havde sat begge kolonner i A kollone i hvert ark.

Men super funktion og dejligt at vide, eller rettere jeg gemmer din kode.

Tak skal du have :-)

Thomas
Avatar billede thomaspape Nybegynder
12. december 2008 - 20:29 #10
DU skal lige have point
Avatar billede thomaspape Nybegynder
12. december 2008 - 20:29 #11
Hm, underligt jeg ikke kan give dig det.
Avatar billede jkrons Professor
12. december 2008 - 23:52 #12
Jeg skal lige svare først :-)
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 for alle niveauer og behov – find det kursus, der passer til dig

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