klikken dan een map openen

[shanna]

Hoi,

Is het mogelijk dat als je op een cel klikt waar het bsn in staat dat dan de
map wordt geopend met desbetreffende bsn nummer?
M.a.w. in een personeelsbestand staan de naw gegevens en ook een cel met het bsn nummer. Graag zou ik zien dat als je hierop klikt via verkenner de map met dat bsn nummer wordt geopend. Ben nu zover dat wel verkenner wordt geopend maar zie daar alle mappen staan met de bsn nummers, en hij zou de map moeten openen waarop dubbelgeklikt is.

 

[Haije]

Shanna,

kun je het tot nu toe bereikte resultaat ook posten (ontdaan van evt "gevoelige" info)?

 

[shanna]

macro

Sub digi()
'
' digi Macro
'
'

'
Selection.Copy
Range("E1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"../../../Admin/_LvD/personeel"
Range("E1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub

 

[Haije]

shanna,

wat gebeurt er als je de rode toevoegingen ook toevoegt?
(ik ga er vanuit dat het bsn in de geselecteerde cel staat)

Sub digi()
'
' digi Macro
'
Selection.Copy
bsn = activecell.value
Range("E1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"../../../Admin/_LvD/personeel/bsn"
Range("E1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub

 

[shanna]

foutmelding

krijg dan een foutmelding dat het opgegeven bestand niet kan worden geopend (de map met bsn bestaat wel)

 

[Haije]

volledige pad?

Shanna,

wat is het volledige pad naar de map waar de bsnmappen staan?

 

[shanna]

pad

Het volledige pad is \\ghw-lx-03\document\Admin\_LvD\personeel

Als ik jouw toevoegingen doe krijg ik als ik naar de hyperlink kijk:

../../../Admin/_LvD/personeel/bin

De waarde uit de activecell wordt dus niet overgenomen

 

[Haije]

Shanna,

maak van

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"../../../Admin/_LvD/personeel[COLOR="red"]/bsn"[/COLOR]

eens:

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"../../../Admin/_LvD/personeel[COLOR="red"]/" & bsn[/COLOR]

 

[shanna]

toppiee!!

Dat was hem, hartstikke bedankt