Cellen naar andere cellen verwijzen met behoud van inhoud

[shalhevet]

Hallo,

In mijn bestand heb ik twee tabbladen:

Index
Week32


In tabblad week32 heb ik in cel B19 een hyperlink gemaakt naar de factuur bestand (pdf) die elders op de computer opgeslagen wordt.

Nu wil ik in de index pagina, in de kolom van week32 een link maken naar "week32, cel B19". De bedoeling is dan dat de factuurnummer die in cel B19 staat automatisch ingevuld wordt in de index pagina.

Maar.... dan wil ik dat de hyperlink ook "overgaat" naar de index pagina. Als ik dan in de index pagina op klik dan wordt de factuur geopend.

Ik heb geprobeerd met:

=week32!B19 (waarde wordt ingevuld maar de hyperlink niet)

Ook met

=Hyperlink(week32!B19)

heeft het niet gewerkt.

Weet iemand hoe ik de hyperlink wel kan overnemen?

De bedoeling is dat de hele index pagina automatisch ingevuld wordt in de loop van het jaar doordat ik de factuur in de tabblad van de week noteer.

In de bijlage voeg ik een voorbeeld bestand.

Alvast bedanktBekijk bijlage Urenregistratie.xlsm

 

[shalhevet]

In de tussen tijd heb ik de volgende code gevonden als voorbeeld:

Sheet2.Hyperlinks.Add Sheet2.[a2], Sheet1.[b4].Hyperlinks(1).Address

Maar ik heb geen idee hoe moet ik het in mijn eigen code verwerken. Is het als een sub? of een aparte module?

Moet ik de namen Sheet2 en Sheet1 wijzigen naar de namen van mijn eigen tabbladen?

 

[shalhevet]

Ik zou mijn vraag graag willen uitbreiden:

In mijn week32 tabblad zou ik, zodra het pdf gemaakt is automatisch de link willen hebben waar de factuurnummer staat (cel B19).

Ik heb begrepen dat het mogelijk was om met vba in een opgegeven map te laten zoeken naar bestanden en zo automatisch een hyperlink te maken.

ook had ik begrepen dat hiervoor zou ik de code:

ThisWorkbook.Worksheets("Sheet3").Range("B19").Formula = "=Hyperlink(""C:\dell\drivers\R247058\Version.txt"",""Version.txt"")"

moeten gebruiken.

Maar dat lukt mij niet

Ik verander de (Sheet3) naar (Week32).Range("B19").Formula= "=Hyperlink(""C:\pad\Version.txt"",""Version.txt"")"

maar kom vast te zitten met de "version.txt"", ""version.txt"")" gedeelte. Ik weet niet wat ik hier in plaats van "version.txt" moet invullen.