Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 9 van 9

Onderwerp: Kolom met elkaar vergelijken

  1. #1
    Junior Member
    Geregistreerd
    3 augustus 2015
    Vraag is opgelost

    Kolom met elkaar vergelijken

    Goedemiddag,

    Ik heb een hoofdpijn dossier. Ik probeer al een week lang op verschillende manieren 3 kolommen met elkaar te vergelijken en aan de hand daarvan kolom B te vullen, maar het lukt mij maar niet.

    Ik mijn file zie je 4 kolommen.

    Kolom A is leidend. Dit zijn alle Id nummers die ik moet hebben. Deze Id nummers hebben allemaal zijn eigen uniek Item nummer (te vinden in kolom E).

    Excel moet dus zoeken in kolom D (dit zijn dezelfde Id's uit kolom A maar dan 3000 id's extra) en het bijbehorende item in kolom B zetten.

    Let op:
    kolom A bevat soms dubbele Id nummers, maar je ziet dat de itemId's wel verschillend zijn.

    De eerste 10 heb ik als voorbeeld zelf gevuld, zodat mijn tekst duidelijk is.

    Kan iemand mij hier alsjeblieft bij helpen.

    Vriendelijke groet,

    Esther
    Bijgevoegde bestanden Bijgevoegde bestanden

  2. #2
    Mega Senior LucHeyndrickx's avatar
    Geregistreerd
    23 december 2003
    Locatie
    België-Sint Niklaas
    Dit is behoorlijk simpel op te lossen in Access.
    Ik heb er natuurlijk geen idee van hoe je volledige bestand er uit ziet... maar misschien is het wel een optie om 's in die richting te kijken?

  3. #3
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Als ik naar de huidige structuur kijk zou dit het moeten doen:
    Code:
    Sub Aanvullen()
        For i = 2 To ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row
            Cells(i, 2) = Cells(i + 1, 5)
        Next i
    End Sub
    Laatst aangepast door edmoor : 19 april 2021 om 14:45
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  4. #4
    Giga Honourable Senior Member
    Verenigingslid
    snb's avatar
    Geregistreerd
    12 juni 2008
    Zonder hoofdpijn:

    Code:
    Sub M_snb()
        sn = Cells(1).CurrentRegion.Resize(, 2)
        sp = Cells(1, 4).CurrentRegion
        
        For j = 2 To UBound(sn)
           For jj = 2 To UBound(sp)
              If sn(j, 1) = sp(jj, 1) Then
                sn(j, 2) = sp(jj, 2)
                sp(jj, 1) = ""
                Exit For
               End If
           Next
        Next
        
        Cells(1, 7).Resize(UBound(sn), 2) = sn
    End Sub
    VBA voor smarties
    VBA is een taal die je moet leren met een grammatica- en een woordenboek.

    http://www.helpmij.nl/forum/announcement.php?f=5
    Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.

  5. #5
    Giga Senior Haije's avatar
    Geregistreerd
    24 maart 2009
    Locatie
    Oldenzaal
    Haije
    ___________________________________________________

  6. #6
    Giga Honourable Senior Member
    Verenigingslid
    snb's avatar
    Geregistreerd
    12 juni 2008
    Het kan nog 'ietsje' sneller:

    Code:
    Sub M_snb()
        sn = Cells(1).CurrentRegion.Resize(, 2)
        sp = Cells(1, 4).CurrentRegion
        
        n = 2
        For j = 2 To UBound(sn)
           For jj = n To UBound(sp)
              If Val(sn(j, 1)) < (sp(jj, 1)) Then Exit For
              If sn(j, 1) = sp(jj, 1) Then
                sn(j, 2) = sp(jj, 2)
                n = jj + 1
                Exit For
               End If
           Next
        Next
        
        Cells(1, 7).Resize(UBound(sn), 2) = sn
    End Sub
    Laatst aangepast door snb : 19 april 2021 om 15:50
    VBA voor smarties
    VBA is een taal die je moet leren met een grammatica- en een woordenboek.

    http://www.helpmij.nl/forum/announcement.php?f=5
    Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.

  7. #7
    Junior Member
    Geregistreerd
    3 augustus 2015
    Quote Origineel gepost door snb Bekijk Bericht
    Zonder hoofdpijn:

    Code:
    Sub M_snb()
        sn = Cells(1).CurrentRegion.Resize(, 2)
        sp = Cells(1, 4).CurrentRegion
        
        For j = 2 To UBound(sn)
           For jj = 2 To UBound(sp)
              If sn(j, 1) = sp(jj, 1) Then
                sn(j, 2) = sp(jj, 2)
                sp(jj, 1) = ""
                Exit For
               End If
           Next
        Next
        
        Cells(1, 7).Resize(UBound(sn), 2) = sn
    End Sub




    Nou.... heb ik een week verprutst van mijn tijd. Ik drukte op een knopje (had de gegevens als knop toegevoegd als Module) en het was klaar.
    Je weet half niet hoe blij ik hier mee ben hoera!
    Duizend maal dank.

  8. #8
    Junior Member
    Geregistreerd
    3 augustus 2015
    Quote Origineel gepost door Haije Bekijk Bericht
    Dank je wel! Ik wist niet dat dit dezelfde leden bevatte, ik dacht, nooit geschoten altijd mis. Ik ben super blij dat het opgelost is!

  9. #9
    Giga Honourable Senior Member
    Verenigingslid
    snb's avatar
    Geregistreerd
    12 juni 2008
    Ik zou de laatste versie gebruiken: veel sneller.
    VBA voor smarties
    VBA is een taal die je moet leren met een grammatica- en een woordenboek.

    http://www.helpmij.nl/forum/announcement.php?f=5
    Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl

Regels
Help

Helpmij.nl en business

Partners
Sponsoren