doorverwijzen(planning)

[dennisverbeek]

Beste Lezers,

Een van mijn werkzaamheden is het maken van een planning.
Aangezien het bedrijf een personeelsbestand heeft van ca.200 komt er het nodige kijken bij kijken.

Huidige situatie:
De planning wordt gemaakt in Map1, als er gegevens over een werknemer wil vergaren moet ik meerdere bestanden openen. Dit kost ten eerste veel tijd en daarnaast is het niet handig. Via Opmerking invoegen is er wel wat mogelijk maar dit is niet ideaal.

Ideaalbeeld:
De planning wordt gemaakt in Map1. Om informatie in te winnen over een werknemer is het mogelijk om via een dubbel klik(of iets anders) naar gegevens te gaan die elders in het Excel bestand is verwerkt.

Ik hoop dat jullie mij kunnen helpen met het probleem. Ik vertrouw op jullie Excel Skills .

Groetjes,

 

[Niels28]

Plaats even een voorbeeldbestandje met daarin de situatie hoe je het wil hebben.
dus incl tablad waar de gegevens van de werknemers staat en aangegeven welke gegevens je wilt opzoeken.

Niels

 

[dennisverbeek]

Bekijk bijlage Test (4).xlsx

Beste Lezers,

Een van mijn werkzaamheden is het maken van een planning.
Aangezien het bedrijf een personeelsbestand heeft van ca.200 komt er het nodige kijken bij kijken.

Huidige situatie:
De planning wordt gemaakt in Map1, als er gegevens over een werknemer wil vergaren moet ik meerdere bestanden openen. Dit kost ten eerste veel tijd en daarnaast is het niet handig. Via Opmerking invoegen is er wel wat mogelijk maar dit is niet ideaal.

Ideaalbeeld:
De planning wordt gemaakt in Map1. Om informatie in te winnen over een werknemer is het mogelijk om via een dubbel klik(of iets anders) naar gegevens te gaan die elders in het Excel bestand is verwerkt.

Ik hoop dat jullie mij kunnen helpen met het probleem. Ik vertrouw op jullie Excel Skills .

Groetjes,

 

[Niels28]

Werkt met dubbelklik.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Not Intersect(Target, Range("A:A")) Is Nothing Then
If Target.Value = "" Then Exit Sub
Sheets("gegevens " & Target.Value).Activate
End If
End Sub

Niels

 

[dennisverbeek]

Hoi Niels,

Ik snap niet wat je bedoeld met deze bovenstaande code
Wat bedoel je hiermee..???

Dennis

 

[Niels28]

Rmuisknop op tabblad1
programmacode weergeven
en bovenstaande code daar plakken.

Je moet wel je macro's inschakelen, en je bestand opslaan als .xlsm

Niels