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

kolommen samenvoegen maar dan net wat anders....

Status
Niet open voor verdere reacties.
J

jpflikweert

Gebruiker
Lid geworden
17 nov 2012
Berichten
12
Ik heb een Excel bestand waarbij ik gegevens uit de ene kolom moet koppelen en plaatsen in een nieuwe kolom in een ander tabblad.

In tabblad1 staan voertuiggevens, echter zonder automerk. Het merk is vervangen door een getal. Dit getal staat in kolom A.
In tabblad2 staan de getallen in kolom A en in kolom B staan de automerken.

Voorbeeld:

1 = Alfa
2 = BMW
3 = Opel
enz.

Het getal staat zowel in tabblad1 als in tabblad2.
In tabblad1 staat het getal in kolom A
In tabblad2 staat het getal in kolom A en in kolom B staat het merk.

Nu wil ik graag de merken uit tabblad2 overbrengen naar tabblad1.
Dus overal waar in kolom A in tabblad1 een 1 staat moet Alfa komen te staan, waar een 2 staat BMW, waar een 3 staat Opel, enz.

Hoe doe ik dat?
 
Misschien door al eens een vb-bestandje te posten?
 
De cijfers moeten gewijzigd worden in automerken?
Dit zal geautomatiseerd moeten worden met enig code, anders is het eenmalig intikken het meest voor de hand liggend.

Anders een bestandje plaatsen via de paperclip.
 
Zet onderstaande code in een standaard module en laat het draaien.
Code: 
Sub hsv()
Dim hs, sv, i As Long, ii As Long
hs = Sheets("blad2").Cells(1).CurrentRegion
With Sheets("blad1")
 sv = .Cells(1).CurrentRegion
  For i = 2 To UBound(sv)
    For ii = 2 To UBound(hs)
      If sv(i, 1) = hs(ii, 1) Then sv(i, 1) = hs(ii, 2)
      Next ii
   Next i
 .Cells(1).CurrentRegion.Resize(UBound(sv), UBound(sv, 2)) = sv
 End With
End Sub
 
Nog enkel kolom B verwijdren en klaar!
 

Bijlagen

  • voorbeeld-bestand.xlsx
    163,7 KB · Weergaven: 42
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan