Vlookup macro

[oneilboy]

Hoi,

kan iemand me helpen, hij moet namelijk wat in kolom A in file lijst 2 zoeken in de file lijst 1 en dan de letter die ernaast staat in kolom B van de file lijst 2 zetten.

zie bijlages

 

[oneilboy]

hoi,

maar wil het via een macro laten lopen

 

[Gert Bouwmeeste]

Waarom wil je dat? Zo werkt het toch ook goed?

 

[emields]

bedoel je dan zo?

 

[VenA]

Met beide bestanden in dezelfde map.

Sub VenA()
  With GetObject(ThisWorkbook.Path & "\Lijst 1.xlsx")
    ar = .Sheets(1).Cells(1).CurrentRegion
    .Close 0
  End With
  ar1 = Sheets("Sheet1").Cells(1).CurrentRegion.Resize(, 2)
  For j = 1 To UBound(ar1)
    For jj = 1 To UBound(ar)
      If ar1(j, 1) = ar(jj, 1) Then
        ar1(j, 2) = ar(jj, 2)
        Exit For
      End If
    Next jj
  Next j
  Sheets("Sheet1").Cells(1).CurrentRegion.Resize(, 2) = ar1
End Sub

 

[oneilboy]

Hoi,

is het mogelijk er ook wat uitleg bij te geven van welke lijn wat doet, want als ik die ooit moet aanpassen dat ik weet wat ik moet aanpassen

 

[emields]

omdat je het zo lief vraagt

 

[oneilboy]

VenA,

kan jij ook aub wat uitleg geven bij de regels innuw macro wat die juist doen?

 

[VenA]

Als je iets via een macro wilt laten lopen terwijl het niet echt nodig is dan zal je zelf wat onderzoek moeten doen. Daarnaast heb je in een ander draadje een veel complexere macro gekregen en die begrijp je wel?

De code in #6 zet de gegevens van het bestand 'Lijst 1.xlsx' in de variabele ar, en de gegevens van het bestand van waaruit je de macro start in de variabele ar1. zowel ar als ar1 zijn zijn array's. Dit zijn objecten die in het geheugen geladen worden. Door beide array's met elkaar te vergelijken krijg je het uiteindelijk resultaat.

Je kan het allemaal naspelen in de VB-Editor door met <F8> door de code te wandelen. (zet wel het scherm locals aan dan kan je volgen welke variabele welke waarde op welk moment krijgt)