Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 7 van 7

Onderwerp: kolommen samenvoegen maar dan net wat anders....

  1. #1
    Vraag is niet opgelost

    kolommen samenvoegen maar dan net wat anders....

    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?

  2. #2
    Mega Honourable Senior Member
    Geregistreerd
    19 mei 2007
    Misschien door al eens een vb-bestandje te posten?
    Mvgr. & succes, Cobbe

    Heb je een oplossing voor je probleem,
    vergeet dan niet de vraag als opgelost te merken.
    En denk er aan: Zorgen moet je doen, niet maken.

  3. #3
    Giga Honourable Senior Member HSV's avatar
    Geregistreerd
    18 juli 2008
    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.
    ____________
    mvg,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  4. #4
    Hierbij het voorbeeld bestandje. voorbeeld-bestand.xlsx

    Alvast dankt voor jullie reacties!

  5. #5
    Giga Honourable Senior Member HSV's avatar
    Geregistreerd
    18 juli 2008
    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
    ____________
    mvg,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  6. #6
    Mega Honourable Senior Member
    Geregistreerd
    19 mei 2007
    Nog enkel kolom B verwijdren en klaar!
    Attached Files Attached Files
    Mvgr. & succes, Cobbe

    Heb je een oplossing voor je probleem,
    vergeet dan niet de vraag als opgelost te merken.
    En denk er aan: Zorgen moet je doen, niet maken.

  7. #7
    Super! Dank jullie wel!!

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 en business

Partners
Sponsoren
Aanbiedingen