• 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.

Waarde vervangen in 3 kolommen met waarde uit andere kolom

Status
Niet open voor verdere reacties.

SanPim

Nieuwe gebruiker
Lid geworden
15 okt 2021
Berichten
2
Hallo iedereen,

Ik ben gisteren een paar uur bezig geweest om het volgende voor mekaar te krijgen (ik ben een enorme leek als het gaat om excel).

In kolom A staat een ID, kolom B,C,D (relatie kolommen) hebben een waardes die vervangen moeten worden. Elke Rij heeft een eigen ID met bijbehorende waarde. Voorbeeld:

A= ID 20. Kolom B heeft waarde: 100. Kolom C heeft waarde: 200. Kolom D heeft waarde: 300. Kolom F heeft een waarde die in een van de 3 kolommen (b,c,d) voor kan komen en Kolom G is de waarde die in Kolom F moet gaan vervangen.

Nu wil ik dus in de 3 relatie kolommen zoeken naar een waarde die in kolom F staat en deze vervangen door waarde in Kolom G.

Ik denk dat het zo duidelijk is en ik hoop dat iemand mij kan helpen.

Mvg en dank!
 
Plaats een voorbeeld documentje.
 
Dat kan alleen met een macro of misschien met Power Query.

1 van de mogelijkheden:

Code:
Sub VenA()
  ar = Cells(1).CurrentRegion
  ar1 = Cells(1, 6).CurrentRegion
  For j = 2 To UBound(ar1)
    For jj = 2 To UBound(ar)
      For jjj = 2 To UBound(ar, 2)
        If ar(jj, jjj) = ar1(j, 1) Then ar(jj, jjj) = ar1(j, 2)
      Next jjj
    Next jj
  Next j
  Cells(1, 10).Resize(UBound(ar), UBound(ar, 2)) = ar
End Sub
 

Bijlagen

Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan