• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Unique ID's van ene worksheet naar andere toewijzen

Status
Niet open voor verdere reacties.
N

Nordin1

Nieuwe gebruiker
Lid geworden
18 feb 2018
Berichten
4
Hallo Allemaal,

Ik zit met een uitdaging ik het 2 worksheets waar in de ene een lijst met Auteurs staan met hun unieke ID en in de andere worksheet Papers met de Auteurs. Wat ik wil doen is de worksheet met de Papers en de gerelateerde auteurs de unieke ID's toewijzen vanuit de worksheet met de Auteurs en hun unieke ID's. De uitdaging is dat een paper meerdere Auteurs kan hebben. Ik kom er niet meer uit en ik hoop dat iemand mij hiermee kan helpen. Ik heb een voorbeeld van de worksheets toegevoegd en ook een voorbeeld van waar ik naar op zoek ben als oplossing.Bekijk bijlage Example.xlsx

Alvast bedankt.

Mvg,
Nordin
 
Hallo en welkom op dit forum.

Misschien kun je wat met deze formules:

Code: 
=TEKST.SAMENV(Authors!B2;",";" ";Authors!B3;",";" ";Authors!B4)
voor de auteurs

en

Code: 
=TEKST.SAMENV(Authors!A2;",";" ";Authors!A3;",";" ";Authors!A4)
voor de ID
 
Bedankt Jan,

Ik denk dat ik niet duidelijk ben geweest maar waarna ik op zoek ben is dat in Cel C2 van de worksheet Papers vanuit de worksheet Authors de unieke ID's allemaal tegelijk worden toegewezen.
 
Maar dat gebeurt toch ook als je de tweede formule in cel C2 zet.
 
Dit klinkt mij naar een meervoudige Lookup ófffff misschien via een samengestelde pivottable.
Ik heb hiervan geen kennis maar dus wel de denkrichting? :D
 
Hi edmoor,

Bedankt hiervoor, dit is inderdaad waarna ik opzoek ben weet alleen niet hoe je dit hebt gedaan, ik ben echt een beginner in Excel gebruik het nooit.
Kun jij misschien in leken termen uitleggen hoe ik dit kan toepassen op de oorspronkelijke worksheet die meer dan 100000 papers hebben?

Mvg,
Nordin
 
UDF staat voor User Defined Function. Dat is een zelf in VBA gemaakte functie en staat in een Module van het VBA project van je document.
Dit is de code:
Code: 
Function AuthorsID(cl As Range) As String
    Dim Authors() As String
    Dim IDs() As String
    
    Authors = Split(cl, ", ")
    For i = 0 To UBound(Authors)
        With Sheets("Authors")
            For x = 2 To .UsedRange.Rows.Count
                If .Cells(x, 2) = Authors(i) Then
                    ReDim Preserve IDs(i)
                    IDs(i) = .Cells(x, 1)
                End If
            Next x
        End With
    Next i
    AuthorsID = Join(IDs, ", ")
End Function

Dat werkt prima, maar als het om meer dan 100000 regels gaat kan je er denk ik beter een knopje voor maken omdat het anders veel te traag wordt.
Daar wil ik je uiteraard best bij helpen.

NB.:
"waarna" is iets totaal anders dan "waar naar".
Wil ik toch even kwijt.
 
Laatst bewerkt:
Of zo:

Code: 
Sub M_snb()
   sn = Sheet1.Cells(1).CurrentRegion
   sp = Sheet2.Cells(1).CurrentRegion.Resize(, 3)
   
   With CreateObject("scripting.dictionary")
      For j = 2 To UBound(sn)
      .Item(sn(j, 2)) = sn(j, 1)
      Next
      
      For j = 2 To UBound(sp)
          st = Split(sp(j, 2), ", ")
          For jj = 0 To UBound(st)
             st(jj) = .Item(st(jj))
          Next
          sp(j, 3) = Join(st, ", ")
      Next
    End With
   
   Sheet2.Cells(1).CurrentRegion.Resize(, 3) = sp
End Sub
 
Bedankt edmoor, Ik zou het zeer op prijs stellen als je mij inderdaad wilt helpen bij het maken van het knopje (wat om eerlijk te zijn ik weet bij god niet waar je het over hebt) ik zal morgen een stukje van de orginele lijst posten.

Alvast bedankt.

Mvg,
Nordin
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan