CeesKarsten
Nieuwe gebruiker
- Lid geworden
- 30 jan 2012
- Berichten
- 4
Hallo,
Ik ben bezig met een macro te bouwen in excel waarmee ik een waarde wil zoeken (met VLOOKUP) in een tabblad met een variabele naam.
Het variabele deel is het boekjaar. Helaas krijg ik niet voor elkaar dat er gezocht wordt in bijvoorbeeld het tabblad 'VJN'+boekjaar. Hieronder zie je de code die ik hiervoor gebruik.
Op zich werkt de code wel, maar alleen als ik het tabblad waarin gezocht moet worden, een vaste naam geef.
Heeft iemand een idee voor me zodat ik dit aan kan passen?
Alvast bedankt!
Cees
Ik ben bezig met een macro te bouwen in excel waarmee ik een waarde wil zoeken (met VLOOKUP) in een tabblad met een variabele naam.
Het variabele deel is het boekjaar. Helaas krijg ik niet voor elkaar dat er gezocht wordt in bijvoorbeeld het tabblad 'VJN'+boekjaar. Hieronder zie je de code die ik hiervoor gebruik.
Op zich werkt de code wel, maar alleen als ik het tabblad waarin gezocht moet worden, een vaste naam geef.
Heeft iemand een idee voor me zodat ik dit aan kan passen?
Code:
Sheets("VJN" & boekjaar).Select
Columns("A:A").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").FormulaR1C1 = "Zoekcode"
Range("A2").FormulaR1C1 = "=RC[1]&RC[3]&RC[5]"
Range("A2").Select
Selection.AutoFill Destination:=Range("A2:A200")
Sheets("NJN" & boekjaar).Select
Range("S2") = _
"=IF(ISNA(VLOOKUP(RC[-18]&RC[-16]&RC[-14],'VJN2012'!C[-18]:C[3],22,FALSE)),"""",IF(VLOOKUP(RC[-18]&RC[-16]&RC[-14],'VJN2012'!C[-18]:C[3],22,FALSE)=0,"""",VLOOKUP(RC[-18]&RC[-16]&RC[-14],'VJN2012'!C[-18]:C[3],22,FALSE)))"
Range("S2").Select
Selection.AutoFill Destination:=ActiveCell.Range("A1:A200")
Alvast bedankt!
Cees
Laatst bewerkt: