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

Verticaal zoeken met variabele bestandsnaam

Status
Niet open voor verdere reacties.

alexander321

Gebruiker
Lid geworden
25 jun 2012
Berichten
74
Ik haal middels een variabele een bestandnaam op:
Code:
BestandsnaamDag = Range("BK1").Value

Wat is graag wil is verticaal zoeken in dit bestand.
Code:
=VERT.ZOEKEN(A2;[190325.xlsx]Voorraadlijst!$A:$G;7;0)
De 190325 staat in BestandsnaamDag of cel BK1

Ik krijg het niet voor elkaar om de formule variabel te maken.
Wie kan me helpen?
Alvast dank!
 
Daarvoor is de functie INDIRECT uitgevonden.
Code:
=VERT.ZOEKEN(A2;INDIRECT("["&BK1&".xlsx]Voorraadlijst!$A:$G");7;0)
Niet getest verder vanwege ontbreken voorbeeldbestand.
 
Laatst bewerkt:
Bestandenpad "C:temp" wijzigen in waar het bestand staat.
Code:
sub hsv()
dim wb as worksheet, mt
set wb = thisworkbook.activesheet
  with getobject("c:\temp\" & wb.range("BK1") & ".xlsx").sheets("voorraadlijst")
   mt = application.match(wb.range("a2"), .columns(1), 0)
     if isnumeric(mt) then msgbox "dit is de gezochte waarde" & vblf & vblf & .cells(mt,7)
      .parent.close
   end with
end sub
 
Harry,

dank je.
Ik zie dat jij ook met verwijzing naar de cel werkt.
Is het ook mogelijk ipv de cel ook met een variabele (zoals in mijn geval: BestandsnaamDag) te werken?

Gr Alexander.
 
Alexander,

wijzig
Code:
  with getobject("c:\temp\" &[COLOR="#FF0000"] wb.range("BK1")[/COLOR] & ".xlsx").sheets("voorraadlijst")
eens in
Code:
  with getobject("c:\temp\" & [COLOR="#008000"][BestandsnaamDag][/COLOR] & ".xlsx").sheets("voorraadlijst")
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan