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

VBA vlookup + offset

Status
Niet open voor verdere reacties.

RaymondC

Gebruiker
Lid geworden
10 mrt 2008
Berichten
561
Ik zou onderstaande VBA formule automatisch willen invullen voor gehele sheet (waar er data staat).
De vlookup range (sheet Core – Key) is een vaste range A1: Q33.
De kolommen schuiven echter wel op in het resultaat sheet.

Zoek B2 op in Sheet Core – Key, en geef het resultaat van kolom 3 in K2
Zoek B2 op in Sheet Core – Key, en geef het resultaat van kolom 4 in L2
Enz
Enz

Next:
Zoek B3 op in Sheet Core – Key, en geef het resultaat van kolom 3 in K3
Zoek B3 op in Sheet Core – Key, en geef het resultaat van kolom 4 in L3

Code:
"=IF(ISERROR(VLOOKUP(RC2,'Core - Key'!R1C1:R33C17,3,FALSE)),"""",VLOOKUP(RC2,'Core - Key'!R1C1:R33C17,3,FALSE))"

Hoe kan ik dit oplossen met een offset, en dat ie automatisch ook waarde van een kolom verder neemt.
 
Dit is geen VBA formule, maar een Excel-formule

Het is niet handig gegevens in kolommen te laten opschuiven.
Ik vermoed dat je de beter eerst de struktuur van je werkblad kunt verbetern.
Daarna kun je met VBA (zonder gebruik van Excel-formules) eenvoudiger het gewenste resultaat produceren.

Een voorbeeldbestand doet in zo'n geval wonderen (als je daar überhaupt al in gelooft).
 
Laatst bewerkt:
Zoek B2 van Sheet Calendar op in Sheet Core-Key, indien gevonden, schrijf de gevonden waarde van Kolom D in kolom K2 van Calendar, als je niks vind laat het dan leeg
Zoek B2 van Sheet Calendar op in Sheet Core-Key, indien gevonden, schrijf de gevonden waarde van Kolom E in kolom L2 van Calendar, als je niks vind laat het dan leeg
enz
enz
Tot kolom Q van sheet Core-Key

Zoek B3 van Sheet Calendar op in Sheet Core-Key, indien gevonden, schrijf de gevonden waarde van Kolom D in kolom K3 van Calendar, als je niks vind laat het dan leeg
Zoek B3 van Sheet Calendar op in Sheet Core-Key, indien gevonden, schrijf de gevonden waarde van Kolom E in kolom L3 van Calendar, als je niks vind laat het dan leeg
enz
enz
 
In kolom B van Calendar staat
1A
2A
3A
4A
1B
2B
3B
4B
1C
2C
3C
4C
1A
2A
3A
4A
1B
2B
3B
Geen enkele van deze waarden komt overeen met kolom A van werkblad 'Core-Key'
En in kolom D en E staat geen enkele waarde.
 
Laatst bewerkt:
In VBA:

Code:
Sub M_snb()
  sn = Sheet1.Cells(1).CurrentRegion.Resize(, 12)
  sp = Sheet32.Cells(1).CurrentRegion.Resize(, 5)
    
  For j = 2 To UBound(sn)
    For jj = 2 To UBound(sp)
      If sn(j, 2) = sp(jj, 1) Then Exit For
    Next
    If jj <= UBound(sp) Then
      sn(j, 11) = sp(jj, 4)
      sn(j, 12) = sp(jj, 5)
    End If
  Next
    
  Sheet1.Cells(1).CurrentRegion.Resize(, 12) = sn
End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan