Avatar billede gold41nger Nybegynder
20. september 2012 - 14:37 Der er 4 kommentarer

Matche to kolonner og springe over hvis den ikke matcher kolonnen.

Hej.

Er det muligt i et excel regneark at matche to kolonner og hvis tallet så ikke fremtræder i begge kolonner, så springer den tallet over i den ene kolonne og laver et hul i den anden.
eksempel. hvor sorteringen skal foregå efter de markede tal.(

Den ene liste har 400 tal og den anden har 420 tal og skal sorteres hver uge, derfor det ikke bare kan gøre manuelt)

http://billedeupload.dk/images/PkpGA.jpg
Avatar billede supertekst Ekspert
20. september 2012 - 14:43 #1
Via VBA (makro) skule det nok kunne lade sig gøre.
Er opstillingen som det viste?

Vender tilbage senere.

..og så velkommen til Eksperten
Avatar billede gold41nger Nybegynder
20. september 2012 - 14:51 #2
Ja det er som det viste, bare meget længere liste og anden tekst.. Jeg har ikke mulighed for at uploade det oprindelige, da det er fortroligt.
Avatar billede supertekst Ekspert
20. september 2012 - 15:08 #3
Det er ok - som sagt vender jeg tilbage senere..
Avatar billede supertekst Ekspert
20. september 2012 - 21:10 #4
Rem VBA-kode anbringes under arket Højreklik / Vis programkode / indsæt
Rem Udføres via Alt+F8 / Afspil markeret makro (sammenlignTabeller)

Dim antalRækker As Long, idNr, ræk As Long
Public Sub sammenlignTabeller()
    antalRækker = ActiveCell.SpecialCells(xlLastCell).Row
   
    For ræk = 1 To antalRækker
        idNr = Range("B" & ræk)
        If findesIdNr(idNr) = False Then
            indsætPlads ræk
        End If
    Next ræk
End Sub
Private Function findesIdNr(idNr)
    With Range("G1:G" & CStr(antalRækker))
        Set c = .Find(idNr, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            findesIdNr = True
        Else
            findesIdNr = False
        End If
    End With
End Function
Private Sub indsætPlads(ræk)
    Range("F" & CStr(ræk) & ":I" & CStr(antalRækker)).Select
    antalRækker = antalRækker + 1
    Selection.Cut Destination:=Range("F" & CStr(ræk + 1) & " :I" & CStr(antalRækker))
End Sub
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