excel macro

[Christy2409]

Hallo

In een macro voor excel zou ik graag verwijzen naar een cel in mijn startbalk voor het openen van een file.

vb

helpmij/2015/vraagjes/nieuw.xltm

2015 is variable, dus, zou ik willen dat de macro gaat kijken naar een cel in een sheet,
zodat ik niet elk jaar de macro moet aanpassen.

Iemand enig idee of dit kan en hoe?

Dank U

Mvg

 

[Haije]

Christy,

welkom op Helpmij.nl!

Het is een goede gewoonte om bij een vraag een bijlage (Excel-bestand) te posten waar het prbleem in voorkomt.

 

[gonzo31]

Hoi Christy2409,

Wat bedoel je precies met 'cel in mijn startbalk'?
Heb je wellicht een voorbeeldbestandje met een macro die je wél moet veranderen, dan kan ik hem misschien aanpassen naar iets dat automatisch gaat.

mvg

 

[Christy2409]

file

Bekijk bijlage DHL optimalisatie.xlsm

Beste

Ik heb een deel van de file toegevoegd want hij is te groot.

Het is de bedoeling dat de macro cel J1 neemt als jaar ipv het jaar zelf.
Zodat de macro niet elk jaar moet herschreven worden maar enkel het jaar moet aangepast worden.

Dank U

Mvg
Christy

 

[gonzo31]

Ik zie dat je ergens wel strYear defineerd maar pas nadat je al eens 2015 hebt gebruikt om een file te roepen.
Ik zou strYear gelijk in het begin een waarde toekennen (na Dim strYear as String).

' Create the argument
arg = "'" & Path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Range("A1").Address(, , xlR1C1)

'Create the year
strYear = Range("J1").Value

En verderop gebruiken:

    Workbooks.Open Filename:= _
        "\\brus021\gbl_fssc\ACCOUNTING\" & strYear & "\01 CLOSINGS\1100 PURATOS NV\01 AP\02 UPLOADS\03 DHL\dhl csv file.xltm" _
        , Editable:=True

Ik neem in ieder geval aan dat het om dat stukje code gaat...

Succes

 

[Christy2409]

Inderdaad, 2015 moet vervangen worden door J1

ik zet


Dim strYear As String

strYear = Worksheets("procedure").Range("J1").Value

en vervang het jaar
ACCOUNTING\stryear\01 CLOSINGS\

maar hij blijft een error geven.

Alvast bedankt

 

[Christy2409]

Dank u Gonzo
gelukt